vb 文件名问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 07:47:47
我在vb6建了一个输文件名的text,我想让它不允许输入\%*~这些不允许做文件名的字符并且同时跳除一个警告的msgbox.
=大侠来解答.解答好了奖分

Private Sub Text1_Change()
Dim n, i As Integer
n = Len(Text1.Text)
Dim s As String
For i = 1 To n
s = Mid(Text1.Text, i, 1)
If s = "\" Or s = "/" Or s = ":" Or s = "*" Or s = "?" Or s = "<" Or s = ">" Or s = "|" Or s = Chr(34) Then
MsgBox "出错信息"
End If
Next
End Sub
如果还有什么不让输入的,就把他们填入到if后面

楼上说得基本正确～～

建议楼上 在提示出错信息之后，增加一句 exit sub
跳出程序～

这样避免出错后的结果仍然影响后面操作～～