언어2007. 5. 3. 11:32

If Len(Txt_Width.Text) > 0 Then

        If IsNumeric(Txt_Width.Text) = False Then

           MsgBox "숫자만 입력가능합니다.", vbOKOnly + vbCritical, "입력오류"

           Txt_Width.Text = ""

           Txt_Width.SetFocus

           Exit Sub

        End If

     End If

 

IsNumeric 함수를 이용해 숫자가 입력되었는지 조사

한글이나 영문,특수문자가 입력시 False 로 처리하여 입력된 값을 지움

Posted by 동동(이재동)