+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اخفاء واظهار الفورم من يمين الشاشة (/showthread.php?tid=32567)
اخفاء واظهار الفورم من يمين الشاشة - Mohammed Naffa - 18-12-19
السلام عليكم ورحمة الله وبركاته
ارجو التكرم والمساعدة بكيفية اخفاء واظهار الفورم من يمين الشاشة، مثل لوحة المفاتيح في شاشات اللمس..
بحيث يبقى جزء بسيط ظاهر عند الإخفاء لإعادة الاظار لكامل الفورم ..
وشكرا
RE: اخفاء واظهار الفورم من يمين الشاشة - smalw - 18-12-19
(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
RE: اخفاء واظهار الفورم من يمين الشاشة - Mohammed Nafa - 18-12-19
السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..
RE: اخفاء واظهار الفورم من يمين الشاشة - smalw - 18-12-19
(18-12-19, 02:57 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..
الكود لform1
لا يوجد form2
تاكد من وجود الجزء Handles Me.Click
RE: اخفاء واظهار الفورم من يمين الشاشة - Mohammed Nafa - 18-12-19
بارك الله بكم
RE: اخفاء واظهار الفورم من يمين الشاشة - Mohammed Naffa - 18-12-19
السلام عليكم ورحمة الله وبركاته،
بارك الله بكم،
قمت بتطيق الكود والنتيجه كانت ممتازه، ولكن واجهت مشكلة في جهاز ذو شاشتين ، انه في حال اختفاء الفورم من الاولى فانه ينتقل للثانية ويظهر فيها، هل ممكن حل هذه المشكلة ،،، ام لا بد من اخفاءه يسارا او من الاسفل ، وان كانت الجهة اليمنى هي المفضل ،،،
وبارك الله بكم
RE: اخفاء واظهار الفورم من يمين الشاشة - smalw - 19-12-19
(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 ClassRE: اخفاء واظهار الفورم من يمين الشاشة - Mohammed Nafa - 19-12-19
بارك الله بكم وجزاكم عنا كل خير ...