Décalage de contrôles

Commenter

Contenu du snippet

ce code permet de décaler deux contrôles par rapport à un troisième, comme par exemple les favoris, à gauche, dans internet explorer.
Il faut une form, deux textbox et un bouton. J'ai rajouté du code afin de placer automatiquement les contrôles à la bonne place lors du chargement.
Il suffit donc de créer les contrôles et de copier le code.

Source / Exemple : 


'Mettre tout ce code dans la form en évitant d'avoir 2 fois Form_Load :

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next

'Le curseur de la souris quand elle se positionne sur le bouton
Command1.MousePointer = 9

'Le déplacement et l'accompagnement des 2 contrôles avec le bouton
If Button = 1 Then
    Command1.Move Command1.Left + X, Command1.Top, Command1.Width, Command1.Height
    Text1.Width = Command1.Left
    Text2.Left = Command1.Left + Command1.Width - 25 'Le -25 est un petit décalage afin d'enlever un petit décalage mais il n'est pas indispensable.
    Text2.Width = 6100 - Text1.Width 'Le 6100 équivaut à la largeur des trois contrôles (3000 + 135 + 3000) auquel on a enlevé 35 pour enlever un décalage.
End If

End Sub

Private Sub Form_Load()
On Error Resume Next

'paramétrage de la form et des contrôles
With Form1
.Show
.BorderStyle = 1
.Width = 6155
.Height = 5100
.Caption = "Décalage de contrôles"
End With

With Text1
.Width = 3000
.Left = 0
.Height = 4695
.Text = "text de gauche"
End With

With Text2
.Width = 3000
.Left = 3120
.Height = 4695
.Text = "text de droite"
End With

With Command1
.Width = 135
.Left = 3000
.Height = 4695
End With

End Sub

Conclusion :


Ce code n'est pas vraiment optimisé, je l'ai fait vite et on peut probablement l'améliorer... Notez-le SVP... Merci.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Skymmon)