بدست آوردن Caption کنترل های فرم

[Sahand87]

سلام
چطور می توانیم با کلیک برروی هر شیئ Caption یا نام آن شیئ را بدست بیاوریم


متشکرم

[just4froum]

منظورت شی های روی برنامته یا هر جای ویندوز ؟

[Sahand87]

با تشکر از شما
منظورم فقط اشیاء داخل فرم جاری هست .

[Veteran]

روی هرچیزی موس ببری کپشن رو نشون میده
چه برنامه چه ویندوز.

==

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Timer1_Timer()
Dim Hnd
Dim Mus As POINTAPI
GetCursorPos Mus
Hnd = WindowFromPoint(Mus.X, Mus.Y)
Dim HndC, BuffC As String
HndC = Hnd
PostMessage HndC, &HCC, 0, 0
BuffC = String(201, Chr(0))
Text1.Text = Left(BuffC, SendMessage(HndC, &HD, 200, BuffC))
End Sub

[Sahand87]

دوست عزیز با تشکر فراوان از پاسختون حالا من چند تکس باکس با یک نام و ایندکسهای متفاوت دارم و می خوام با حرکت ماوس نام تکس باکس و ایندکس آن را نشان دهد که با کدهای شما فقط نام تکس باکس بدون اینکس تایپ می شود آیا امکان نام ایندکس تکس باکس هم هست .

متشکر

[Veteran]

با کدهای شما فقط نام تکس باکس
کپشن رو نشون میده
=====
حالا که تکست باکس های شما ایندکس دارند یعنی ارایه کنترلی هستند
میتونید از کد زیر استفاده کنید

Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = Text1(Index).Name & "(" & Index & ")"
End Sub