Discussion :

[skaraa]

bonjour à tous,

Je vais essayer d'expliquer mon problème le plus simplement possible.

J'ai des checkbox qui s'affiche dynamiquement suivant certains critères
Ainsi la position de ces checkbox peut varier

Maintenant si certaines checkbox sont cochées une textbox doit apparaitre (si seulement la checkbox est cochée sinon elle disparait)

Ce que je voudrais donc faire c'est déplacer les checkbox suivante afin de laisse la place pour cette textbox (si je décoche je voudrais tout remettre en place)

J'ai redimensionné comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  'si c'est coché
Checkbox1.Location = New System.Drawing.Point(5, 200)
'sinon
Checkbox1.Location = New System.Drawing.Point(5, 180)

Mais en fait cette méthode ne vas pas car si les checkbox dépasse l'écran (application mobile 6.0) alors ça part en vrille (tant que le nombre de textbox ne dépasse pas un certains nombres tout vas bien par contre)

Les textbox sont alors décalé d'autant que la scrollebar est baissée.

Comment faire?

[skaraa]

J'ai essayé de joué sur la position (.left et.top) de la checkbox précédente mais j'obtiens le même résultat.

En fait quand je descends la scrollbar de ma formulaire les coordonnées de mes checkbox change?
Parce que a chaque fois que je veux décaler par rapport à la checkbox précédente ça me décale a chaque fois (pourtant la position réel de la checkbox en question ne change pas...)

Chargement des checksbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        afficher_Checkbox_Purge2()
        Checkbox_Purge2.Left = 5
        Checkbox_Purge2.Top = Box_Desinfection.Top + 20
        Label_Purge2.Left = 25
        Label_Purge2.Top = Checkbox_Purge2.Top + 20
        Box_Purge2.Left = 150
        Box_Purge2.Top = Checkbox_Purge2.Top + 20
 
 
        afficher_Checkbox_Bacterio()
        Checkbox_Bacterio.Left = 5
        Checkbox_Bacterio.Top = Checkbox_Purge2.Top + 20

Changement d'état de la checkbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Private Sub Checkbox_Purge2_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Checkbox_Purge2.CheckStateChanged
        If Checkbox_Purge2.Checked = True Then
            Me.Controls.Remove(Checkbox_Purge2)
            afficher_Checkbox_Purge2()
 
            afficher_Box_Purge2()
            Box_Purge2.Text = ""
            afficher_Label_Purge2()
                Checkbox_Bacterio.Top = Checkbox_Purge2.Top + 40
                Button_Retour.Top = Checkbox_Purge2.Top + 60
                Button_Suite.Top = Checkbox_Purge2.Top + 60
        Else
                Checkbox_Bacterio.Top = Checkbox_Purge2.Top + 20
                Button_Retour.Top = Checkbox_Purge2.Top + 40
                Button_Suite.Top = Checkbox_Purge2.Top + 40
        End If
 
    End Sub

Help

[Pol63]

changer l'interface ?


sinon essaye de faire -me.Scrollbarvertical.value
enfin si ca existe, j'ai deja vu des problèmes dans le genre du à un scrollbar qui change les coordonnées en coordonnées relatives