[bidaya]

(17-10-20, 01:24 AM)mustaf كتب :

(17-10-20, 01:12 AM)bidaya كتب :

(17-10-20, 12:52 AM)mustaf كتب : ما الامر الذي تكتبه لتكبير الفورم وتسبب في (تغطية الشريط السفلي للويندوز) على حد قولك؟

لان تكبير الفورم ب FormWindowState.Maximized لا يغطي شريط المهام الخاص بالويندوز

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If Me.WindowState = FormWindowState.Maximized Then
       Me.WindowState = FormWindowState.Normal
   Else
       Me.WindowState = FormWindowState.Maximized
   End If
End Sub

  جرب الفورم بوضع  FormBorderStyle.None

---

أهااااا فهمت الان ما تقصد

وجدت الحل في هذا الفيدو وقمت بتحويله الى vb.net

كود :

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.MaximizedBounds = Screen.FromHandle(Me.Handle).WorkingArea
       Me.WindowState = FormWindowState.Normal
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Me.WindowState = FormWindowState.Maximized Then
           Me.WindowState = FormWindowState.Normal
       Else
           Me.WindowState = FormWindowState.Maximized
       End If
   End Sub

End Class

الله يحفظك اخي

جعلها الله لك في ميزان الحسنات اخي

 شكرا

[عبد العزيز البسكري]

(17-10-20, 01:24 AM)mustaf كتب :

(17-10-20, 01:12 AM)bidaya كتب :

(17-10-20, 12:52 AM)mustaf كتب : ما الامر الذي تكتبه لتكبير الفورم وتسبب في (تغطية الشريط السفلي للويندوز) على حد قولك؟

لان تكبير الفورم ب FormWindowState.Maximized لا يغطي شريط المهام الخاص بالويندوز

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If Me.WindowState = FormWindowState.Maximized Then
       Me.WindowState = FormWindowState.Normal
   Else
       Me.WindowState = FormWindowState.Maximized
   End If
End Sub

  جرب الفورم بوضع  FormBorderStyle.None

---

أهااااا فهمت الان ما تقصد

وجدت الحل في هذا الفيدو وقمت بتحويله الى vb.net

كود :

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.MaximizedBounds = Screen.FromHandle(Me.Handle).WorkingArea
       Me.WindowState = FormWindowState.Normal
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If Me.WindowState = FormWindowState.Maximized Then
           Me.WindowState = FormWindowState.Normal
       Else
           Me.WindowState = FormWindowState.Maximized
       End If
   End Sub

End Class

بارك الله فيك و جزاك خير الجزاء