تقييم الموضوع :
- 0 أصوات - بمعدل 0
- 1
- 2
- 3
- 4
- 5
معلومة ::: ComboBox Width
|
المشاركات : 2,523
المواضيع 707
الإنتساب : Sep 2012
السمعة :
48
الشكر: 91
تم شكره 1103 مرات في 296 مشاركات
كاتب الموضوع : BADRMEDIA
أحد الأعضاء المكرمين طلب أنه عند الضغط على DropDown لأداة ComboBox
يكون عرض العناصر المعروضة على أكبر عنصر موجود
ولحل ذلك
نضع هذه الاجراءية
كود :
Sub ComboBox_WidthComboBox(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim sendCombobox As ComboBox = sender
Dim wid As Integer = sendCombobox.DropDownWidth
Dim Graf As Graphics = sendCombobox.CreateGraphics
Dim Fonta As Font = sendCombobox.Font
Dim VerticalComboBox As Integer = IIf((sendCombobox.Items.Count > sendCombobox.MaxDropDownItems), SystemInformation.VerticalScrollBarWidth, 0)
Dim newWid As Integer
For Each str As String In DirectCast(sender, ComboBox).Items
newWid = CInt(Graf.MeasureString(str, Font).Width) + VerticalComboBox
If wid < newWid Then
wid = newWid
End If
Next
sendCombobox.DropDownWidth = Width
End Sub
نرسل handler الكومبو المطلوب لهذه الاجراءية
هكذا
كود :
Private Sub ComboBox1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDown
AddHandler ComboBox1.DropDown, AddressOf ComboBox_WidthComboBox
End Sub
والله ولى التوفيق
|
المواضيع المحتمل أن تكون متشابهة . |
الموضوع : |
الكاتب |
الردود : |
المشاهدات : |
آخر رد |
|
معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! |
أسامة أحمد |
4 |
6,097 |
18-07-21, 02:53 AM
آخر رد: kebboud
|
|
مقال: الكومبو بوكس ComboBox كيف تضيف أيقونات |
Blue Sky |
1 |
3,159 |
30-06-19, 10:41 AM
آخر رد: invocker
|
|
معلومة ::: ListBox |
Blue Sky |
14 |
22,013 |
14-11-16, 11:32 PM
آخر رد: فارس جراح
|
|
معلومة مهمه فى المصفوفات |
ali.alfoly |
2 |
3,730 |
30-08-13, 02:25 AM
آخر رد: ali.alfoly
|
|
من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) |
المبرمج علي نوري |
2 |
3,823 |
23-08-13, 11:17 PM
آخر رد: nin9e
|
|
من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) |
المبرمج علي نوري |
1 |
2,917 |
30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
|
|
معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls |
Aly El-Haddad |
2 |
3,563 |
10-11-12, 09:15 PM
آخر رد: Mr. DotNet
|
|
معلومة : Partial Class |
RaggiTech |
1 |
2,668 |
06-10-12, 11:03 PM
آخر رد: RaggiTech
|
|
معلومة : TryCast مهمة |
RaggiTech |
0 |
2,707 |
06-10-12, 11:02 PM
آخر رد: RaggiTech
|
|
معلومة : XML Comments مهمة |
RaggiTech |
1 |
2,422 |
06-10-12, 11:01 PM
آخر رد: RaggiTech
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم