[smalw]

(18-12-19, 12:06 AM)Mohammed Naffa كتب : السلام عليكم ورحمة الله وبركاته
ارجو التكرم والمساعدة بكيفية اخفاء واظهار الفورم من يمين الشاشة، مثل لوحة المفاتيح في شاشات اللمس..
بحيث يبقى جزء بسيط ظاهر عند الإخفاء لإعادة الاظار لكامل الفورم .. 
وشكرا

كود :

Public Class Form1

   Dim screenwidth = Screen.PrimaryScreen.WorkingArea.Width
   Dim screenheight = Screen.PrimaryScreen.WorkingArea.Height
   Dim display As Boolean = False

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
       Me.Top = screenheight - Me.Height - 5
       Me.Left = screenwidth - 5
   End Sub

   Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
       If display Then
           For x = screenwidth - Me.Width To screenwidth - 5 Step +1
               Me.Left = x
           Next
           display = False
       Else
           For x = screenwidth - 5 To screenwidth - Me.Width Step -1
               Me.Left = x
           Next
           display = True
       End If
   End Sub

End Class

---

لا تنسى وضع خاصيه الفورم topmost على true