منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخوانى احوال تغير حالة الكومبو بوكس من داخل الكود     

استخدمت

(Combo9.Style = (0

ولكن اعطانى خطاء

ارجو اعطائى الكود الصحيح

شكرا اخى الغالى على سرعة الرد   ولكن لا يوجد بالمثال كومبو بوكس جاهز

انا كل الى اريدة انى اغير ستايل  style الكومبو بوكس بالكود اخى الغالى
يعنى عند الضغط مرتين على نفس الكومبو  يتغير الستايل الخاص بها



   بمعنى انى اريد ان يكون الكود فى الحدث     Private Sub Combo1_DblClick



ارجو المساعدة   جزاك الله خيرا

اساتذى الكرام هل الموضع ده يمكن عملة ام انه صعب وليس لة كود برمجى 


ارجو المساعدة جزاكم الله خيرا

أهلا بك أخي الكريم ، هذه الخاصية الذي تحاول تغيير قيمتها بالكود هي فقط للقراءة هذا أنك تستطيع تغييرها من خلال قائة خصائص الأداة يدويا فقط أنا أتكلم عن الأادة Combobox العادية الموجودة ضمن الأدوات الإفتراضيه في صندوق الأدوات ، ولكن ممكن تكون هذه الخاصية للقراءة والكتابة في أدوات الـ Combobox المصممه في أدوات خارجيه .

جزاكم الله خيرا احبابى الكرام

الموضوع اساسا انى كنت حب ان تظهر الكومبو بوكس بشكل السمبل فى بداية فتح الفورم ولكن بمجرد الضغط عليها مرتين يتغسر الستايل وتتحول دروب داون

هذة كانت الفكرة الى حبيت اعملها

اعمل Combo1 بستايل السمبل وCombo2 بستايل دروب داون
يجب تعبئة الأداتين Combo1 وCombo2 بنفس عناصر البيانات

Private Sub Form_Load()
   Combo1.Visible = True
   Combo2.Visible = False
   Combo2.Width = Combo1.Width
   Combo2.Left = Combo1.Left
   Combo2.Top = Combo1.Top
   Combo2.ListIndex = Combo1.ListIndex
End Sub

Private Sub Combo1_GotFocus()
   Combo1.Visible = False
   Combo2.Visible = True
   Combo2.Text = Combo1.Text
   Combo2.SetFocus
End Sub
Private Sub Combo2_LostFocus()
   Combo1.Visible = True
   Combo2.Visible = False
   Combo1.Text = Combo2.Text
End Sub

---

الفكرة الأخرى عمل UserControl وعمل Combo1 بستايل السمبل وCombo2 بستايل دروب داون

Option Explicit

Private Sub UserControl_Initialize()
   init
End Sub
Private Sub UserControl_Resize()
   init
End Sub

Sub init()
   Combo1.Visible = True
   Combo2.Visible = False
   Combo1.Width = UserControl.Width
   UserControl.Height = Combo1.Height
   Combo2.Width = Combo1.Width
   Combo2.Left = Combo1.Left
   Combo2.Top = Combo1.Top
   Combo2.ListIndex = Combo1.ListIndex
End Sub

Private Sub Combo1_GotFocus()
   Combo1.Visible = False
   Combo2.Visible = True
   Combo2.Text = Combo1.Text
   Combo2.SetFocus
End Sub
Private Sub Combo2_LostFocus()
   Combo1.Visible = True
   Combo2.Visible = False
   Combo1.Text = Combo2.Text
End Sub


Public Sub Clear()
   Combo1.Clear
   Combo2.Clear
End Sub
Public Sub AddItem(itm As String)
   Combo1.AddItem itm
   Combo2.AddItem itm
End Sub

Public Function Text()
   Text = Combo2.Text
End Function

Public Function ListIndex(Optional index As Integer = -1)
   If index <> -1 Then
       Combo1.ListIndex = index
       Combo2.ListIndex = index
   End If
   ListIndex = Combo2.ListIndex
End Function

---

التعامل مع اليوزر كونترول
UserControl11.Clear
UserControl11.AddItem "aaa"
UserControl11.AddItem "bbb"
UserControl11.AddItem "ccc"
UserControl11.AddItem "ddd"
UserControl11.AddItem "eee"

MsgBox UserControl11.ListIndex

MsgBox UserControl11.Text

UserControl11.ListIndex 2