تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قراءة عنوان النافذة المفتوحة
#1
كاتب الموضوع : sniperser

كود لجلب إسم النافذة النشطة
ضع تكست و زر

كود :
'Author: Sniperser
'Date Submitted: 10/07/2007
'Compatibility: VB 6
'Task: جلب إسم النافذة
'Declarations

Dim blnChoose As Boolean
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As
Long, ByVal yPoint As Long) As Long
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 ClientToScreen Lib "user32" (ByVal hwnd As Long,
lpPoint As POINTAPI) As Long
ضع هذا في الموديل

كود :
Type POINTAPI
x As Long
y As Long
End Type
في الفورم

كود :
Private Sub Command1_Click()
blnChoose = True
intRetVal = SetCapture(hwnd)
End Sub
Private Sub Form_Load()
blnChoose = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim window As Long
Dim buffer As String * 1024
Dim ptPoint As POINTAPI
If blnChoose Then
ptPoint.x = x
ptPoint.y = y
retval = ClientToScreen(hwnd, ptPoint)
window = WindowFromPoint(ptPoint.x, ptPoint.y)
lngRetVal = GetWindowText(window, buffer, 1024)
Text1.Text = buffer
End If
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قراءة بيانات من الذاكرة RaggiTech 0 338 17-10-12, 02:51 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 312 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لجعل النافذة تضيء (Flash Window) RaggiTech 0 377 17-10-12, 02:20 PM
آخر رد: RaggiTech
  لاستغلالة النافذة About الخاصة بالويندوز في تطبيقاتنا RaggiTech 0 338 17-10-12, 02:19 PM
آخر رد: RaggiTech
  معرفة عنوان النافذة النشطة الآن RaggiTech 0 383 17-10-12, 01:08 AM
آخر رد: RaggiTech
  قراءة ملف txt في مربع نصي RaggiTech 0 361 17-10-12, 12:50 AM
آخر رد: RaggiTech
  تطبيق كامل منقول - قراءة وتعديل صورة Jpeg RaggiTech 0 444 17-10-12, 12:35 AM
آخر رد: RaggiTech
  [عنوان معدل] لملئ الشاشة ( الفورم ملائمة للشاشة ) vb 6 B3dak Hbebe 0 1,569 23-09-12, 08:10 PM
آخر رد: B3dak Hbebe

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم