Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 561 fois - Téléchargée 40 fois
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Gras 1, 0, 0, 0 End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Gras 0, 1, 0, 0 End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Gras 0, 0, 1, 0 End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Gras 0, 0, 0, 1 End Sub Public Sub Gras(Val1, Val2, Val3, Val4 As Integer) Command1.FontBold = Val1 Command2.FontBold = Val2 Command3.FontBold = Val3 Command4.FontBold = Val4 End Sub
27 janv. 2003 à 20:09
Et inutile
27 janv. 2003 à 18:38
salut a toi
27 janv. 2003 à 17:24
27 janv. 2003 à 04:46
change ton titre pour "Effet pour boutton" , le moderne na pas sa place!
6/10
27 janv. 2003 à 00:47
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.