+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم (/showthread.php?tid=17777)
كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم - allobaed - 25-10-16
الاخوة الكرام
السلام عليكم و رحمة الله
استعملت الكود التالي لتحديد جميع التكست بوكس و تعطيلها عند تحميل الفورم
Private Sub Form_Load()
Dim ztext As TextBox
i = 0
For Each ztext In Texts
Text(i).Locked = True
i = i + 1
Next
End Sub
و لكن تظهر رسالة الخطاء التالية ( object required )
فما السبب ايها الاخوة الكرام
و اليكم مرفق
RE: كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم - Ahmed_Mansoor - 25-10-16
وعليك السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هاذي الطريقة الصحيحه لفكرة كودك :
PHP كود :
Private Sub Form_Load()
Dim zText As TextBox
For Each zText In Controls
If TypeOf zText Is TextBox Then zText.Locked = True
Next
End Sub
RE: كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم - allobaed - 25-10-16
بارك الله لك في عمرك و جعله في طاعته
طيب سؤال
لو كان عندي combo.box في نفس الفريم و اريد ايضا تعطيلها
كيف اصنع..... كما في المثال الرفق سابقا
RE: كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم - Ahmed_Mansoor - 25-10-16
أهلا أخي الكريم , هذا الكود هو لكل أداة موجودة على الفورم وتستطيع تحدد نوع الأداة التي تريد تغيير خصائصها بواسطه إستخدام الكلمة TypeOf , هذا الكود يوضح كيف حددنا نوع أدوات التكست بوكس والكومبو بوكس وباقي أنواع الأداوات بنفس الطريقة :
PHP كود :
Private Sub Form_Load()
Dim zControl As Control
For Each zControl In Controls
If TypeOf zControl Is TextBox Then zControl.Locked = True
If TypeOf zControl Is ComboBox Then zControl.Enabled = False
Next
End Sub
RE: كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم - allobaed - 25-10-16
قال طرفة بن العبد
إذا كنتَ، في حاجةٍ، مُرْسِلاً،
فأرْسِلْ حَكِيماً، ولا تُوصِهِ
وإنْ ناصِحٌ منكَ، يوماً، دَنا،
فلا تَنْأ عنه، ولاتُقْصِهِ
وإنْ بابُ أمْرٍ، عليكَ، التَوَى،
فشاوِرْ لَبيباً، ولا تَعْصِهِ
هدية لك هذه الابيات الماتعة........ مشكورا اخي الغالي ولن ابالغ في المدح لان الرسول وصى بعدم المبالغة به
وَرُوِيَ عَنْ النَّبِيِّ - صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ - أَنَّهُ قَالَ: «إيَّاكُمْ وَالتَّمَادُحَ فَإِنَّهُ الذَّبْحُ إنْ كَانَ أَحَدُكُمْ مَادِحًا أَخَاهُ لَا مَحَالَةَ فَلْيَقُلْ أَحْسَبُ وَلَا أُزَكِّي عَلَى اللَّهِ أَحَدًا» .
[b]وَقَالَ عُمَرُ بْنُ الْخَطَّابِ - رَضِيَ اللَّهُ عَنْهُ - الْمَدْحُ ذَبْحُ.
[/b]
[b]وَقَالَ ابْنُ الْمُقَفَّعِ: قَابِلُ الْمَدْحِ كَمَادِحِ نَفْسِهِ. [/b]