السلام عليكم
هل يمكن حفظ معلومات الزر في String
اي اسمه والوظيفة التي يأديها
مثال عندنا زر بهذا الشكل
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = "hh"
End Sub
السلام عليكم اخي الكريم
الامر متوقف على كيفية ومكان الحفظ
1- يمكن كتابة وظيفة الزر واسمه كـ comment
2 - يمكنك كتابة اسماء الازرار ووظائفها في ملف text يرفق بالمشروع
3 - يمكنك حفظ اسماء الازرار ووظائفها في ملف في قاعدة بيانات
4 - يمكنك حفظ اسماء الازرار ووظائفها في ملف الـ help
الامر بسيط والاختيار لك
ضع مثال لما تريد أن يكون داخل String ليتضح المطلوب أكثر
شكرا لكم
انا قصدي كالتالي
مثال
كود :
Dim bidaya As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = "hh"
End Sub
هنا السؤال
هل يمكن حفظ اسم ووظيفة الزر في bidaya
اي ان bidaya يعتبر String
شكرا لكم وان كان هناك فكرة مشابهة افيدونا
وعليكم السلام ورحمة الله وبركاته
اهلاً بك اخى bidaya
تفضل اخى المثال يوضح كيفية الاستخدام
كود :
Private bidaya As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
bidaya = "hh"
End Sub
الان يمكنك استخدام جملة
لتمريرها داخل اى حدث اخر ليقوم بتنفيذ القيمة التى بداخلها مثل
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = bidaya
End Sub
تحياتى لك
وتمنياتى لك التوفيق
(12-09-18, 07:32 AM)elgokr كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
اهلاً بك اخى bidaya
تفضل اخى المثال يوضح كيفية الاستخدام
كود :
Private bidaya As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
bidaya = "hh"
End Sub
الان يمكنك استخدام جملة
لتمريرها داخل اى حدث اخر ليقوم بتنفيذ القيمة التى بداخلها مثل
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = bidaya
End Sub
تحياتى لك
وتمنياتى لك التوفيق
في هذه الحالة اخي TextBox يحمل فقط hh الي هياقيمة bidaya
انا اريد حفظ كامل المعلومات اي الاسم والوظيفة؟
وان كانت هناك طريقة اخرى فهذا جيد
وشكرا
ربما تكون الفكرة غير واضحة للاخوان
انا عندي عدة ازرار في البرنامج
وعندي هذا الشرط في البرنامج
كود :
If txt10 = "anes" Then
Button2.Enabled = False
Button2.Text = "Thank you"
Else
Button1.Enabled = False
Button1.Text = "Thank you"
End If
اريد اختصار الامر كل مرة اعمل
كود :
Button2.Enabled = False
Button2.Text = "Thank you"
لذا ابحث على طريقة اجلب اسم الزر واعطيه القيمة التي اريد
اهلاً بك اخى bidaya
لاتمام هذا كل ما عليك فعله التالى
قم باستخدام هذا الـ
Sub
كود :
Sub RunText(ByRef Bt As Button, ByVal Text As String)
Bt.Enabled = False
Bt.Text = Text
End Sub
وتعال فى المكان المراد تنفيذ الـ
Sub وطبق الكود التالى
كود :
RunText(Button1, "Thank you")
اتمنى ان يكون الكود بسيط لك
وانك قادر على التعامل معه
تحياتى لك
وتمنياتى لك التوفيق
(12-09-18, 09:39 PM)elgokr كتب : [ -> ]اهلاً بك اخى bidaya
لاتمام هذا كل ما عليك فعله التالى
قم باستخدام هذا الـ Sub
كود :
Sub RunText(ByRef Bt As Button, ByVal Text As String)
Bt.Enabled = False
Bt.Text = Text
End Sub
وتعال فى المكان المراد تنفيذ الـ Sub وطبق الكود التالى
كود :
RunText(Button1, "Thank you")
اتمنى ان يكون الكود بسيط لك
وانك قادر على التعامل معه
تحياتى لك
وتمنياتى لك التوفيق
اجل اخي الكريم هو كود جميل
لكن لمذا نكتب في المكان المراد تنفيذ الSub
RunText(Button1, "Thank you")
لمذا لم يتم ادخال كلمة
"Thank you"
داخل ال Sub
هذا افظل
اي بهذا الشكل
كود :
Sub RunText(ByRef Bt As Button)
Bt.Enabled = False
Bt.Text = "Thank you"
End Sub
السلام عليكم ورحمه الله وبركاته
تحية غالية لكل اعضاء و مشرفى المنتدى الكرام
اخى انطر الى المرفق التالى (مثال اعدته لك الان )
[
attachment=19466]
تحياتى للجميع