25-10-12, 08:05 PM
26-10-12, 06:19 PM
ياليت نعرف الكود حتى على 2010
26-10-12, 07:54 PM
السلام عليكم ورحمة الله وبركاته
عيد سعيد وكل عام وأنتم بخير
****
***
**
*
عيد سعيد وكل عام وأنتم بخير
كود :
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim taskBar As Integer
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Hide" Then
Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW))
Button1.Text = "Show"
Else
Debug.Write(SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW))
Button1.Text = "Hide"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
taskBar = FindWindow("Shell_traywnd", "")
End Sub****
***
**
*
26-10-12, 09:26 PM
شكرا عزيزي بس اعتقد يحتاج تنقيح الكود شوي
الكود يعمل بس يحتاج تضبيط شوي شوف الصورة توضح اكثر
ممكن تعديل الكود للكود الصحيح
الكود يعمل بس يحتاج تضبيط شوي شوف الصورة توضح اكثر
ممكن تعديل الكود للكود الصحيح
26-10-12, 10:29 PM
كود :
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Dim taskBar As Integer
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Hide" Then
SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_HIDEWINDOW)
Button1.Text = "Show"
Else
SetWindowPos(taskBar, 0&, 0&, 0&, 0&, 0&, SWP_SHOWWINDOW)
Button1.Text = "Hide"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
taskBar = FindWindow("Shell_traywnd", "")
End Sub27-10-12, 10:45 AM
شكرا على التعديل اخي الكريم