Discussion :

[djtech45]

Bonjour,

Je débute dans VB .net et je bute sur un point qui semble assez simple

Je rencontre un problème lors de la création d'un menu clic droit.

En effet, je créé un ContextMenuStrip ( que je nomme CMS_CLICDROIT), auquel j'ajoute un élément " Déplacer le label ici"

mais lorsque je lance le test de mon programme, impossible de faire un clic droit, rien ne se passe...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class Form1
 
    Private Sub CMS_LABELMOVE_Click(sender As Object, e As EventArgs) Handles CMS_LABELMOVE.Click
        Me.LBL_MOVE.Location = Control.MousePosition
 
    End Sub
 
 
 
End Class

Je me répete mais je débute dans VB et j'aimerais comprendre ce qui ne fonctionne pas ou ce que j'ai oublier...

je suis sous windows 10, et avec le framework .NET 4.6.1

Merci beaucoup des réponses que vous pourrez m'apporter

[baloub]

Bonjour,
Dans les propriétés de Form1, as-tu définis ton menu contextuel comme le ContextMenuStrip de la form ?

[djtech45]

Bonjour,
Magnifique, merci pour ta réponse, en effet c'était tout bête. Je me disais bien aussi que je n'avais affecté mon menu nulle part...

Se pose un autre problème à présent, quand mon programme se lance en mode fenêtre et que je clique sur "placer ici" mon texte se décale mais pas a ma souris.

Je pense que ma fonction "Control.MousePosition" prend la position de mon curseur par rapport a mon écran et non pas a la limite des bords de mon programme.
Je suis sur que c'est encore une fois une question simple...

Aurais tu une piste ?

[baloub]

Oui tu as des fonctions pour ça :

Dim coor As Point = MonObjet.PointToClient(New Point(x, y))
Dim coor As Point = MonObjet.PointToScreen(New Point(x, y))

Le premier convertit la coordonnée écran en coordonnées objet, la seconde fait l'inverse.

[djtech45]

Merci beaucoup de tes réponses,

il va me falloir encore un peu d'entrainement avant de réussir mon programme mais au moins je comprends