영문포함여부 A-Z a-z
*
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim zzTemp As String = Mid(TextBox1.Text, 1, 1)
If (Asc(zzTemp) >= 65 And Asc(zzTemp) <= 90) Or (Asc(zzTemp) >= 97 And Asc(zzTemp) <= 122) Then
MsgBox("ok")
Else
MsgBox("err")
End If
End Sub
End Class
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim zzTemp As String = Mid(TextBox1.Text, 1, 1)
If (Asc(zzTemp) >= 65 And Asc(zzTemp) <= 90) Or (Asc(zzTemp) >= 97 And Asc(zzTemp) <= 122) Then
MsgBox("ok")
Else
MsgBox("err")
End If
End Sub
End Class
이 게시물을
번호
제목
257
256
254
249
248
246
242
239
238