28-11-17, 02:35 PM
اخوانى احوال تغير حالة الكومبو بوكس من داخل الكود
استخدمت
(Combo9.Style = (0
ولكن اعطانى خطاء
ارجو اعطائى الكود الصحيح
استخدمت
(Combo9.Style = (0
ولكن اعطانى خطاء
ارجو اعطائى الكود الصحيح
اخوانى ارجو المساعدة بخصوص كومبو بوكس استايل
|
28-11-17, 02:35 PM
اخوانى احوال تغير حالة الكومبو بوكس من داخل الكود
استخدمت (Combo9.Style = (0 ولكن اعطانى خطاء ارجو اعطائى الكود الصحيح تم الشكر بواسطة: عبد العزيز البسكري , عمور2016 , Ahmed_Mansoor , eiocm , mhareek , mhareek
شكرا اخى الغالى على سرعة الرد ولكن لا يوجد بالمثال كومبو بوكس جاهز
انا كل الى اريدة انى اغير ستايل style الكومبو بوكس بالكود اخى الغالى يعنى عند الضغط مرتين على نفس الكومبو يتغير الستايل الخاص بها بمعنى انى اريد ان يكون الكود فى الحدث Private Sub Combo1_DblClick ارجو المساعدة جزاك الله خيرا
29-11-17, 10:58 AM
اساتذى الكرام هل الموضع ده يمكن عملة ام انه صعب وليس لة كود برمجى
ارجو المساعدة جزاكم الله خيرا
29-11-17, 11:42 AM
السلام عليكم و رحمة الله
شاهد هذا المثال ComboboxExvb6.rar (الحجم : 3.71 ك ب / التحميلات : 32) المرجع تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , sendbad100 , sendbad100 , عبد العزيز البسكري , eiocm , mhareek
29-11-17, 01:32 PM
أهلا بك أخي الكريم ، هذه الخاصية الذي تحاول تغيير قيمتها بالكود هي فقط للقراءة هذا أنك تستطيع تغييرها من خلال قائة خصائص الأداة يدويا فقط أنا أتكلم عن الأادة Combobox العادية الموجودة ضمن الأدوات الإفتراضيه في صندوق الأدوات ، ولكن ممكن تكون هذه الخاصية للقراءة والكتابة في أدوات الـ Combobox المصممه في أدوات خارجيه .
تم الشكر بواسطة: sendbad100 , Amir_Alzubidy , عبد العزيز البسكري , عبد العزيز البسكري , eiocm , mhareek , mhareek
29-11-17, 02:19 PM
فعلا هي يفترض بها ان تكون كذلك اخي احمد .
يفترض ان تكون للقراءة فقط . لكن ما المغزى من تغييرها ، الله اعلم يبدو لي بأن المشكلة تكمن عند استدعاء سجلات حقل معين من التيبل لذلك تظهر مشكلة بأن الاداة Read Only . على اي حال اذا كانت المشكلة كذلك فاعتقد حلها سيكون اسهل ان شاء الله . تم الشكر بواسطة: عبد العزيز البسكري , عبد العزيز البسكري , Ahmed_Mansoor , eiocm , mhareek
03-12-17, 12:24 PM
جزاكم الله خيرا احبابى الكرام
الموضوع اساسا انى كنت حب ان تظهر الكومبو بوكس بشكل السمبل فى بداية فتح الفورم ولكن بمجرد الضغط عليها مرتين يتغسر الستايل وتتحول دروب داون هذة كانت الفكرة الى حبيت اعملها تم الشكر بواسطة: Ahmed_Mansoor
اعمل 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 تم الشكر بواسطة: sendbad100 , sendbad100 , عبد العزيز البسكري , Amir_Alzubidy
|
|