Menu contextuel apparaissant au pointeur de la souris (débutant)

Soyez le premier à donner votre avis sur cette source.

Vue 5 227 fois - Téléchargée 334 fois

Description

Bah je suis pas tres fort parceque je debute et j'espere que ca servira et surtout j'espere que les masters du coin modifiront le code...

Vous avez besoin de deux form, reglés avec les parametres suivants:
Une form1 assez grande
form1: Scale = Twip

Une form2 nettement plus petite que la form1 et rouge !!
avec border style = none
scale = Twip
startup position = manual

rentrez le code dans form1

Si vous ne faites pas ca risque pas de fonctionner

Source / Exemple :


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Form2.Top = Y  'indique sur l'axe Y ou doit commencer le dessin de la fenetre
  Form2.Left = X  'indique sur l'axe X ou dot commencer le dessin de la fenetre

          If Button = 2 Then 'Si le bouton droit de la souris change d'état sur la form1 alors...
             Form2.Show 'Affiche la form2
          End If

          If Button = 1 Then 'si le bouton gauche de la souris change d'état sur la form1 alors..
             Unload Form2 'cache la form2
          End If
End Sub

Private Sub Form_Unload(Cancel As Integer) 'Quand la form1 est déchargée
   Form2.Hide  'cache ma form2
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de daerlnaxe

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.