[محمد اسماعيل]

السلام عليكم ورحمة الله وبركاتة

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

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

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


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

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

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

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

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

[smalw]

(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+فورم التظليل  وهكذا لاخر واجهة .

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