NumericUpDown ile Label Font Boyutunu Değiştirme

Bu örnekte numericupdown kullanarak, font boyutunu istediğimiz şekilde büyüteceğiz.
Aşağıdaki şekli inceleyin.

Şekil 1

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NumericUpDown1.Minimum = 0
NumericUpDown1.Maximum = 100
Label1.Text = "Merhaba Dünya..."
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
Dim deger As Integer
deger = NumericUpDown1.Value
Label1.Font = New Font("Times New Roman", deger, FontStyle.Regular)
End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.