★判定類型2010/9/15
★判定類型2010/9/15
stty0910 周三 9月 15, 2010 4:24 pm
Dim charcode As Integer
If TextBox1.TextLength > 0 Then
If IsNumeric(TextBox1.Text) Then
Label2.Text = "數字類型"
Else
charcode = AscW(TextBox1.Text)
If charcode < 255 Then
Label2.Text = "英文語系字元"
Else
Label2.Text = "非英文語系字元"
End If
End If
Else
Label2.Text = "輸入資料有問題"
End If
If TextBox1.TextLength > 0 Then
If IsNumeric(TextBox1.Text) Then
Label2.Text = "數字類型"
Else
charcode = AscW(TextBox1.Text)
If charcode < 255 Then
Label2.Text = "英文語系字元"
Else
Label2.Text = "非英文語系字元"
End If
End If
Else
Label2.Text = "輸入資料有問題"
End If
stty0910- 終極管理員
- 文章數 : 68
注冊日期 : 2010-08-06
年齡 : 30
來自 : 地球某個角落 -
這個論壇的權限：
您 無法 在這個版面回復文章