10-12-13, 03:28 PM
Private Sub ListBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
Dim x As Integer = ListBox1.SelectedItem
Label1.Font = New Font("bold", x)
End Sub
End Class
شباب انا اريد اعمل برنامج كما في برنامج الورد تغير حجم النص عنده المرور وليس عنده الضغط
اي عندي list و label في نص وال list فيه ارقام عند المرور على الارقام اريد يتغير حجم النص الذي في label حسب الارقام التي في list
Dim x As Integer = ListBox1.SelectedItem
Label1.Font = New Font("bold", x)
End Sub
End Class
شباب انا اريد اعمل برنامج كما في برنامج الورد تغير حجم النص عنده المرور وليس عنده الضغط
اي عندي list و label في نص وال list فيه ارقام عند المرور على الارقام اريد يتغير حجم النص الذي في label حسب الارقام التي في list