تغيير النص الظاهر في الكومبوبوكس عن طريق زر

[ابوالزوز]

السلام عليكم ..

أخواني الأعزاء لدي سؤال عن إمكانية تغيير النص في الكومبوبوكس بواسطة زر وليس بواسطة السهم الخاص بالكومبوبوكس

هل يمكن ذلك

أفيدوني جزاكم الله خيراً

يوجد مرفق لسهولة التطبيق

ولكم جزيل الشكر

Change Text List.zip

تم تعديل سبتمبر 18, 2010 بواسطه abuzzouz

[ابوالزوز]

--- Up ---

[عبدالله باقشير]

السلام عليكم

لم نفهم طلبك

اي نص تريده ان يظهر من القائمة الاول او الثاني او --------

[ابوالزوز]

أستاذي العزيز خبور

آسف لأنني لم أتمكن من توضيح طلبي بالضبط عند طرحي للموضوع

إلا أن الفكرة هي أنه بكل ضغطة على الزر يتغير النص تلقائياً بحيث يظهر

النص الأول ثم يليه الثاني وهكذا.. أي باستخدام الزر فقط وليس اخيار بالماوس أو الأسهم

أرجو أن أكون قد وفقت هذه المرة في التوضيح

وشكراً لك أستاذي على الإهتمام

تقبل تحياتي

[عبدالله باقشير]

السلام عليكم

Private Sub CommandButton1_Click()

Dim n As Long

n = ComboBox1.ListIndex

If n = ComboBox1.ListCount - 1 Then _

ComboBox1.ListIndex = 0 Else _

ComboBox1.ListIndex = n + 1

End Sub

تفضل المرفق

Change Text List.rar

[احمد حمور-ابوعبدالله]

بارك الله فيك اخي خبور

[ابوالزوز]

سلمت يداك أستاذي العزيز وجزاك الله خيراً وزادك من علمه ونعيمه

تقبل تحياتي

أخاك abuzzouz