Program yang akan saya share di sini adalah program sederhana untuk event pada textbox dan label, serta tambahan event untuk option button dan checkbox ^^
component dalam visual basic yang kita gunakan hanya 4 saja
yakni textbox, label, option button dan check box
didalamnya juga sudah ada file .exe yang merupakan hasil program dari VB itu sendiri
~SELAMAT MENCOBA~
yup componentnya seperti yang terletak pada gambar ^^
yang kira kira hasil program nya seperti ini
event yang di gunakan pada program ini adalah
- event change pada label
- event click pada option button (berdasarkan indeks karena dibuat array)
- event click pada checkbox
- event click pada command button untuk mengakhiri program apabila selesai dengan program
tampilan script yang saya masukkan kurang lebih seperti ini;
jikalau anda ingin langsung melihat program yang sudah jadi silahkan download DisiniPrivate Sub ChkBold_Click()lbOutput.FontBold = ChkBold.ValueEnd SubPrivate Sub ChkItalic_Click()lbOutput.FontItalic = ChkItalic.ValueEnd SubPrivate Sub cmdStop_Click()Unload Me '''unload di gunakan untuk menutup program di sertai dengan objek berupa form yang akan di tutupEnd SubPrivate Sub Form_Load()lbOutput.FontBold = FalselbOutput.FontItalic = FalseEnd SubPrivate Sub OptBG_Click(i As Integer)If i = 0 ThenlbOutput.BackColor = vbRedElseIf i = 1 ThenlbOutput.BackColor = vbBlueEnd IfEnd IfEnd SubPrivate Sub txtInput_Change() 'event change yang berarti event akan di lakukan pada setiap edit text boxlbOutput.Caption = txtInput.Text 'untuk mencetak semua yang kita tulis pada text box pada labelEnd SubPrivate Sub ChkBold_Click()lbOutput.FontBold = ChkBold.ValueEnd SubPrivate Sub ChkItalic_Click()lbOutput.FontItalic = ChkItalic.ValueEnd SubPrivate Sub cmdStop_Click()Unload Me '''unload di gunakan untuk menutup program di sertai dengan objek berupa form yang akan di tutupEnd SubPrivate Sub Form_Load()lbOutput.FontBold = FalselbOutput.FontItalic = FalseEnd SubPrivate Sub OptBG_Click(i As Integer)If i = 0 ThenlbOutput.BackColor = vbRedElseIf i = 1 ThenlbOutput.BackColor = vbBlueEnd IfEnd IfEnd SubPrivate Sub txtInput_Change() 'event change yang berarti event akan di lakukan pada setiap edit text boxlbOutput.Caption = txtInput.Text 'untuk mencetak semua yang kita tulis pada text box pada labelEnd Sub
didalamnya juga sudah ada file .exe yang merupakan hasil program dari VB itu sendiri
~SELAMAT MENCOBA~
Tidak ada komentar:
Posting Komentar
komentar yang sekiranya perlu