پیدا کردن موقعیت موس ؟

[ali_najari]

سلام

من یه کمک میخواستم در ارتباط با اینکه :
زمانی که در یک textbox در حال تایپ هستید موقعیت چشمک زن موس رو میخوام ( منظورم همون علامتی که در هنگام تایپ یا کلیک بر روی تکس باکس ظاهر میشه )

ممنون میشم جوابم رو بدید

[H4i0 ACP]

اگر درست فهمیده باشم
پیدا کردن موقعیت نشانگر صفحه کلید :

[ali_najari]

نه منظورم این نبود
منظورم موقعیت X , y اون هست

[H4i0 ACP]

منظورتون اینه که وقتی تو تکست کلیک می کنیم این مختصات رو بده ؟

[H4i0 ACP]

دوست عزیز
این طوری باشه :

[ali_najari]

نه
منظورم اینه که نشانه گر چشمک زن تو تکس باکس رو ببین وقتی تایپ میکنی به جلو حرکت میکنه
من مختصات اون رو میخوام

[H4i0 ACP]

بالاخره فهمیدم شما چی می خواید ، ولی در مورد بدست آوردن مختصات X,Y Caret چیزی نشنیدم .

[ali_najari]

میتونید برنامه نمونش رو برام بزارید
نیاز اساسی بهش دارم

[H4i0 ACP]

حتما ، این کار یه وظیفه برای من و تمام دوستان عضو سایت هستش .

[ali_najari]

کسی توانست پیدا کنه ؟

[majjjj]

GetCursorPos
از این تابع استفاده کنید



Declare Function GetCursorPos& Lib "user32" (lpPoint As POINTAPI)
Type POINTAPI
x As Long
y As Long
End Type
Public CursorX As Long
Public CursorY As Long
Public Sub GetCursPos()
Dim pa As POINTAPI
If GetCursorPos(pa) = 0 Then
' Insert Error Handling code here
End If
CursorX = pa.x
CursorY = pa.y
End Sub

[majjjj]

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()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim a As POINTAPI
GetCursorPos a
Me.Caption = a.x & " " & a.y
End Sub


این کارت رو راه میندازه البته خیلی ساده نوشتم متوجه بشید

[ali_najari]

ببینید اینایی که شما دارید میزارید همش موقعیت موس هستش ولی من چیز دیگه ای میخوام
یه عکس میزارم که من موقعیت این نشانه گر رو که تو عکس یه دایره قرمز دورش کشیدم رو میخوام

[Mbt925]

ببینید اینایی که شما دارید میزارید همش موقعیت موس هستش ولی من چیز دیگه ای میخوام
یه عکس میزارم که من موقعیت این نشانه گر رو که تو عکس یه دایره قرمز دورش کشیدم رو میخوام


سوالتون رو اشتباه مطرح کردید.



Text1.SelStart