منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طريقة تصغير المشروع - نسخة قابلة للطباعة

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

طريقة تصغير المشروع - محمد بوقزاحة - 30-01-22

السلام عليكم ورحمة الله 
 ارجو مساعدتي 
عند الضغط على الزر  CancelButton       x لاغلاق المشروع
  او الضغط  -  لتصغير الشروع لاسفل شريط المهام
 يتم وضع المشروع  اسفل شريط المهام بالقرب من ساعة الجهاز

RE: طريقة تصغير المشروع - Taha Okla - 30-01-22

وعليكم السلام ورحمة الله وبركاته:
قم باضافة اداة (NotifyIcon1) الى مشروعك واستخدم الاكواد التالية :

كود :
       Private Sub NotifyIcon1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Me.Show()
        NotifyIcon1.Visible = False
        Me.WindowState = FormWindowState.Normal
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NotifyIcon1.Icon = Me.Icon
        '  NotifyIcon1.BalloonTipIcon = "Info"      ' هذا غيره في خصائص الاداة وليس في الكود
        NotifyIcon1.BalloonTipText = "Hello Taha"
        NotifyIcon1.Visible = False
    End Sub

    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.Hide()
            NotifyIcon1.Visible = True
        End If
    End Sub

ملاحظة بالنسبة للاكود في حدث تحميل النافذة يمكنك تغييرها في خصائص الأداة دون الحاجة لكتابتها في هذا الحدث .

RE: طريقة تصغير المشروع - محمد بوقزاحة - 31-01-22

شكرا اخي الكريم