关于vb.net弹出式菜单的信息
vb.net中的listview控件使用问题
可以按shuift或者ctrl多选,再右键选删除,也可单击单个item右键选择删除。
创新互联作为成都网站建设公司,专注成都网站建设公司、网站设计,有关成都定制网页设计方案、改版、费用等问题,行业涉及成都发电机回收等多个领域,已为上千家企业服务,得到了客户的尊重与认可。
如果附件代码有问题,试试下面这个,我没时间改了。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ListView1
Dim i As Integer
.Items.Clear()'清空
.View = View.Details'用报表模式显示
.FullRowSelect = True'整行选择
.ContextMenuStrip = ContextMenuStrip1'指定右键菜单的控件
.Columns.Add("ID", 100)'添加列头
.Columns.Add("啦啦啦", 200)
'加入15个数据方便测试
For i = 0 To 15
.Items.Add("项目" i)
.Items(i).SubItems.Add("我是第" i "个项目")
Next
End With
End Sub
'菜单中删除的click事件
Private Sub menu_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_del.Click
If ListView1.SelectedItems.Count 1 Then
'但选中的item数量不足一个
MessageBox.Show("至少选择一个")
Else
'删除选中的那个item
ListView1.SelectedItems(0).Remove()
End If
End Sub
vb.net的弹出式菜单怎么做
工具箱里有ContextMenu(.NET2.0以后名字有点变化,大概差不多),你加入窗体后就可以像编辑普通菜单那样编辑。
编辑好后,选中你要添加菜单的控件。属性窗口里有个ContextMenu属性,在里面选你刚才建立的ContextMenu
vb.net2010 menustrip控件下拉菜单属性
这就是普通的菜单,向上弹出,还是向下弹出,是操作系统自动判断的(根据可视的空间区域大小)打勾,很简单,只要将菜单的CheckOnClick设为True就可以了
vb .net中怎么做出Excel中的弹出式菜单?请看附档图片,谢谢!
添加工具栏
添加弹出菜单
打上名称 如果想加上 下划线 快捷功能 以+字符 就可以了
eg 文件(F)
设置图标 完成
VB.NET命令窗口
Vb不是人机对话窗口,而是编程工具,可以编写代码进行调试执行或者生成可执行文件。
用Visual Studio .Net开发"Hello World!"程序:
我们知道"Hello World"一般是命令行程序,而这种程序在Visual Studio .Net中被称为"控制台程序"。下面是Visual Studio .Net编写控制台"Hello World!"程序的具体步骤:
(1)、启动Visual Studio .Net。
(2)、选择菜单【文件】|【新建】|【项目】后,弹出【新建项目】对话框。
(3)、将【项目类型】设置为【Visual Basic项目】。
(4)、将【模板】设置为【控制台应用程序】。
(5)、在【名称】文本框中输入【Hello World】。
(6)、在【位置】的文本框中输入【E:VS.NET项目】,然后单击【确定】按钮,则Visual Studio .Net会按照上面设定的参数创建一个控制台应用程序项目,具体如图01所示。
图01:"Hello World"控制台程序的【新建项目】界面
(7)、在【解决方案资源管理器】窗口中,双击Module1.vb文件,进入Module1.vb文件的编辑界面。
(8)、Visual Studio .Net已经为产生Main()函数。在系统创建的Main()函数中加入下面一行代码就可以了:
Console.WriteLine ("Hello World!")
(9)、选择【文件】|【保存Module1.vb】菜单或者按快捷键Ctrl+S,保存所做的修改。
(10)、此时单击快捷键Ctrl+F5运行程序就可以得到图02所示运行界面:
在VB中调用弹出式菜单应使用什么方法
用MouseUp事件里的 Button参数 1表示左键 2表示右键
建一个菜单 vbFile 子菜单vbRight:
(右键点击窗体 就会弹出 vbFile下的几个子菜单了)
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "点击了左键"
Case 2
Print "点击了右键"
PopupMenu vbFile
End Select
End Sub
----------------------------
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 4 Or 0
End If
End Sub
是对的。 建议改成MouseUp事件,因为你看正常的弹出菜单 都是鼠标键弹起来出现的
才发现 你是想要把系统的右键弹出式菜单屏蔽吧
如下代码即可(把相应代码改成你想要的)
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu color, 0 Or 4'左键所触发的内容
End If
If Button = 2 Then'右键所触发的内容
Text1.Enabled = False
Text1.Enabled = True
PopupMenu color, 0 Or 4
End If
End Sub
网页名称:关于vb.net弹出式菜单的信息
标题来源:http://azwzsj.com/article/hpojhp.html