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.

Şekil1

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