• 0
سلمى محمد

التحكم فى مكونات برنامج اخر بــ API

سؤال

السلام عليكم ورحمة  الله 

مساعدة فى فى التحكم فى ادوات البرنامج من خلال دوال api 

استخدم هذا الكود

Public Class Form2Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer    Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer    Declare Auto Function GetWindowTextLength Lib "user32" (ByVal hWnd As IntPtr) As Integer    Public Delegate Function funcCallBackParent(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean    Friend Declare Function EnumChildWindows Lib "User32" (ByVal hWndParent As IntPtr, ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As Boolean    Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer    Declare Auto Function SetWindowText Lib "user32" (ByVal hWnd As IntPtr, ByVal Text As String) As Boolean    Public Declare Function EnableWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal fEnable As Long) As Long    Public Const EW_Enable = 1    Public Const EW_DISABLE = 0        Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load    End Sub    Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long        Dim Str As New System.Text.StringBuilder        Str.Capacity = GetWindowTextLength(hwnd) + 1        GetWindowText(hwnd, Str, Str.Capacity)        ListBox1.Items.Add(Str.ToString)        EnumChildProc = 1        ShowWindow(hwnd, 0)    End Function    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged        ListBox1.Items.Clear()        If CheckBox1.Checked = True Then            Timer1.Enabled = True            else        End If    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        If CheckBox1.Checked = True Then            TextBox1.Text = FindWindow(Nothing, "frm_cd")            EnumChildWindows(TextBox1.Text, AddressOf EnumChildProc, IntPtr.Zero)            Timer1.Enabled = False        End If    End SubEnd Class

هذا كود يقوم بقراءة النافذة عنوانها frm_cd

 

ويظهر جميع ادواتها فى listbox 

ويخفى جميع الادوات من خلال 

ShowWindow(hwnd, 0)

 
اريد مساعدة فى استخدام دالة Windowsenable بدلا من ShowWindow لتفعيل جميع ادوات الفورم بدلا من أخفاءها 
تم تعديل بواسطه سلمى محمد
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .