- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用户掩码无法显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177444)
-- 发布时间：2022/5/22 22:25:00
-- 用户掩码无法显示
我下载了论坛的例子跟着做，可TextBox1、TextBox2的掩码无法显示
这是论坛的例子
这个是我做的效果
-- 发布时间：2022/5/22 22:37:00
--
用得着这么麻烦吗？http://www.foxtable.com/webhelp/topics/1865.htm
-- 发布时间：2022/5/23 23:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:用户掩码523.foxdb |
软件用户列表中的密码、密码确认列无法变为动态掩码（注：密码长度为6-8位数），窗口的保存按钮，点击多次出现重复录入软件用户列表。
-- 发布时间：2022/5/24 8:48:00
--
参考：http://www.foxtable.com/webhelp/topics/2262.htm
-- 发布时间：2022/5/25 10:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:用户掩码525.foxdb |
我希望输入密码ABC123456,密码ABC12345不执行错误提示，因为我已截取了字符，否则这代码没意思。
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt5 As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim txt6 As WinForm.TextBox = e.Form.Controls("TextBox6")
If txt2.text.length > 0 AndAlso txt2.text.length < 6 AndAlso txt6.text.length > 0 AndAlso txt6.text.length < 6 Then
txt2.text = Nothing
txt6.text = Nothing
MessageBox.Show("密码必须 6-8 位包含字母或数字 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
ElseIf txt2.text.length > 8 AndAlso txt6.text.length > 8 Then
txt2.text = Left(txt2.text,8)
txt6.text = Left(txt6.text,8)
End If
If Left(txt5.text,8) <> Left(txt6.text,8) Then
txt2.text = Nothing
txt6.text = Nothing
MessageBox.Show("密码设置必须等于确认密码")
End If
[此贴子已经被作者于2022/5/25 12:48:34编辑过]
-- 发布时间：2022/5/25 10:41:00
--
项目没有TextBox5、6。搞不清楚这3个控件是什么东西
-- 发布时间：2022/5/25 10:52:00
--
有啊，分别重叠在TextBox1、TextBox2下，设置为不可见，但它们是存在的。
-- 发布时间：2022/5/25 12:03:00
--
If txt2.text <> txt6.text Then
txt2.text = Nothing
txt6.text = Nothing
MessageBox.Show("密码设置必须等于确认密码")
End If
-- 发布时间：2022/5/25 12:47:00
--
我原来就是象你这样写的，试过不行才改为截取字符，结果一样，都一定要前后输入一样才通过，那截取字符代码根本不起作用了！
-- 发布时间：2022/5/25 12:54:00
--
设置TextBox5、TextBox6是方便判断的，因为TextBox1、TextBox2已用掩码显示，怎样比较是否相等。