/////////// هندل \\\\\\\\\\\\\

سلام دوستان ارجمند
در خواست کمک دارم در رابطه با گرفتن عنوان یک برنامه
منظورم متن سمت چپ بالای یک پنجره هست
برای مثال من هندل یک پنجره رو دارم چطور می تونم title یه پنجره رو بگیرم
ممنون می شم راهنمایی کنید

سلام دوست عزیز... شما می تونید با استفاده از تابع GetWindowText از کتابخانه user32 این کار رو انجام بدید... :20:

فراخوانی این تابع به این صورته...!؟! :

کد:

---

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

---

اینم توضیحاتش...!؟! :

hWnd دستگیره پنجره ایه که می خواید عنوانش رو بخونید...!؟!
lpString متغییریه که قراره عنوان پنجره داخلش قرار بگیره...!؟!
و در آخر cch تعداد کارکتریه که قراره از عنوان خونده بشه...!؟!

+ مثال...!؟! :

کد:

---


Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) 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)
    'Set the new window text
    Me.Caption = MyStr & "...!?!"
   
End Sub

'منبع : API-Guide با تصرف و تلخيص

---

موفق باشید...!؟! :46:

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوست عزیز... شما می تونید با استفاده از تابع GetWindowText از کتابخانه user32 این کار رو انجام بدید... :20:

فراخوانی این تابع به این صورته...!؟! :

کد:

---

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

---

اینم توضیحاتش...!؟! :

hWnd دستگیره پنجره ایه که می خواید عنوانش رو بخونید...!؟!
lpString متغییریه که قراره عنوان پنجره داخلش قرار بگیره...!؟!
و در آخر cch تعداد کارکتریه که قراره از عنوان خونده بشه...!؟!

+ مثال...!؟! :

کد:

---


Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) 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)
    'Set the new window text
    Me.Caption = MyStr & "...!?!"
   
End Sub

'منبع : API-Guide با تصرف و تلخيص

---

موفق باشید...!؟! :46:

---

دست شما درد نکنه ولی من گیج شدم یعنی نفهمیدم کار این API چی هست یکم واضح توضیح بدید من هم متوجه بشم