Membesarkan Dan Mengecilkan Tulisan

     Beberapa waktu yang lalu saya memiliki kendala dalam memebesarkan dan mengecilkan tulisan dengan Kode. Terus setelah bertanya pada Om Google dapat dah kodenya. Karena aku orangnya baik hati dan gak sombong aku pengen membagikan sedikit ilmu.

Kita mulai saja.

Buat sebuah Project dengan komponen : (2 Button, 1 Label) dengan Properties

Object	Properties
Form1	Name	FrmTulisan
	FormBorderStyle	FixedSingle
Label1	Name	LblTulisan
	Text	Tutorial Visual Basic 2010
	Font Size	14 px
	Autosize	False
	TextAlign	MiddleCenter
Button1	Name	BtnBesarkan
	Text	Besarkan Tulisan
Button2	Name	BtnKecilkan
	Text	Kecilkan Tulisan

Lalu Ketikanlah Kode Berikut

'Mendeklarasikan Variabel

Dim Ukuran As Byte

Sub Besarkan()

'kode untuk membesarkan tulisan 1px

Ukuran += 1

LblTulisan.Font = New Font(LblTulisan.Font.Name, Ukuran, LblTulisan.Font.Style, Me.Font.Unit)

End Sub

Sub Kecilkan()

'kode untuk mengecilkan tulisan 1px

Ukuran -= 1

LblTulisan.Font = New Font(Me.Font.Name, Ukuran, Me.Font.Style, Me.Font.Unit)

End Sub

Private Sub BtnBesarkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBesarkan.Click

Besarkan()

End Sub

Private Sub BtnKecilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKecilkan.Click

Kecilkan

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'menyimpan ukuran awal font

Ukuran = LblTulisan.Font.SizeInPoints

End Sub

Apabila Anda ingin Mendownload Source Code Silahkan Klik Disini


By. Franky Soputra

Posted in: Source Code,Visual Basic 2010