تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: ComboBox Width
#1
كاتب الموضوع : 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

والله ولى التوفيق


}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,485 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 801 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,279 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,034 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 578 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 685 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 548 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 467 06-10-12, 11:02 PM
آخر رد: RaggiTech
  معلومة : XML Comments مهمة RaggiTech 1 427 06-10-12, 11:01 PM
آخر رد: RaggiTech
  معلومة - الاستثناءات ( Exceptions ) RaggiTech 0 538 06-10-12, 11:00 PM
آخر رد: RaggiTech

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


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