منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : فتح اكتر من واجهة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاتة

عملت برنامج بسيط بية واجهة رئيسية وواجهة تظليل وواجهة اخري تمام

طيب المشكلة اني لوعملت الواجهات top most   بتظهر رسائل البرامج الاخري خلفها.

والمشكلة التانية لو مش top most  اي برنامج اخر بيفتح بيدخل بين واجهات برنامجي .


والمشكلة الثالثة بيحصل خطأ باي كود موجود بالواجهة لو فتحت اكتر من واجهة .

ماهي افضل طريقتين للاتي :-

1- فتح اكتر من واجهة   ولا يوجد فورم تظليل ممكن 4 او 5 واجهات
2- فتح اكتر من واجهة في حالة فورم تظليل

حاولت بالطريقة دية
      
MAIN.ShowDialog(Me)
مش عارف المشكلة افضل طريقة ليها اية

بالمرفقات برنامج بسيط مع واجهة التظليل
(20-12-19, 08:58 PM)محمد اسماعيل كتب : [ -> ]السلام عليكم ورحمة الله وبركاتة

عملت برنامج بسيط بية واجهة رئيسية وواجهة تظليل وواجهة اخري تمام

طيب المشكلة اني لوعملت الواجهات top most   بتظهر رسائل البرامج الاخري خلفها.

والمشكلة التانية لو مش top most  اي برنامج اخر بيفتح بيدخل بين واجهات برنامجي .


والمشكلة الثالثة بيحصل خطأ باي كود موجود بالواجهة لو فتحت اكتر من واجهة .

ماهي افضل طريقتين للاتي :-

1- فتح اكتر من واجهة   ولا يوجد فورم تظليل ممكن 4 او 5 واجهات
2- فتح اكتر من واجهة في حالة فورم تظليل

حاولت بالطريقة دية
      
MAIN.ShowDialog(Me)
مش عارف المشكلة افضل طريقة ليها اية

بالمرفقات برنامج بسيط مع واجهة التظليل


اول خطوه الغ الخاصيه tomost من كل الفورم لانها حتسبب لك مشاكل مع البرامج الاخرى

ضع هذا الكود في في الفورم DARKFORMSHOW
كود :
Public Class DARKFORMSHOW

   Private Sub DARKFORMSHOW_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.BackColor = Color.FromArgb(40, 53, 65)
       Me.ShowInTaskbar = False
       Me.Opacity = 0.8
       Me.FormBorderStyle = FormBorderStyle.None
       Me.Size = New Size(Owner.Width, Owner.Height)
       Me.StartPosition = FormStartPosition.Manual
       Me.Location = New Point(Owner.Left, Owner.Top)
   End Sub

End Class

تحتاج فقط لهذا الكود
كود :
Public Class MAIN

   Private Sub BT_CLOSE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CLOSE.Click
       Try
           Application.Exit()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub BT_OPENFORM2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_OPENFORM2.Click
       DARKFORMSHOW.Show(Me)
       form3.ShowDialog(Me)
   End Sub

End Class
لو وضعت المثال يشمل فكرتك في تعدد الواجهات كان افضل
لو وضعت المثال يشمل فكرتك في تعدد الواجهات كان افضل ؟

ج- هوا نفس الشيء فقط بدل 3 واجهات 6 او سبع علي حسب مفيش تغير في شيء .

بمعني لو 6 واجهات

هيبقي 1 + فورم التظليل +2 +فورم التظليل + 3+فورم التظليل+4+فورم التظليل  وهكذا لاخر واجهة .

هل الطريقة نفس الشيء او النظام الي وضحتة.