锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net子菜单 vb中菜单

菜单IT技术

VB.net怎么制作树形菜单?。?/h2>你说的“树形菜单”是指下拉菜单（可以有子菜单）吗？如果是 ， VB.net提供了MenuStrip控件，在工具箱里能找到，直接就在对应位置打字就可以了，完全是“所见即所得” 。
vb.net2010 menustrip控件下拉菜单属性这就是普通vb.net子菜单的菜单vb.net子菜单，向上弹出，还是向下弹出，是操作系统自动判断vb.net子菜单的（根据可视的空间区域大?。┐蚬? ，很简单，只要将菜单的CheckOnClick设为True就可以vb.net子菜单了
vb.net用变量设置菜单属性包括子菜单 ， 例如：菜单名.Enabled=false，替换成，菜单变不清楚热键和快捷键是什么区别
1.如果你是指Chrl S这样的快捷键，可以设置ShortCutKeys属性，属性窗口就有可视化编辑器 。
2.如果你是指"保存(S)"，其中s有下划线这样的用Alt 字母来访问的设置，应该在菜单项的Text属性中使用符号 。符号后面的字母将被作为快速访问字符，显示的时候不会被显示出来，而字母会自动加上下划线 。比如"保存(s)" 。
3.和选中标记有关的属性有两个
CheckOnClick在菜单项上单击时是否改变Checked属性
Checked设置/获取 菜单项是否被选中
4.设置菜单项的Enabled属性为False
VB.net如何动态获取菜单栏中的菜单名并用树型表示添加：（先在加一个contextMenu,再它vb.net子菜单的添加子菜单的click事件编程）
Try
’使TreeView可以被编辑
TreeView1.LabelEdit = True
‘判断vb.net子菜单你是不是选定的是不可编辑的节点vb.net子菜单，我这里工种节点不可以被编辑，只有工种下级的
各个工种名称可以被编辑
If Trim(TreeView1.SelectedNode.Text) = "工种" Then
‘添加节点
AddNode = New TreeNode("请输入新工种名字")
TreeView1.SelectedNode.Nodes.Add(AddNode)
TreeView1.ExpandAll()
AddNode.BeginEdit()
TreeView1.LabelEdit = True
NodeAdded = True
End If
Catch err As Exception
MsgBox(err.ToString)
End Try
删除与添加类似，只是如果你的节点名字从其vb.net子菜单他处（如数据库）得来，那么你还需要更新数据库
编辑：
Private Sub TreeView1_BeforeLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.BeforeLabelEdit
TreeView1.LabelEdit = True‘使可以编辑
AddNode = TreeView1.SelectedNode
End Sub
Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit
Try
‘此时你改完了节点名字
TreeView1.SelectedNode.EndEdit(True)
If e.Label Is Nothing Then
'do nothing
ElseIf e.Node.Text = "工种" Then‘工种不能改
e.CancelEdit() = True
‘e.Node.Text ，e.Label.ToString 一个是改前的名字一个是该后的名字，具体哪个对
哪个请查MSDN
ElseIf Trim(e.Node.Text)"工种" And e.Node.Texte.Label.ToString Then
If MsgBox("此操作会导致当前工种中的所有人员的工种都被更改，是否确定？", MsgBoxStyle.YesNoMsgBoxStyle.Information, "警告") = MsgBoxResult.Yes Then
。。。。‘我的更改
MsgBox("更改成功！", MsgBoxStyle.OKOnly, "提示")
'Call InitTree()‘有时要重新把treeview初始化一遍，视需求定
End If
End If
Catch err As Exception
MsgBox(err.ToString)
End Try
End Sub
其他：
挡treeview得到焦点时你可以使用ContextMenu，反之ContextMenu禁用
Private Sub TreeView1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.GotFocus
TreeView1.ContextMenu = ContextMenu1
End Sub
Private Sub TreeView1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.LostFocus
TreeView1.ContextMenu = Nothing
End Sub
注意：这里没有在ContextMenu菜单添加“更改”项 ， 而是直接更改：即左键单击节点表示
选中，再单击一下就可以编辑了 ， 更改之后单击他处就完成更改，和你在windows中更改文
件名字相似 。
【vb.net子菜单 vb中菜单】关于vb.net子菜单和vb中菜单的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：java代码写完后怎么用，java写代码技巧

    下一篇：如何查询服务器代理？ 怎么查服务器代理