منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اخفاء واظهار شريط المهام .؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اخفاء واظهار شريط المهام .؟ (/showthread.php?tid=6692)

اخفاء واظهار شريط المهام .؟ - mmg - 25-10-12

السلام عليكم ،،

فيه طريقة اخفاء شريط المهام ؟
واعادة اظهاره ؟؟
vb net
2012

اخفاء واظهار شريط المهام .؟ - محترف البرمجة اوي - 26-10-12

ياليت نعرف الكود حتى على 2010

اخفاء واظهار شريط المهام .؟ - kslawy - 26-10-12

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

عيد سعيد وكل عام وأنتم بخير

كود :
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

شكرا عزيزي بس اعتقد يحتاج تنقيح الكود شوي

الكود يعمل بس يحتاج تضبيط شوي شوف الصورة توضح اكثر







ممكن تعديل الكود للكود الصحيح

اخفاء واظهار شريط المهام .؟ - kslawy - 26-10-12

كود :
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 Sub


اخفاء واظهار شريط المهام .؟ - محترف البرمجة اوي - 27-10-12

شكرا على التعديل اخي الكريم