هل من الممكن اختصار هذا الكود لان عندي اكثر من 69

#115 ديسمبر 2005 في 22:01 صاحب الموضوع

هل من الممكن اختصار هذا الكود لان عندي اكثر من 69 اداة تكست 69 كامبو

اريد ان تتم عملية اخفاء الكامبو عند الخروج من التكست الى اي عنصر حتى ولو كان الزر او الفورم مع جعل قيمة الكامبو = قيمة التكست

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
Combo1.Visible = False
End Sub
Private Sub Combo2_Click()
Text2.Text = Combo2.Text
Combo2.Visible = False
End Sub
Private Sub Combo3_Click()
Text3.Text = Combo3.Text
Combo3.Visible = False
End Sub
Private Sub Combo4_Click()
Text4.Text = Combo4.Text
Combo4.Visible = False
End Sub
Private Sub Combo5_Click()
Text5.Text = Combo5.Text
Combo5.Visible = False
End Sub
Private Sub Combo6_Click()
Text6.Text = Combo6.Text
Combo6.Visible = False
End Sub
Private Sub Combo7_Click()
Text7.Text = Combo7.Text
Combo7.Visible = False
End Sub
Private Sub Combo8_Click()
Text8.Text = Combo8.Text
Combo8.Visible = False
End Sub
Private Sub Combo9_Click()
Text9.Text = Combo9.Text
Combo9.Visible = False
End Sub
Private Sub Combo10_Click()
Text10.Text = Combo10.Text
Combo10.Visible = False
End Sub
Private Sub Text1_GotFocus()
Combo1.Visible = True
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text2_GotFocus()
Combo1.Visible = False
Combo2.Visible = True
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub


Private Sub Text3_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = True
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text4_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = True
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text5_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = True
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text6_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = True
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text7_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = True
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text8_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = True
Combo9.Visible = False
Combo10.Visible = False
End Sub
Private Sub Text9_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = True
Combo10.Visible = False
End Sub
Private Sub Text10_GotFocus()
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
Combo5.Visible = False
Combo6.Visible = False
Combo7.Visible = False
Combo8.Visible = False
Combo9.Visible = False
Combo10.Visible = True
End Sub

combo.rar

من مواضيعي :

كود ضغط القاعدة بـwinzip

إجعل برنامجك يعمل على كل جهاز في العالم

النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات

هذا الكود يحتاج لكثير من الذكاء وقليل من العمل

إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6

كيف أستطيع نقل اسم المدينة في اللستة الثانية الى اسم بلد آخر في اللسة الأولي عن طريق الكامبو بوكس وزر السهم

برنامجين مع السورس كود قديمين جداً

مثال كامل لــانشاء ملف txt*. النصي

الاداة رائعة جدا بكل المقاييس swbbtnba.ocx

كود ممتاز ؟ ومساعدة في الاضافة / الحذف

احلى حركة وجدتها اخيرا بعد وقت طويل

وأخيرا حصلت المعجزة : تحويل الفلم الى صورة متحركة وكانك تشاهد فلما Camtasia Studio

#215 ديسمبر 2005 في 22:40

أخي الحبيب مهنا :

بإمكانك أن تستبدل كل الكومبو الموجود بكومبو واحد و تقوم بعمل Control Array و كذلك في التكست بوكس ,,

و بهذا ستختصر كل الكود السابق إلى الكود التالي :

Dim counter As Integer

Private Sub Combo1_Click(Index As Integer)
On Error Resume Next
Text1(Index).Text = Combo1(Index).Text
Combo1(Index).Visible = False
    Combo1(counter).Visible = False
counter = counter + 1
    Combo1(counter).Visible = True
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_activate()
For counter = 0 To 2
    Combo1(counter).Visible = False
Next
    Combo1(0).Visible = True
counter = 0
End Sub

ما رأيك في الفرق ؟؟؟

هناك مثال مرفق ...

و لك مني جزيل الشكر ,,, (h)

control_array.rar

تم تعديل هذه المشاركة بواسطة Alaa Awaad في 15 ديسمبر 2005 في 23:02

____________________________________________________________________________

{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)

____________________________________________________________________________

In a world without walls and fences, who needs Windows and Gates

مدونتي