tugas 1

gambar tugas 1

 

Private Sub Chkbold_Click()

‘membuat teks menjadi tebal’

If Chkbold.Value = 1 Then

lblteks.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

 

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

lblteks.FontItalic = True

Else

lblteks.FontItalic = False

End If

 

End Sub

 

Private Sub Chkstrikethru_Click()

If Chkstrikethru.Value = 1 Then

lblteks.FontStrikethru = True

Else

lblteks.FontStrikethru = False

End If

 

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

lblteks.FontUnderline = True

Else

lblteks.FontUnderline = False

End If

 

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

 

Private Sub Optblue_Click()

‘membuat teks berwarna biru’

lblteks.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

‘membuat teks berwarna hijau’

lblteks.ForeColor = vbGreen

 

End Sub

 

Private Sub Optred_Click()

‘membuat teks berwarna merah’

lblteks.ForeColor = vbRed

 

End Sub

 

Private Sub Optyellow_Click()

‘membuat teks berwarna kuning’

lblteks.ForeColor = vbYellow

End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s