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

استخدمت

(Combo9.Style = (0

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

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

.rar   ComboBox.rar (الحجم : 3 ك ب / التحميلات : 38)
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
#3
شكرا اخى الغالى على سرعة الرد   ولكن لا يوجد بالمثال كومبو بوكس جاهز

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



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



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


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

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

المرجع
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
#6
أهلا بك أخي الكريم ، هذه الخاصية الذي تحاول تغيير قيمتها بالكود هي فقط للقراءة هذا أنك تستطيع تغييرها من خلال قائة خصائص الأداة يدويا فقط أنا أتكلم عن الأادة Combobox العادية الموجودة ضمن الأدوات الإفتراضيه في صندوق الأدوات ، ولكن ممكن تكون هذه الخاصية للقراءة والكتابة في أدوات الـ Combobox المصممه في أدوات خارجيه .
الرد
#7
فعلا هي يفترض بها ان تكون كذلك اخي احمد .
يفترض ان تكون للقراءة فقط .
لكن ما المغزى من تغييرها ،
الله اعلم
يبدو لي بأن المشكلة تكمن عند استدعاء سجلات حقل معين من التيبل لذلك تظهر مشكلة بأن الاداة Read Only .
على اي حال اذا كانت المشكلة كذلك فاعتقد حلها سيكون اسهل ان شاء الله .
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
#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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احبابى فى الله ارجو المساعدة برنامج طباعة الباركود mhareek 2 142 19-09-18, 07:37 PM
آخر رد: mhareek
  احبابى فى الله ارجو المساعدة تغير ربط قاعدة البينات من (.accdb) الى mbp mhareek 6 158 14-09-18, 11:18 PM
آخر رد: mhareek
  التعديل علا اليست بوكس wolf1120 7 243 08-08-18, 06:58 AM
آخر رد: Ahmed_Mansoor
  السلام عليكم ورحمة الله وبركاتة - ارجو المساعدة فى ترتيب البيانات داخل الفلكس جريد mhareek 4 234 14-07-18, 09:17 PM
آخر رد: mhareek
  [سؤال] برجاء المساعدة ضروري فى جملة select ahmed eldouskey 6 428 21-06-18, 02:50 AM
آخر رد: princeofislam
  ارجو المساعدة فى التنقل بين السجلات ..... جزاكم الله خير mhareek 15 639 07-06-18, 10:54 PM
آخر رد: mhareek
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 345 03-05-18, 02:09 PM
آخر رد: mhareek
  ارجو المساعدة فى هذا الكود mhareek 1 124 02-05-18, 07:18 PM
آخر رد: Amir_alzubidy
  سوال بخصوص listbox wolf1120 6 280 18-04-18, 12:28 AM
آخر رد: Ahmed_Mansoor
  سوال بخصوص الاكتف سكن mhareek 5 253 15-04-18, 02:35 PM
آخر رد: sendbad100

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


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