此主题相关图片如下:窗口概览.png
开发版的。按钮太多不想转换了。
1.添加了操作目录树的常用功能。可对目录树新增、删除、重命名、排序等操作
2.对目录树操作后,可以保存为表。并且可以保存提示,非常方便。
3.子角色权限限定在父级角色的范围内选择,实现分层权限管理。
4.本窗口通用性非常强。“是居家旅行,狐表开发之必备良药”
“设置提示”那个按钮,大家可以把这段代码加进去
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim dr As DataRow
Dim s As String = ""
If InputValue(s, "请输入节点描述", "") Then
dr = 表.find("TreeFullPath = '" & nd.FullPath & "'")
dr("提示") = s
nd.Tooltip = dr("提示")
End If
欢迎大家提出宝贵意见。