DES BEAUX BOUTONS EN 3D DE LA FORME QUE L'ON VEUT
cs_Clem
Messages postés
282
Date d'inscription
dimanche 1 avril 2001
Statut
Membre
Dernière intervention
12 février 2007
-
21 juin 2002 à 16:08
ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015 - 15 avril 2003 à 13:41
ICIoBRa Messages postés 368 Date d'inscription dimanche 24 juin 2001 Statut Membre Dernière intervention 7 décembre 2015 - 15 avril 2003 à 13:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3021-des-beaux-boutons-en-3d-de-la-forme-que-l-on-veut
https://codes-sources.commentcamarche.net/source/3021-des-beaux-boutons-en-3d-de-la-forme-que-l-on-veut
15 avril 2003 à 13:41
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Image1_Click()
Image1.Picture = LoadPicture(App.Path & "outonNormal.gif")
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.Path & "outonAppuyé.gif")
DoEvents
Sleep (150)
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1_Click
MsgBox "Et voilà c'est beau !"
End Sub
Bon'prog +²
24 juin 2002 à 18:27
22 juin 2002 à 15:55
21 juin 2002 à 17:13
Et moi qui m'emmerdé avec plein d'API et de trucs dans le genre ...
En plus on fait facillment faire de joulie bouton...
Allé hop un ptit 8/10 pour l'idée...
A++
Bone prog
DeAtH_-_CrAsH :]
21 juin 2002 à 16:08
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button=1 then Image1.Picture = LoadPicture(App.Path & "outonAppuyé.gif")
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button=1 then Image1.Picture = LoadPicture(App.Path & "outonNormal.gif")
End Sub
Private Sub Image1_Click()
msgbox "Et voilà c'est beau !"
End Sub
Mais je trouve que le problème c'est qu'il faut refaire une image pour chaque bouton avec son texte. Je conseille donc de mettre l'image, et dessus de mettre un label transparent avec le texte, et puis mettre les évènements Image1_MouseUp, Image1_MouseDown et IMage1_Click au label, comme ça c'est largment plus simple.