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

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

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

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

كود :

       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 "

وشكرا ....

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

قم بانشاء هذا الكود

كود :

   Public Function OpenForm(Frm As Form) As Form

        Frm.ShowDialog()

        Return Frm

    End Function

وعند الاستخدام

كود :

       OpenForm(New Form2)

تحياتى لك

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

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

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

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

تحياتى لك

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

khalid475