Membuat Aplikasi VB 6 Huruf

Pada pembelajaran kali ini, kita akan praktik membuat program huruf.. buatlah form seperti diatas kemudian masukan listing coding seperti dibawah ini :

Private Sub option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub option2_Click()
Label1.ForeColor = vbYellow
End Sub

Private Sub option3_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub option4_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub check1_Click()
If Check1.Value = vbChecked Then
Label1.FontBold = True
ElseIf Check1.Value = vbUnchecked Then
Label1.FontBold = False
End If
End Sub

Private Sub check2_Click()
If Check2.Value = vbChecked Then
Label1.FontItalic = True
ElseIf Check2.Value = vbUnchecked Then
Label1.FontItalic = False
End If
End Sub
Private Sub check3_Click()
If Check3.Value = vbChecked Then
Label1.FontSize = 20
ElseIf Check3.Value = vbUnchecked Then
Label1.FontSize = 15
End If
End Sub

Private Sub command1_Click()
End
End Sub

Tweet

Subscribe to receive free email updates: