Sabtu, 20 Oktober 2012

Program Event Textbox dan Label

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


yup componentnya seperti yang terletak pada gambar ^^
yang kira kira hasil program nya seperti ini


event yang di gunakan pada program ini adalah
  1. event change pada label
  2. event click pada option button (berdasarkan indeks karena dibuat array)
  3. event click pada checkbox
  4. event click pada command button untuk mengakhiri program apabila selesai dengan program 
tampilan script yang saya masukkan kurang lebih seperti ini;




Private Sub ChkBold_Click()
lbOutput.FontBold = ChkBold.Value
End Sub

Private Sub ChkItalic_Click()
lbOutput.FontItalic = ChkItalic.Value
End Sub

Private Sub cmdStop_Click()
    Unload Me '''unload di gunakan untuk menutup program di sertai dengan objek berupa form yang akan di tutup
End Sub


Private Sub Form_Load()
lbOutput.FontBold = False
lbOutput.FontItalic = False
End Sub

Private Sub OptBG_Click(i As Integer)
If i = 0 Then
    lbOutput.BackColor = vbRed
Else
    If i = 1 Then
    lbOutput.BackColor = vbBlue
    End If
End If

End Sub

Private Sub txtInput_Change() 'event change yang berarti event akan di lakukan pada setiap edit text box
lbOutput.Caption = txtInput.Text 'untuk mencetak semua yang kita tulis pada text box pada label
End Sub



Private Sub ChkBold_Click()
lbOutput.FontBold = ChkBold.Value
End Sub

Private Sub ChkItalic_Click()
lbOutput.FontItalic = ChkItalic.Value
End Sub

Private Sub cmdStop_Click()
    Unload Me '''unload di gunakan untuk menutup program di sertai dengan objek berupa form yang akan di tutup
End Sub


Private Sub Form_Load()
lbOutput.FontBold = False
lbOutput.FontItalic = False
End Sub

Private Sub OptBG_Click(i As Integer)
If i = 0 Then
    lbOutput.BackColor = vbRed
Else
    If i = 1 Then
    lbOutput.BackColor = vbBlue
    End If
End If

End Sub

Private Sub txtInput_Change() 'event change yang berarti event akan di lakukan pada setiap edit text box
lbOutput.Caption = txtInput.Text 'untuk mencetak semua yang kita tulis pada text box pada label
End Sub

jikalau anda ingin langsung melihat program yang sudah jadi silahkan download  Disini
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