TUGAS 2.6 (Menampilkan Dan Menentukan Warna dan Style Font pada Label)
Private Sub CmbKetik_Keypress(keyascii As Integer)
If keyascii = 13 Then
Label2 = CmbKetik.Text
End If
End Sub
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub
Private Sub CmdOk_Click()
Label2.Caption = CmbKetik.Text
End Sub
Private Sub CmdSelesai_Click()
End
End Sub
0 Response to "TUGAS 2.6 (Menampilkan Dan Menentukan Warna dan Style Font pada Label)"
Post a Comment