تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخفاء واظهار شريط المهام .؟
#1
السلام عليكم ،،

فيه طريقة اخفاء شريط المهام ؟
واعادة اظهاره ؟؟
vb net
2012
الرد }}}}
تم الشكر بواسطة:
#2
ياليت نعرف الكود حتى على 2010
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

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

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



****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#4
شكرا عزيزي بس اعتقد يحتاج تنقيح الكود شوي

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







ممكن تعديل الكود للكود الصحيح
الرد }}}}
تم الشكر بواسطة:
#5
كود :
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
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#6
شكرا على التعديل اخي الكريم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد اخفاء البيانات من الفورم أثناء بداية عمل البرنامج أبووسم 6 192 12-03-17, 03:42 AM
آخر رد: أبووسم
  اخفاء برنامج بعد استدعائه وتشغيله moshax 4 193 07-02-17, 09:53 PM
آخر رد: moshax
  اخفاء شاشه sqlserver login fail Incubus 1 166 28-01-17, 02:07 PM
آخر رد: thevirus
  كود تحريك نص في شريط عنوان النافذة atefkhalf2004 2 2,374 05-01-17, 11:47 PM
آخر رد: asdsoft
  كيف يمكن اخفاء حقل من كريستال ريبور السيد الجوهري 0 144 18-12-16, 04:38 PM
آخر رد: السيد الجوهري
  شريط تقدم مرتبط بزمن نسخ الملفات atefkhalf2004 1 186 05-12-16, 10:47 PM
آخر رد: adel27
  اظهار او اخفاء الرسائل للمستخدم العواد الصغير 11 422 09-11-16, 06:43 PM
آخر رد: العواد الصغير
  اخفاء صورة من ريبورت فيور hglogtd 3 361 26-09-16, 09:08 AM
آخر رد: hglogtd
  طلب تصحيح كود اخفاء عمود طالب 22 4 229 15-07-16, 09:37 PM
آخر رد: khodor1985
Exclamation [VB.NET] سؤال حول عمل شريط متحرك jamalalzyadi 1 479 19-01-16, 10:38 PM
آخر رد: jamalalzyadi

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


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