Dasar: Menggabungkan Kata Textbox Pada VB 6

HELLO FLEN - Pada kesempatan ini saya akan menjelaskan tentang dasar cara Menggabungkan Kata Textbox Pada VB 6. Manipulasi string merupakan salah satu dasar yang penting dalam pemrograman. Terutama ketika kita membuat program – program jenis word processing. 

VBA memiliki berbagai macam fungsi string yang sangat berguna, tetapi kadang menyulitkan pada awalnya untuk menentukan fungsi mana yang sesuai dengan kebutuhan kita. Kita langsung saja pada penjelasan untuk membuat program. Berikut dibawah ini langkah-langkahnya:

Pertama
Buka aplikasi VB 6 Anda lalu, File > New Project > Standard EXE.

Kedua
Buat tampilannya seperti gambar dibawah ini:

Properties pada label, textbox, commandbutton, optionbutton: 

	Name	Label, Command = Caption | Textbox = Text
Label	Label1	Nama Depan
Label	Label2	Nama Tengah
Label	Label3	Nama Belakang
Textbox	txtdepan	Kosongkan
Textbox	txttengah	Kosongkan
Textbox	txtbelakang	Kosongkan
OptionButton	bold	Bold
OptionButton	underline	Underline
OptionButton	normal	Normal
CommandButton	cmdgabung	Aktif
CommandButton	cmdhapus	Hapus
CommandButton	cmdbatal	Batal

Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:

Private Sub bold_Click()

lbltampil.FontBold = True

lbltampil.FontUnderline = False



End Sub



Private Sub cmdbatal_Click()

txtdepan.Enabled = False

txttengah.Enabled = False

txtbelakang.Enabled = False

cmdhapus.Enabled = False

cmdgabung.Caption = "Aktif"

bold.Enabled = False

underline.Enabled = False

normal.Enabled = False



End Sub



Private Sub cmdgabung_Click()

txtdepan.Enabled = True

txttengah.Enabled = True

txtbelakang.Enabled = True

cmdgabung.Caption = "Gabungkan"

lbltampil.Caption = txtdepan.Text + " " + txttengah.Text + " " + txtbelakang.Text

txtdepan.Text = ""

txttengah.Text = ""

txtbelakang.Text = ""

cmdhapus.Enabled = True

bold.Enabled = True

underline.Enabled = True

normal.Enabled = True

lbltampil.FontUnderline = False



End Sub



Private Sub cmdhapus_Click()

lbltampil.Caption = ""

txtdepan.Text = ""

txttengah.Text = ""

txtbelakang.Text = ""

bold.Value = 0

underline.Value = 0

normal.Value = 0

End Sub



Private Sub normal_Click()

lbltampil.FontBold = False

lbltampil.FontUnderline = False



End Sub



Private Sub underline_Click()

lbltampil.FontBold = False

lbltampil.FontUnderline = True



End Sub

Ketiga
Untuk menjalankan programnya, klik Run > Start atau tekan F5 dan hasil tampilannya akan seperti ini:

Sekian penjelasan mengenai dasar cara Menggabungkan Kata Textbox Pada VB 6. Semoga dapat bermanfaat dan membantu untuk Anda yang sedang belajar tentang membuat program dasar VB 6.