▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda

영문만 입력되어있는지 검사

VB 조회 수 9596 추천 수 0 2007.02.18 22:50:14
Private Sub Command1_Click()
    Dim i As Integer
    Dim oneChar As String
    Dim bEng As Boolean
    
    bEng = True
    Text1 = UCase(Text1)
    For i = 1 To Len(Text1)
        oneChar = Mid(Text1, i, 1)
        If Not (65 <= Asc(oneChar) And Asc(oneChar) <= 90) Then
            bEng = False
        End If
    Next
    MsgBox bEng
End Sub
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수