用户掩码无法显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户掩码无法显示

共有4954人关注过本帖树形打印复制链接主题：用户掩码无法显示

采菊东篱下

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

用户掩码无法显示 发帖心情

Post By：2022/5/22 22:25:00 [显示全部帖子]

我下载了论坛的例子跟着做，可TextBox1、TextBox2的掩码无法显示

这是论坛的例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:密码框.table

这个是我做的效果

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用户掩码.foxdb

采菊东篱下

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/23 23:33:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用户掩码523.foxdb

软件用户列表中的密码、密码确认列无法变为动态掩码（注：密码长度为6-8位数），窗口的保存按钮，点击多次出现重复录入软件用户列表。

采菊东篱下

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：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编辑过]

采菊东篱下

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/25 10:52:00 [显示全部帖子]

有啊，分别重叠在TextBox1、TextBox2下，设置为不可见，但它们是存在的。

采菊东篱下

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/25 12:47:00 [显示全部帖子]

我原来就是象你这样写的，试过不行才改为截取字符，结果一样，都一定要前后输入一样才通过，那截取字符代码根本不起作用了！

采菊东篱下

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/25 12:54:00 [显示全部帖子]

设置TextBox5、TextBox6是方便判断的，因为TextBox1、TextBox2已用掩码显示，怎样比较是否相等。

采菊东篱下

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/25 14:08:00 [显示全部帖子]

行，改过来没问题了，我以为掩码无法进行对比，因为它以*形式显示，所以才设了TextBox5、TextBox6，现在不要TextBox5、TextBox6，直接截取extBox1、TextBox2的字符后对比都没问题了，谢谢。

[此贴子已经被作者于2022/5/25 14:10:37编辑过]

采菊东篱下

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/29 18:20:00 [显示全部帖子]

此主题相关图片如下：qq图片20220529180745.png

我想把左边的目录树管理员独立一、级二节点，其余的部门｜职位｜姓名升为一、二、三级节点，与管理员并列，我这样写只做出上面的效果，不是我要的部门升为一级节点：

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")

trv1.BuildTree("权限列表", "版块管理|权限分配")

For Each u As UserInfo In Users

If u.Type = UserTypeEnum.Administrator Then

If trv2.Nodes.Contains(u.Group) = False Then

trv2.Nodes.Add(u.Group)

End If

trv2.Nodes(u.Group).Nodes.Add(u.Name)

End If

trv3.BuildTree("软件用户列表", "部门|职位|姓名")

Dim Node2 As WinForm.TreeNode = trv2.Nodes(0)

For i1 As Integer = trv3.Nodes.Count - 1 To 0 Step - 1

Dim Node3 As WinForm.TreeNode = trv3.Nodes(i1)

trv3.Nodes.RemoveAt(i1)

Node2.basenode.Nodes.Add(Node3.basenode)

采菊东篱下

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10374 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2022/5/29 21:51:00 [显示全部帖子]

解决了，原来这么简单。

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

trv2.BuildTree("软件用户列表", "部门|职位|姓名")

trv2.Nodes.Insert("管理员", 0)

下一主题 >> << 上一主题

主题：用户掩码无法显示