Computer_IT/VisualBasic 2006.09.12 11:07
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. ' 대문자로만 입력받음
  3.     KeyAscii = Asc(UCase(Chr(KeyAscii)))
  4. End Sub
 
posted by 고급코드 고급코드