منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال بخصوص فتح الشاشات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=29489)



سؤال بخصوص فتح الشاشات - khalid475 - 25-04-19

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

أخواني الأعزاء ....

كيف أضع الكود التالي في موديول : 


كود :
       Dim frm As FrmManage_CountriesAndCities = New FrmManage_CountriesAndCities()
       frm.ShowDialog()


حاولت أكتبه في موديل كالتالي : 



كود :
   Public Sub OpenForm(ByVal Frm As Form)
       Frm = New Frm()
       frm.ShowDialog()
   End Sub


ولكن يظهر خطأ وهو : 

" Type 'Frm' is not defined "


وشكرا .... 


RE: سؤال بخصوص فتح الشاشات - elgokr - 25-04-19

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


قم بانشاء هذا الكود
كود :
   Public Function OpenForm(Frm As Form) As Form
       Frm.ShowDialog()
       Return Frm
   End Function

وعند الاستخدام
كود :
       OpenForm(New Form2)


تحياتى لك
وتمنياتى لك التوفيق



RE: سؤال بخصوص فتح الشاشات - khalid475 - 25-04-19

أشكرك جزيل الشكر أخي الكريم


RE: سؤال بخصوص فتح الشاشات - elgokr - 25-04-19

الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق