نمایش لیبل زیر نشانگر موس

[loads]

سلام دوستان
با چه کدی میتونم یه لیبل رو زیر نشانگر موس فعال کنم (یعنی هر جا که نشانگر موس قرار داره با یک فرمان لیبل اونجا فعال بشه )

[مهران رسا]

سلام دوستان
با چه کدی میتونم یه لیبل رو زیر نشانگر موس فعال کنم (یعنی هر جا که نشانگر موس قرار داره با یک فرمان لیبل اونجا فعال بشه )

سلام ...



Label1.Top = Y
Label1.Left = X

[loads]

جناب .M8SPY این کدی که دادین برای مختصات فرمه ، من میخوام لیبلم هر جا که موس قرار داره نمایش داره بشه .

[ASKaffash]

سلام
بااین کد :


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Me.Label1
.Top = Y
.Left = X
End With
End Sub

[loads]

ممنونم دوست عزیز
حالا اگر بخواهیم خود فرم این حالتو بگیره چی (حرکت فرم به دنبال موس در دسکتاپ )

[ASKaffash]

سلام
با این کد فقط ScaleMode را تنطیم کن :


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Load()
Me.ScaleMode = 0
Me.Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Dim P As POINTAPI
Call GetCursorPos(P)
With Me
.Left = P.y
.Top = P.x
End With
End Sub

[loads]

ASKaffash عزیز فرم حرکت میکنه ولی دقیقاً زیر موس نیست یعنی همون قسمت بالا سمت چپ حرکت میکنه
ScaleMode رو هم تنظیم میکنم ولی فرقی نمیکنه ، میخوام فرم دقیقاً دنبال موسم حرکت کنه (چسبیده باشه به موس)

[Mbt925]

خاصیت ScaleMode روی حرکت خود فرم تاثیری نداره.
مقداری که برگردونده میشه ، برحسب پیکسله که با ضرب کردن در عدد 15 به Twip تبدیل میشه.



Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Dim P As POINTAPI

Private Sub Timer1_Timer()

Call GetCursorPos(P)

With Me
.Top = P.y * 15
.Left = P.x * 15
End With

End Sub