cs_louly
Messages postés39Date d'inscriptionvendredi 19 mars 2004StatutMembreDernière intervention 8 décembre 20041 1 déc. 2004 à 00:26
L'aide sur vb ça existe!!!;)
PopupMenu, méthode, exemple
L'exemple suivant affiche un menu contextuel à l'emplacement du curseur lorsque l'utilisateur clique le bouton droit de la souris sur une feuille. Pour tester cet exemple, créez une feuille comprenant un contrôle Menu nommé mnuFile (qui doit contenir au moins un sous-menu). Collez le code dans la section déclarations de la feuille et appuyez sur F5.
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuFile
End If
End Sub
arbomont
Messages postés57Date d'inscriptionmardi 21 septembre 2004StatutMembreDernière intervention 3 février 2014 1 déc. 2004 à 00:57
Non ça ne marche pas dans mon cas.
En effet dans
Private Sub Text1_Click(Index As Integer)
Je récupere la variable index qui me donne l'index de ma textbox(car j'ai plusieur textbox qui represente un groupe de controle).
Dans ta methode, je n'arrive plus à inserer cette variable, et ça plante à la compilation.
cs_louly
Messages postés39Date d'inscriptionvendredi 19 mars 2004StatutMembreDernière intervention 8 décembre 20041 1 déc. 2004 à 01:02
en prog fo ptet un peu etre logique, si t'a des textbox indexe g tester et ça marche avec
Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
cs_Creat
Messages postés76Date d'inscriptiondimanche 25 juillet 2004StatutMembreDernière intervention20 mars 2006 1 déc. 2004 à 02:27
Si tu es en vb.net fait ceci :
Private Sub Text1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvPortes.MouseDown
If e.Button = MouseButtons.Right Then
ContextMenu1.Show(lvPortes, New Point(e.X, e.Y))
End If
End Sub