Changement de propriétés

Soyez le premier à donner votre avis sur cette source.

Vue 4 034 fois - Téléchargée 191 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

ya une fnetre DESCRIPTION en bas des propriétés dans VB, sa dit tjs: "renvoie ou définie..." bin sa explique kessé tout sa!
Heureusement qu'il y a un zip j'ai eu quelques problèmes pour apréhender ce code.

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.