منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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