Program Basic VB
Program ini digunakan untuk membuat project pada sebuah form yang terdiri dari label, command dan text box. Agar lebih menarik, program ini juga dapat membuat berbagai warna pada tampilan dengan property forecolor.
Nama File : Project1
Nama Program : Visual Basic
Input / Deklarasi : label
command
caption
fontsize
forecolor
msgbox
LISTING PROGRAM :
Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
Label1.FontSize = Label1.FontSize + 2
End Sub
Private Sub Command3_Click()
Label1.FontSize = Label1.FontSize - 2
End Sub
Private Sub Command4_Click()
cek = MsgBox("Are you sure want to exit?", vbYesNo + vbQuestion, "Confirm exit")
If cek = vbYes Then
Unload Me
Else
Exit Sub
End If
End Sub
Private Sub Label2_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Label3_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Label4_Click()
Label1.ForeColor = vbBlue
End Sub
Output :
No comments:
Post a Comment