تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اخفاء واظهار الفورم من يمين الشاشة
#1
السلام عليكم ورحمة الله وبركاته
ارجو التكرم والمساعدة بكيفية اخفاء واظهار الفورم من يمين الشاشة، مثل لوحة المفاتيح في شاشات اللمس..
بحيث يبقى جزء بسيط ظاهر عند الإخفاء لإعادة الاظار لكامل الفورم .. 
وشكرا
الرد
تم الشكر بواسطة:
#2
(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
الرد
#3
السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..
الرد
تم الشكر بواسطة: 3booody , asemshahen5
#4
(18-12-19, 02:57 PM)Mohammed Nafa كتب : السلام عليكم ورحمة الله وبركاته ..
أشكركم ، وأرجو بعض التوضيح ،
انا اتعامل مع form واحد لماذا يوجد form2 . فقد ظهر الفورم من على اليمين ولكن لم استطيع بالنقر اظهاره .
وبارك الله بكم ..

الكود لform1
لا يوجد form2
تاكد من وجود الجزء Handles Me.Click
الرد
#5
بارك الله بكم
الرد
تم الشكر بواسطة: asemshahen5
#6
السلام عليكم ورحمة الله وبركاته،
بارك الله بكم،
قمت بتطيق الكود والنتيجه كانت ممتازه، ولكن واجهت مشكلة في جهاز ذو شاشتين ، انه في حال اختفاء الفورم من الاولى فانه ينتقل للثانية ويظهر فيها، هل ممكن حل هذه المشكلة ،،، ام لا بد من اخفاءه يسارا او من الاسفل ، وان كانت الجهة اليمنى هي المفضل ،،،
وبارك الله بكم
الرد
تم الشكر بواسطة: محمد كريّم , asemshahen5
#7
(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
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#8
بارك الله بكم وجزاكم عنا كل خير ...
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن طريقة اخفاء ملف bat عند ضغط على زر في اداة jam3h 10 186 25-09-20, 02:55 PM
آخر رد: Anas Mahmoud
  فتح الفورم على حسب مقاس الشاشة khaled Mohammed 2 130 17-09-20, 02:44 AM
آخر رد: mrfodri
  [VB.NET] اخفاء فروم الـ login - واظهار الفروم التالي Sanaa2 3 134 17-09-20, 01:37 AM
آخر رد: Sanaa2
  عدم ظهور التغييرات على الفورم aftfm 7 282 30-08-20, 10:04 PM
آخر رد: aftfm
  [VB.NET] ايرور عند فتح الفورم نضال ابو العافيه 2 246 19-08-20, 08:21 PM
آخر رد: نضال ابو العافيه
  [ تمّ الحل ] : جعل الآلة الحاسبة بمقدّمة الشاشة عبد العزيز البسكري 12 544 16-08-20, 03:26 AM
آخر رد: مصمم هاوي
  [سؤال] اخفاء عنصر من صفحة العمل دون حذفه عبد الهادي بهاب 2 264 14-08-20, 06:58 PM
آخر رد: عبد الهادي بهاب
  هل من طريقه لوضع صوره فى الفورم الرئيسي midparint خالد كامل1 11 632 05-08-20, 04:54 AM
آخر رد: خالد كامل1
  سؤال : هل من الممكن تفريغ الفورم حول صورة لتظهر الصورة فقط بدون خلفية او ظهور الفورم xprogrammer 2 294 28-07-20, 11:17 AM
آخر رد: Anas Mahmoud
  ماهي طريقة حفظ التعديلات على الفورم عند اعادة تشغيل المشروع العطر الرايق 2 517 07-07-20, 02:10 AM
آخر رد: العطر الرايق

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم