Minggu, 14 Agustus 2011

Low and Upper Case pada vb


‘add 2 command buttons and 1 text
Private Sub Command1_Click()
    Text1.Text = CapFirst$(Text1.Text) End Sub
Private Sub
Command2_Click()     Text1.Text = LCase$(Text1.Text) End Sub
‘add
1 module Declare Function CapFirst$ Lib “CAPFIRST.DLL” Alias
“CAPFIRST” (ByVal St$)

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...