السلام عليكم ورحمة الله وبركاتة
بالنسبة لل sub
Sub New()
MyBase.New()
If x = 1 Then
codeeeeeeeeeeeeeeeeeee
End If
End Sub
دلوقتي كل ما افتح الفورمة ال سب بيشتغل
ودة تمام طيب انا عايز ادوس علي زار اروح للسب دة
السب من غير اسم
عمل رن ل Sub New
السلام عليكم
لما تعوز تروح للساب تنده عليه من زرار
هتدوس على الزرار دابل كليك
وتكتب تحتيه
New
بس كده
كده الكود اللى تحت الساب اللى إسمه New
هيتنفذ كله
عندما تضيق بك الدنيا فلا تقل يارب عندى هم كبير ولكن قل يا هم عندى رب كبيييير
اللهم إنى أتيت بابك مستغفراً فإن غفرت لى وأدخلتنى فأنت أهلٌ لذلك
وإن لم تغفر لى وطردتنى فأنا أهلٌ لذلك
اولا شكرا علي ردك
new
اية طيب
انا كتب new اعترض
لا يمكنك استدعاء هذا الإجراء من داخل الفورم إلا عن طريق إنشاء نسخة جديدة من الفورم
Dim X As New Form1
أو إستدعاء هذا الإجراء من داخل إجراء آخر بنفس الإسم أى New
غير ذلك فلا يمكن
الكود الذى تريد استدعاءه لماذا لا تضعه فى إجراء آخر وتستدعى هذا الإجراء من أى مكان فى الفورم؟
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أخى الكريم بص إنت كاتب ساب إسمه نيو
بلاش تكتب إسمه نيو لأن هناك أوبجكت فى الدوت نت إسمه نيو
إكتب أى اسم تانى
وتانى حاجة لازم تكتب الساب فى الموديول
علشان تقدر تنده عليه من أى مكان فى المشروع
ولو كتبته تحت فورم ماتقدرش تنده عليه غير من على الفورم ديه فقط
وده برنامج مرفق عملته ليك علشان تشوفه وتشوف الكود بتاعة وهتلاقينى كاتبلك فيه الشرح بتاع الكود
وإن شاء الله هتفهم على طول
يارب يفيدك ويضيف لمعلوماتك يا أخى
عندما تضيق بك الدنيا فلا تقل يارب عندى هم كبير ولكن قل يا هم عندى رب كبيييير
اللهم إنى أتيت بابك مستغفراً فإن غفرت لى وأدخلتنى فأنت أهلٌ لذلك
وإن لم تغفر لى وطردتنى فأنا أهلٌ لذلك
فقط تصحيحا للمعلومة أخى حسام
اقتباسبلاش تكتب إسمه نيو لأن هناك أوبجكت فى الدوت نت إسمه نيو
New ليس أوبجكت وإنما هو إجراء مثل باقى الإجراءات لكن له دلالة خاصة مثل الإجراء Main
New ليس كائن وإنما منشئ أو مهيئ الكائن Object Constructor / Initializer
اقتباسوتانى حاجة لازم تكتب الساب فى الموديولعلشان تقدر تنده عليه من أى مكان فى المشروع
ولو كتبته تحت فورم ماتقدرش تنده عليه غير من على الفورم ديه فقط
ممكن تكتبه فى أى مكان حتى داخل الفورم بشرط أن يكون Public أو Friend إذا أردت استخدامه داخل المشروع الحالى فقط
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
السلام عليكم ورحمة الله وبركاتة
شكرا اخي حسام وشكرا علي تعبتك معايا
بس زي ما قال الاخ ghost
بس ال الساب اهو
Sub New()
MyBase.New()
If x = 1 Then
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("AR-EG")
System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("AR-EG")
InitializeComponent()
ElseIf 2 Then
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-GB")
System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-GB")
InitializeComponent()
End If
End Sub
التغير بيتم عن طريق المتغير x
انا عايز بقي زرار في نفس الشاشة لما ادوس علية يغير القيمة بتاعت x=2
دة عادي
عايز بعد كدة اروح للساب علسان اعمل mybase
وبعد كدة يروح علي اللغة الخاصة بة
وشكرا جزيلا
السلام عليكــم ورحمـة الله وبركاتــه ،،
قم بعزل الجزء الخاص بتغيير اللغة فى إجراء منفصل وقم باستدعاءه من أى مكان داخل الفورم
- Sub New()
- MyBase.New()
- InitializeComponent()
- ChangeLanguage()
- End Sub
- Private Sub ChangeLanguage()
- If x = 1 Then
- System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("AR
-EG") - System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("
AR-EG") - ElseIf x = 2 Then
- System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en
-GB") - System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("
en-GB") - End If
- End Sub
تم تعديل هذه المشاركة بواسطة GHOST2010 في 13 أكتوبر 2009 في 15:53
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال