[kslawy]

السلام عليكم ورحمة الله وبركاته

يتم ذلك في حدث MouseMove الخاص بأداة ListBox كالتالي :

PHP كود :

Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove

        Dim Index As Integer = Me.ListBox1.IndexFromPoint(e.X, e.Y) ' الحصول علي رقم العنصر اللي وقف عليه الماوس

        Dim fSize As Integer = CInt(Me.ListBox1.Items(Index)) ' الحصول علي قيمة العنصر حسب رقمه

        Me.Label1.Font = New Font(Me.Label1.Font.FontFamily.Name, fSize, FontStyle.Bold) ' تغيير الخط مباشرة علي الأداة

    End Sub 


****
***
**
*