VB 检测文本框字符
发布网友
发布时间:9小时前
我来回答
共2个回答
热心网友
时间:2024-10-20 20:59
这个需要了解ascii
逐个的检查就行了,具体的自己做
这样学习效率比较高 记忆比较深刻
热心网友
时间:2024-10-20 20:59
Function Check(S As String) As Boolean
'返回结果为T时,存在其他字符,返回结果为F时,没有其他字符
Check = False
Dim i As Integer, C As String
For i = 1 To Len(S)
C = Mid(S, i, 1)
If C <> vbCrLf And Not IsNumeric(C) Then
Check = True
Exit Function
End If
Next
End Function
Private Sub Command1_Click()
Print Check(Text1.Text)
End Sub
如何在vb中检查文本框中包含特定字符
以下为当在text1中按下按键时,判断是否为m或M,如果是,则屏蔽输入 Private Sub Text1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) = "m" Or Chr(KeyAscii) = "M" Then KeyAscii = 0 End If End Sub 以下为判断文本框是否包含字符 Private Sub Command1_Click()If InStr(LCase(Text1....
VB 检测文本框字符
这个需要了解ascii 逐个的检查就行了,具体的自己做 这样学习效率比较高 记忆比较深刻
vb如何判断文本框为空,If语句是?
假设你要判断的文本框名为text1。if len(text1.text)=0 then print "文本框无内容"。其中len是求字符串长度
VB怎样判断两个文本框中的内容
可以将文本text1内容用 mid(txt,i,1)赋值到一个数组中,第二个文本text2输入同时(change)也赋值到另一个数组中,再同时用if 比较。
vb 检测多个文本框是否为空
判断一下TXT里是不是空的,如下:if text1(0)="" then exit sub '空的退出,不再操作 当然,你要判断出空的,再执行对应的,你只要修改一下代码就可以了。
vb判断两个文本框的文本是否正确
if text1.text = 1 then goto jixu else msgbox "错误",64,"信息提示"end if jixu:if text2.text = "2" then msgbox "正确"else msgbox "错误"end if 这是局部,这个方法比较直观,但是 我相信豪一一 你能找到更简单的方法 就这样就行了,祝你成功 ...
刚学vb 在文本框中输入一个字符,判断是字母还是数字字符 或者其他字符...
Private Sub Command1_Click() Dim s As String s = Text1 If Len(s) = 1 Then Select Case s Case "a" To "z", "A" To "Z" MsgBox "字母" Case "0" To "9" MsgBox "数字" Case Else MsgBox "其它" End Select Else MsgBox "请只输...
VB 如何判断多行文本框的内容是否完全显示
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const EM_GETLINECOUNT = &HBA Private Sub Command1_Click()Dim w As Long w = SendMessage(Text1.hwnd, EM_...
VB6.0怎么验证文本框中内容是否为汉字?
楼上说的对,汉字的ASCII码的值全是负数,可以在TEXT控件的KEYPRESS事件中判断ASCII码是否为负。代码楼上已经给出我就不写啦。
求用VB制作文本框字符校验代码
假定按钮是command1,左边的文本框是text1,右边的文本框是text2 Private Sub Command1_Click()If InStr(Text1.Text, Text2.Text) Then MsgBox "你写了123"Else MsgBox "你没有写123"End If End Sub