Changement de propriétés

Télécharger le projet
Commenter

Description

Permet le changement de propriétés d'un label

Source / Exemple : 


'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

Conclusion :


Un Zip est fournit.
Télécharger le projet

Codes Sources

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.