CHANGEMENT DE PROPRIÉTÉS

'Pour pouvoir changer une propriétés il faut
'en premier doner le nom de l'objet suivie d'un point (.)
'suivie de la propriété a changer suivie du signe egal (=)
'puis la valeur de la propriété.

Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Changement de texte au passage de la souris
Label1.Caption = "Case à cocher"
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Bouton de command"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Label1.Caption = " INFOS  : Promener votre souris sur les différents objets de la fenêtre."
Label1.ForeColor = &H0&
Label1.Alignment = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = " INFOS  : Promener votre souris sur les différents objets de la fenêtre."
End Sub

Private Sub Label2_Click()
'Changement de couleur et de texte
Label1.ForeColor = &HFF8080
Label1.Caption = "Couleur Bleu"
End Sub

Private Sub Label3_Click()
Label1.ForeColor = &HFF&
Label1.Caption = "Couleur Rouge"
End Sub

Private Sub Label4_Click()
Label1.ForeColor = &HFFFF&
Label1.Caption = "Couleur Jaune"
End Sub

Private Sub Label5_Click()
Label1.ForeColor = &HFF00&
Label1.Caption = "Couleur Vert"
End Sub

Private Sub Label6_Click()
'Changement de position du texte
Label1.Alignment = 0
End Sub

Private Sub Label7_Click()
Label1.Alignment = 2
End Sub

Private Sub Label8_Click()
Label1.Alignment = 1
End Sub

Private Sub Label9_Click()
'Changement de texte lorsque l'on click sur un objet
Label1.Caption = "Cliquer sur une option pour voir l'effet"
End Sub

Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Option 1"
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Insrire ici un texte"
End Sub