Kode Mengubah Font di VB.net

Cara mengubah font pada VB.net - Masih dalam tutorial dasar pemograman VB.net, artikel ini adalah lanjutan dari program setting warna di VB.net.

• Seperti biasa, buatlah form baru dengan nama Huruf.
• Desain tampilan seperti ini dengan tools Label, Button, Font Dialog.

• Sekarang ketiklah kode ini :

Public Class Font

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As String
        x = InputBox("MASUKAN TEKS :", "PESAN")
        If x = Nothing Then
            Exit Sub
        End If
        Me.Label1.Text = x

        With Me.FontDialog1
            .ShowDialog()
            Me.Label1.Font = .Font
        End With
    End Sub
End Class

• Setelah selesai maka langsung jalankan hasilnya seperti ini :

Pemograman ini masih berlanjut, untuk tutorial selanjutnya adalah membuat program untuk browse image / mengambil gambar.