Problème source
saveourssouls
Messages postés
46
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
18 mars 2005
-
18 mars 2005 à 22:08
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 19 mars 2005 à 01:14
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 19 mars 2005 à 01:14
2 réponses
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
18 mars 2005 à 22:27
18 mars 2005 à 22:27
Private Sub Form_Load()
Dim Ctrl As Control
L = 300
T = 300
For Each Ctrl In Me.Controls
With Ctrl
If .Left < L Then
.Move .Left + 700
End If
If .Top < T Then
.Move .Left , .Top + 700
End If
End With
Next
End Sub
<hr size="2" width="100%">Si le cerveau était assez simple pour que nous puissions le comprendre,
nous serions assez bête pour ne pas le comprendre malgré tout.
Dim Ctrl As Control
L = 300
T = 300
For Each Ctrl In Me.Controls
With Ctrl
If .Left < L Then
.Move .Left + 700
End If
If .Top < T Then
.Move .Left , .Top + 700
End If
End With
Next
End Sub
<hr size="2" width="100%">Si le cerveau était assez simple pour que nous puissions le comprendre,
nous serions assez bête pour ne pas le comprendre malgré tout.
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
19 mars 2005 à 01:14
19 mars 2005 à 01:14
Quand tu tapes .Move l'éditeur VB t'affaiche le nom des champs à remplir, il suffit de bien respecter l'ordre !
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Vala
Jack
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
