تقييم الموضوع :
  • 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 بعد عملية الحفظ أو الحذف أبووسم 9 168 08-04-17, 05:47 AM
آخر رد: أبووسم
  [سؤال] مساعده في اظهار قيمة عند الاختيار من combobox billyalhaj.2011 17 550 07-04-17, 06:38 AM
آخر رد: جميل علي
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 244 16-02-17, 11:57 AM
آخر رد: المتألق9
  استفسار ComboBox bidaya 2 106 12-02-17, 06:18 PM
آخر رد: مساعدة
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 521 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  [VB.NET] مشكلة في ComboBox 3asfa~mdmra 2 204 28-12-16, 01:15 AM
آخر رد: 3asfa~mdmra
  سؤال حول Combobox noway 2 212 06-12-16, 04:26 AM
آخر رد: amgad525
  اداه ComboBox medoddd 1 222 21-09-16, 01:20 PM
آخر رد: medoddd
  تعبئه datagridview combobox بالبيانات من قاعدة البيانات Rabeea Qbaha 4 390 15-09-16, 07:07 PM
آخر رد: Rabeea Qbaha
Exclamation Multi Column Combobox Vb.Net Kian Tech 3 230 26-08-16, 05:53 PM
آخر رد: Kian Tech

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


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