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:

Dasar: Menggabungkan Kata Textbox Pada VB 6 - www.helloflen.com

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:

Dasar: Menggabungkan Kata Textbox Pada VB 6 - www.helloflen.com

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.

Klik untuk berkomentar