+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22735)
اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل - mhareek - 28-11-17
اخوانى احوال تغير حالة الكومبو بوكس من داخل الكود
استخدمت
(Combo9.Style = (0
ولكن اعطانى خطاء
ارجو اعطائى الكود الصحيح
RE: اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل - mhareek - 28-11-17
شكرا اخى الغالى على سرعة الرد ولكن لا يوجد بالمثال كومبو بوكس جاهز
انا كل الى اريدة انى اغير ستايل style الكومبو بوكس بالكود اخى الغالى
يعنى عند الضغط مرتين على نفس الكومبو يتغير الستايل الخاص بها
بمعنى انى اريد ان يكون الكود فى الحدث Private Sub Combo1_DblClick
ارجو المساعدة جزاك الله خيرا
RE: اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل - mhareek - 29-11-17
اساتذى الكرام هل الموضع ده يمكن عملة ام انه صعب وليس لة كود برمجى
ارجو المساعدة جزاكم الله خيرا
RE: اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل - Ahmed_Mansoor - 29-11-17
أهلا بك أخي الكريم ، هذه الخاصية الذي تحاول تغيير قيمتها بالكود هي فقط للقراءة هذا أنك تستطيع تغييرها من خلال قائة خصائص الأداة يدويا فقط أنا أتكلم عن الأادة Combobox العادية الموجودة ضمن الأدوات الإفتراضيه في صندوق الأدوات ، ولكن ممكن تكون هذه الخاصية للقراءة والكتابة في أدوات الـ Combobox المصممه في أدوات خارجيه .
RE: اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل - mhareek - 03-12-17
جزاكم الله خيرا احبابى الكرام
الموضوع اساسا انى كنت حب ان تظهر الكومبو بوكس بشكل السمبل فى بداية فتح الفورم ولكن بمجرد الضغط عليها مرتين يتغسر الستايل وتتحول دروب داون
هذة كانت الفكرة الى حبيت اعملها
RE: اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل - eiocm - 03-12-17
اعمل 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