dan ni scriptnya ::
' klo lower berarti untuk comand yang menjadi kecil
' klo upper berarti untuk comand yang menjadi besar
' klo proper berarti untuk comand yang awalnya aja menjadi besar
Private Sub Command1_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbUpperCase)
End Sub
Private Sub Command2_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbLowerCase)
End Sub
Private Sub Command3_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbProperCase)
End Sub
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Tidak ada komentar:
Posting Komentar