الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Select In....Toolbar

مغلق
بدأه POWER _GIRL في 22 فبراير 2005 · 4 رد · 580 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

:blink: كودي واقف فالسطر الاحمر

بسبب تعريف متغير جملة select الخاص بي مفتاح او فهرس زر شريط الأدوات

نرجوا المساعدة

------------------------

Sub min2()
Dim id As Index
Select Case Toolbar1.Buttons(id)
Static i As Integer
Case Is = "1"
i = (i + 1) Mod 2
If i = 1 Then
DiscountCards.Show
Else
DiscountCards.Hide
End If

Case Is = "2"
i = (i + 1) Mod 2
If i = 1 Then
EL.Show
Else
EL.Hide
End If

End Select
End Sub

PG.rar

تم تعديل هذه المشاركة بواسطة POWER _GIRL في 22 فبراير 2005 في 20:15

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

#2

المثال لم استطع فتحة ولكن جربي المثال المرفق مع الحلقة الثانية وإن شاء الله تستفيدي من الشرح

My Webpage

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#3

THANK U BUT

................

I NEED MORE HILP

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

#4

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

لاتنسى تغيير الإمتداد من VBP إلى RAR

PG.vbp

{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1

#5

شكرا shearer انحلت المشكله

*****

تم تعديل هذه المشاركة بواسطة POWER _GIRL في 24 فبراير 2005 في 19:13

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

هذا الموضوع مغلق.

مواضيع مشابهة