حرفه ای: اجرای یک فرم با راست کلیک [بایگانی]

View Full Version : حرفه ای: اجرای یک فرم با راست کلیک

nazanin_90

جمعه 03 بهمن 1393, 00:44 صبح

سلام
میخوام همانند منوی شناور در هرجای فرم کلیک راست کردم در مختصات آن نقطه یک فرم خاص باز شود
آیا این کار شدنیه؟
با تشکر

m.4.r.m

جمعه 03 بهمن 1393, 11:40 صبح

ببین این مد نظرت هست ؟

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Form2.Top = X
Form2.Left = Y
Form2.Show 1
End If
End Sub

nazanin_90

جمعه 03 بهمن 1393, 16:30 عصر

سلام جناب m.4.r.m !
اگر نمونه ضمیمه را امتحان کنیدخواهید دید که با هردفعه کلیک (راست) فرم درجای خاصی باز میشود . در صورتیکه منظورم این است که گوشه بالای فرم2 در زیر اشاره گر موس باز شود.
همانند شورتکات منوی ویندوز که وقتی روی دسکتاپ کلیک می کنید منو در زیراشاره گر موس باز میشود.
ممنون

Rasul75

جمعه 03 بهمن 1393, 23:45 عصر

سلام شاید این مد نظر شما باشه.

vbhamed

جمعه 03 بهمن 1393, 23:53 عصر

سلام
به X و Y در کد بالا به ترتیب Me.Left و Me.Top رو هم اضافه کنید