تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] comboBox
#1
انا اريد اعمل كما في الورد ارقام وهي تمثل حجم الخط وعندي ليبل فيه نص عنده المرور على ال combobox يتغير حجم الخط
الرد
تم الشكر بواسطة:
#2
Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim size As Integer = Val(ComboBox1.SelectedItem)
Label1.Font = New Font(Label1.Font.FontFamily, size, Label1.Font.Style)

End Sub

End Class
الرد
تم الشكر بواسطة: tarek
#3
(22-12-13, 12:22 PM)scluay كتب : انا اريد اعمل كما في الورد ارقام وهي تمثل حجم الخط وعندي ليبل فيه نص عنده المرور على ال combobox يتغير حجم الخط

.....

منقول من جزء برنامج مع تعديل بسيط ليناسب طلبك

ضع عدد 2 من أداة ComboBox وواحد Label
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
    ComboBox2.DrawMode = DrawMode.OwnerDrawFixed

    ' ComboBox1 يحتوى أحجام مختلفة للخط
    ComboBox1.Items.AddRange(New String() {8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20})
    ComboBox1.SelectedIndex = ComboBox1.Text = ComboBox1.Font.Size.ToString

    ' ComboBox2 يحتوى أسماء مختلفة للخط
    ComboBox2.Items.AddRange(New String() {"Tahoma", "MS Sans Serif", "Courier New", "Times New Roman"})
    ComboBox2.SelectedIndex = ComboBox2.Text = ComboBox2.Font.Name

End Sub

Private Sub ComboBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) _
Handles ComboBox1.DrawItem, ComboBox2.DrawItem ' أضف هنا حدث أي مربع سرد له نفس المهمة
    e.DrawBackground()
    e.DrawFocusRectangle()
    Dim format As New StringFormat(StringFormatFlags.NoWrap)
    If sender.RightToLeft Then format.FormatFlags += StringFormatFlags.DirectionRightToLeft
    e.Graphics.DrawString(sender.Items(e.Index), e.Font, New SolidBrush(e.ForeColor), e.Bounds, format)
    '-------------------------------------
    ' عند المرور على العناصر
    ScrollChanged(sender, e.Index)
End Sub

Private Sub ScrollChanged(ByVal comboBox As ComboBox, ByVal index As Integer)
    Select Case comboBox.Name
        Case "ComboBox1"
            Me.Label1.Font = New Font(Me.Label1.Font.Name, comboBox.Items(index), Me.Label1.Font.Style)

        Case "ComboBox2"
            Me.Label1.Font = New Font(comboBox.Items(index).ToString, Me.Label1.Font.Size, Me.Label1.Font.Style)

    End Select
End Sub

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يُمكن عرض خيارات داخل combobox بناء على ظهور شهر مُعين وسنة مُعين بأداةDatetimepi Hazem1 5 139 15-09-18, 02:36 AM
آخر رد: Hazem1
  [VB.NET] ربط قاعدة بيانات أكسس مع Combobox Doctor GME 18 376 28-07-18, 06:25 PM
آخر رد: Doctor GME
  شرح التعامل مع combobox atef_020 3 297 09-06-18, 07:21 PM
آخر رد: elgokr
  [سؤال] Combobox وعرض البيانات ZaerAllail 4 259 08-06-18, 12:05 AM
آخر رد: ZaerAllail
  [سؤال] كيف أربط Combobox بأخرى والوسيط قاعدة البيانات ؟؟؟ princelovelorn 0 159 05-05-18, 07:48 PM
آخر رد: princelovelorn
  [سؤال] استعمال ComboBox عدة مرات ومن نفس المصدر كريم جودي 2 209 09-04-18, 02:51 PM
آخر رد: حريف برمجة
  [VB.NET] مرة اخرى انا مش عاوز اضيف عمود جديد dgv انا اريد جعل العمود الثالث يكون combobox tarek 2 202 07-04-18, 04:28 AM
آخر رد: tarek
  combobox لا يعرض الداتا عند عمل select تناسيم 1 184 05-04-18, 02:52 PM
آخر رد: عبدالله الدوسري
  [VB.NET] جعل الحقل الثالث في اداة dgv تكون combobox tarek 5 270 05-04-18, 01:10 AM
آخر رد: ahmedmansour
Smile [سؤال] كودات ال ComboBox hameed aljlyly 2 215 23-03-18, 05:07 PM
آخر رد: hameed aljlyly

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


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