السلام عليكم ورحمة الله وبركاته
ارجو التكرم والمساعدة بكيفية اخفاء واظهار الفورم من يمين الشاشة، مثل لوحة المفاتيح في شاشات اللمس..
بحيث يبقى جزء بسيط ظاهر عند الإخفاء لإعادة الاظار لكامل الفورم ..
وشكرا
(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
السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..
(18-12-19, 02:57 PM)Mohammed Nafa كتب : [ -> ]السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..
الكود لform1
لا يوجد form2
تاكد من وجود الجزء Handles Me.Click
السلام عليكم ورحمة الله وبركاته،
بارك الله بكم،
قمت بتطيق الكود والنتيجه كانت ممتازه، ولكن واجهت مشكلة في جهاز ذو شاشتين ، انه في حال اختفاء الفورم من الاولى فانه ينتقل للثانية ويظهر فيها، هل ممكن حل هذه المشكلة ،،، ام لا بد من اخفاءه يسارا او من الاسفل ، وان كانت الجهة اليمنى هي المفضل ،،،
وبارك الله بكم
(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
بارك الله بكم وجزاكم عنا كل خير ...