با سلام
میدونم که سوالم یکم ناشیانه هست اما ...
هر چی تو سایت گشتم چیزی پیدا نکردم ، دیگه مجبور شدم ..حالا چطوری میشه کپشن یه پنجره ویندوز رو در حالی که فوکوس روی اون پنجره هست بدست آورد ؟
البته بعد از بدست آوردن هندل ....
ممنون میشم کامل جواب بدیدبای
?؟ ?؟ ?؟ ?؟ ?؟ ?؟ ?؟ ?؟ ?؟
فک کنم با این حل میشه
کد:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Activate()
Dim MyStr As String
'Create a buffer
MyStr = String(100, Chr$(0))
'Get the windowtext
GetWindowText Me.hwnd, MyStr, 100
'strip the rest of buffer
MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
'Triple the window's text
MyStr = MyStr + MyStr + MyStr
'Set the new window text
SetWindowText Me.hwnd, MyStr
End Sub
کمی خلاصه تر
کد:
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Dim hWndTitle As String
hWndTitle = String(GetWindowTextLength(hwnd), 0)
GetWindowText hwnd, hWndTitle, (GetWindowTextLength(hwnd) + 1
من گفتم اونجوری کاملتره تا اینکه حذفش کنم
ممنون ازتون امید وارم که جبران کنم مرسی