تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل
#1
اخوانى احوال تغير حالة الكومبو بوكس من داخل الكود     

استخدمت

(Combo9.Style = (0

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

ارجو اعطائى الكود الصحيح
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله 
مثال : 

.rar   ComboBox.rar (الحجم : 3 ك ب / التحميلات : 40)
الرد }}}
#3
شكرا اخى الغالى على سرعة الرد   ولكن لا يوجد بالمثال كومبو بوكس جاهز

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



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



ارجو المساعدة   جزاك الله خيرا
الرد }}}
تم الشكر بواسطة:
#4
اساتذى الكرام هل الموضع ده يمكن عملة ام انه صعب وليس لة كود برمجى 


ارجو المساعدة جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم و رحمة الله 
شاهد هذا المثال 

.rar   ComboboxExvb6.rar (الحجم : 3.71 ك ب / التحميلات : 32)

المرجع
الرد }}}
#6
أهلا بك أخي الكريم ، هذه الخاصية الذي تحاول تغيير قيمتها بالكود هي فقط للقراءة هذا أنك تستطيع تغييرها من خلال قائة خصائص الأداة يدويا فقط أنا أتكلم عن الأادة Combobox العادية الموجودة ضمن الأدوات الإفتراضيه في صندوق الأدوات ، ولكن ممكن تكون هذه الخاصية للقراءة والكتابة في أدوات الـ Combobox المصممه في أدوات خارجيه .
الرد }}}
#7
فعلا هي يفترض بها ان تكون كذلك اخي احمد .
يفترض ان تكون للقراءة فقط .
لكن ما المغزى من تغييرها ،
الله اعلم
يبدو لي بأن المشكلة تكمن عند استدعاء سجلات حقل معين من التيبل لذلك تظهر مشكلة بأن الاداة Read Only .
على اي حال اذا كانت المشكلة كذلك فاعتقد حلها سيكون اسهل ان شاء الله .
الرد }}}
#8
جزاكم الله خيرا احبابى الكرام

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

هذة كانت الفكرة الى حبيت اعملها
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#9
اعمل 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
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,067 19-01-24, 02:39 PM
آخر رد: cls
  بخصوص اعادة الترقيم abde6726 4 299 12-12-23, 02:01 PM
آخر رد: abde6726
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 351 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  سؤال بخصوص الكتيف ربورت abde6726 2 322 20-11-23, 10:54 AM
آخر رد: abde6726
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 380 19-11-23, 10:49 PM
آخر رد: Microformt
  [سؤال] التيكست بوكس Abdellah 2 386 18-11-23, 10:55 AM
آخر رد: Abdellah
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 240 23-10-23, 12:11 AM
آخر رد: Taha Okla
  السلام عليكم اخوانى واحبابى اساتذتى الكرام مشكلة out of memory mhareek 2 272 12-10-23, 01:40 PM
آخر رد: Taha Okla
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 223 04-10-23, 11:44 PM
آخر رد: Microformt
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 404 15-07-23, 02:28 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم