marwakarim
Messages postés40Date d'inscriptionsamedi 27 mars 2010StatutMembreDernière intervention11 juin 2010
-
15 avril 2010 à 16:07
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
15 avril 2010 à 16:19
bonjour voila le code source d'une frmmenu liée a une base accès je suis debutante ne vb et j'arrive pas a comprendre quelque commande
Private Sub cmdAdd_Click()
FRMABOUT.Show
Unload Me
End Sub
Private Sub cmdAdd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(5).BackColor = &HFF00FF
End Sub
Private Sub cmdDelete_Click()
Form3.Show
Unload Me
End Sub
Private Sub cmdDelete_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(1).BackColor = &HFF00FF
End Sub
Private Sub cmdEdit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(4).BackColor = &HFF00FF
End Sub
Private Sub cmdExit_Click()
Fermeture.Show
End Sub
Private Sub cmdExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(0).BackColor = &HFF00FF
End Sub
Private Sub cmdPrevious_Click()
Form3.Show
End Sub
Private Sub cmdReload_Click()
frmbackup.Show
Unload Me
End Sub
Private Sub cmdReload_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(2).BackColor = &HFF00FF
End Sub
Private Sub cmdSort_Click()
Form1.Show
Unload Me
End Sub
Private Sub cmdSort_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(3).BackColor = &HFF00FF
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1(5).BackColor = &H0&
Shape1(0).BackColor = &H0&
Shape1(1).BackColor = &H0&
Shape1(2).BackColor = &H0&
Shape1(3).BackColor = &H0&
Shape1(4).BackColor = &H0&
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Label2.Caption = KeyAscii
End Sub
et merci d'avance
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 15 avril 2010 à 16:19
Salut Mimi
Commence par sélectionner chaque mot clé comme Show, BackColor, Unload ... et appuie sur la touche F1 : Tout est expliqué dans l'aide.
Si tu as des questions plus précises ...
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)