HELLO FLEN - Pada kesempatan ini saya akan menjelaskan tentang dasar cara Menampilkan Text pada Label di VB 6. Text box dan label merupakan salah satu tool box Visual Basic, serta fungsi text box sendiri sering digunakan sebagai form isian, sedangkan label sendiri berfungsi untuk memberi informasi kepada user (petunjuk) mengenai apa yang harus diisi dalam sebuah text box.
Text box dan label juga merupakan sebuah tools box utama dalam pembuatan sebuah program atau sering digunakan, karena pastinya sebuah program memiliki form input yang disertai keteranganya (label). Kita langsung saja ke langkah - langkah pembuatan programnya, berikut dibawah ini:
Pertama
Buka aplikasi VB 6 Anda lalu, File > New Project > Standard EXE.
Kedua
Buat tampilannya seperti ini:
Text box dan label juga merupakan sebuah tools box utama dalam pembuatan sebuah program atau sering digunakan, karena pastinya sebuah program memiliki form input yang disertai keteranganya (label). Kita langsung saja ke langkah - langkah pembuatan programnya, berikut dibawah ini:
Pertama
Buka aplikasi VB 6 Anda lalu, File > New Project > Standard EXE.
Kedua
Buat tampilannya seperti ini:
Properties pada label, textbox, commandbutton:
Name
|
Label, Command = Caption | Textbox = Text
|
|
Label | Label1 | Hello flen, |
Label | Label2 | Silahkan isikan text pada textbox dibawah ini |
Label | lbltampil | Kosongkan |
Textbox | txttampil | Kosongkan |
CommandButton | cmdinput | Aktif |
CommandButton | cmdkuning | Kuning |
CommandButton | cmdbiru | Biru |
CommandButton | cmdhapus | Hapus |
CommandButton | cmdbatal | Batal |
Catatan: usahakan "Name" di sama kan, karena berpengaruh dengan coding dibawah ini:
Private Sub cmdbatal_Click()
cmdbiru.Enabled = False
cmdkuning.Enabled = False
cmdhapus.Enabled = False
txttampil.Enabled = False
cmdinput.Caption = "Aktif"
lbltampil.Caption = ""
End Sub
Private Sub cmdbiru_Click()
lbltampil.ForeColor = vbBlue
End Sub
Private Sub cmdhapus_Click()
lbltampil.Caption = ""
End Sub
Private Sub cmdinput_Click()
lbltampil.Caption = txttampil.Text
txttampil.Enabled = True
cmdinput.Caption = "Input"
txttampil.Text = ""
cmdbiru.Enabled = True
cmdkuning.Enabled = True
cmdhapus.Enabled = True
End Sub
Private Sub cmdkuning_Click()
lbltampil.ForeColor = vbYellow
End Sub