[Mohammed Naffa]

السلام عليكم ورحمة الله وبركاته
ارجو التكرم والمساعدة بكيفية اخفاء واظهار الفورم من يمين الشاشة، مثل لوحة المفاتيح في شاشات اللمس..
بحيث يبقى جزء بسيط ظاهر عند الإخفاء لإعادة الاظار لكامل الفورم .. 
وشكرا

[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

[Mohammed Nafa]

السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..

[smalw]

(18-12-19, 02:57 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..

الكود لform1
لا يوجد form2
تاكد من وجود الجزء Handles Me.Click

[Mohammed Nafa]

بارك الله بكم

[Mohammed Naffa]

السلام عليكم ورحمة الله وبركاته،
بارك الله بكم،
قمت بتطيق الكود والنتيجه كانت ممتازه، ولكن واجهت مشكلة في جهاز ذو شاشتين ، انه في حال اختفاء الفورم من الاولى فانه ينتقل للثانية ويظهر فيها، هل ممكن حل هذه المشكلة ،،، ام لا بد من اخفاءه يسارا او من الاسفل ، وان كانت الجهة اليمنى هي المفضل ،،،
وبارك الله بكم

[smalw]

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

ع اساس عرض الفورم = 300 عدلته حسب عرض الفورم عندك

كود :

Public Class Form1

    Dim screenwidth = Screen.PrimaryScreen.WorkingArea.Width
    Dim screenheight = Screen.PrimaryScreen.WorkingArea.Height

    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
        Me.Width = 5
    End Sub

    Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
        If Me.Width = 5 Then
            Me.Left = screenwidth - 300
            Me.Width = 300
        Else
            Me.Left = screenwidth - 5
            Me.Width = 5
        End If
    End Sub

End Class

[Mohammed Nafa]

بارك الله بكم وجزاكم عنا كل خير ...