[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