1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. ' 대문자로만 입력받음
  3.     KeyAscii = Asc(UCase(Chr(KeyAscii)))
  4. End Sub
 
Posted by 싸구려코드

Trackback Address :: http://sarangsai.com/trackback/80 관련글 쓰기

댓글을 달아 주세요