[VB.Net] Problème modification du padding

Version imprimable

12/07/2016, 14h57
Fundu31

[VB.Net] Problème modification du padding
Bonjour/Soir à tous :) Comme le titre l'indique je rencontre un problème pour modifier le padding d'une autre Form. J'ai déclaré un variable locale qui créer une nouvelle fenêtre (je l'ai appelé window) et j'ai aussi une autre form (je l'ai appelé Form2) qui permet à l'utilisateur de modifier le padding de window, mais voilà quant je rentre les valeurs dans les textbox de la Form2 bah le padding de window ne se modifie pas !

Voici le code :
Code:

1 2 3 Dim window as New Form() window.padding = New Padding(Form2.TextBox11.Text, Form2.TextBox12.Text, Form2.TextBox13.Text, Form2.TextBox14.Text)
Voilà en espérant vous avoir le mieux éclairer possible ^^
13/07/2016, 10h07
J@ckHerror
Bonjour,

Je n'ai pas vraiment la solution sans faire de test mais ce comportement ne m'étonne pas vraiment, la ligne de code modifie la valeur du padding mais pour que cette modification soit prise en compte il faut redessiner la form.
Je suis septique, mais je commencerais par un
Code:

1 2 window.Invalidate()
cela forcera la form a être redessinée.

Bon code,
J@ck.
13/07/2016, 13h06
Fundu31

Bonjour, merci pour ton aide c'est très gentil, mais apparemment même en forçant la fenêtre à se redessiner cela ne marche pas :)
Mais je te remercie quand même ^^
13/07/2016, 13h49
J@ckHerror

Ok pas trop étonné non plus mais fallait faire le test :lol:

Maintenant il faudrait avoir un peu plus de ton code pour nous montrer la durée de vie de ta form 'window' mais pour que ton padding soit pris en compte il faut que tu le définisse avant d'afficher la form.

J@ck.
13/07/2016, 14h07
Prisson

Bonjour,
il me semble qu'à aucun momenet tu ne demandes l'affichage de ta form et puis pkoi pas window1 au lieu de window.

Bonjour Prisson, en fait j'ai juste montrer le code du padding pour le problème :)

Sinon tout mon code c'est ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim window As New Form
        Dim txt As New TextBox
        Dim lab As New Label
 
        window.Text = TextBox1.Text
        window.BackColor = Options_fenêtre_soft.Couleur
        window.Font = Options_fenêtre_soft.Police
        window.ForeColor = Options_fenêtre_soft.Couleur2
        window.SetAutoScrollMargin(Options_fenêtre_soft.Largeurs, Options_fenêtre_soft.Hauteurs)
        window.SetDesktopLocation(Options_fenêtre_soft.X, Options_fenêtre_soft.Y)
        window.Padding = New Padding(Options_fenêtre_soft.Pad, Options_fenêtre_soft.Pad1, Options_fenêtre_soft.Pad2, Options_fenêtre_soft.Pad3)
        window.Opacity = Options_fenêtre_soft.NumericUpDown1.Text / 100
 
        txt.Location = New Drawing.Point(250, 250)
        txt.Width = 300
        txt.Height = 300
        txt.Text = "COUCOU"
        lab.Location = New Drawing.Point(300, 300)
        lab.Text = "LOOl"
        window.Controls.Add(txt)
        window.Controls.Add(lab)
        window.Show()
    End Sub

Les textboxs et les labels c'était pour voir si le padding fonctionnait ^^

13/07/2016, 15h24
J@ckHerror

Ok merci pour le code.

Mais vue le code je me demande maintenant pourquoi tu veux jouer avec le Padding au runtime ? Car le Padding n'aura aucun effet sur le placement de tes Controls ajoutés dynamiquement, pour ça tu dois juste définir la bonne Location (et éventuellement les Anchor ou Dock lors des redimmensionnement de la form)
Au final le padding n'est utile (pour ce que je connais) que dans le designer, qui lui va les utiliser pour justement calculer la bonne Location du controls...

J@ck.
13/07/2016, 15h28
Fundu31

Ah mince, je pensais que le padding pouvais avoir un effet direct sur les contrôles mis dynamiquement, autant pour moi :)