تقييم الموضوع :
  • 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 384 17-10-12, 02:51 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 385 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لجعل النافذة تضيء (Flash Window) RaggiTech 0 433 17-10-12, 02:20 PM
آخر رد: RaggiTech
  لاستغلالة النافذة About الخاصة بالويندوز في تطبيقاتنا RaggiTech 0 416 17-10-12, 02:19 PM
آخر رد: RaggiTech
  معرفة عنوان النافذة النشطة الآن RaggiTech 0 437 17-10-12, 01:08 AM
آخر رد: RaggiTech
  قراءة ملف txt في مربع نصي RaggiTech 0 416 17-10-12, 12:50 AM
آخر رد: RaggiTech
  تطبيق كامل منقول - قراءة وتعديل صورة Jpeg RaggiTech 0 518 17-10-12, 12:35 AM
آخر رد: RaggiTech
  [عنوان معدل] لملئ الشاشة ( الفورم ملائمة للشاشة ) vb 6 B3dak Hbebe 0 1,799 23-09-12, 08:10 PM
آخر رد: B3dak Hbebe

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


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