扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
这个简单,我以前用VB6就写过一个类似的程序。 不过这个程序需要提供命令行参数哟。
成都创新互联公司是一家专注于成都网站设计、网站建设与策划设计,浏阳网站建设哪家好?成都创新互联公司做网站,专注于网站建设10多年,网设计领域的专业建站公司;建站业务涵盖:浏阳等地区。浏阳做网站价格咨询:028-86922220
就算用VB.NET编写,也必须要有接收这个命令行参数的,不然无法实现显示文件或文件夹路径。
下面是注册表文件的内容,你也可以用程序来写入注册表。
*表示所有文件,你可以随便修改。
最后面的%1,表示当前文件或文件夹
REGEDIT4
[HKEY_CLASSES_ROOT\*\shell\显示名称]
[HKEY_CLASSES_ROOT\*\shell\显示名称\command]
@="D:\\绿色软件\\编程\\VB\\显示名称\\显示名称.exe %1"
工具箱里有ContextMenu(.NET2.0以后名字有点变化,大概差不多),你加入窗体后就可以像编辑普通菜单那样编辑。
编辑好后,选中你要添加菜单的控件。属性窗口里有个ContextMenu属性,在里面选你刚才建立的ContextMenu
常见事件有鼠的标单击、双击、移动;
有键盘的键按下、键松开、按键;
有窗体加载、窗体卸载等等。
通常都是设置一个字母,也就是Alt+某个字母。如图
菜单字母
需要设置一个右键菜单单击的类,然后用集合把所有菜单事件组合起来。百度一下VB6,MyApp.CommandBars("Cell").Controls.Add(MsoControlType.msoControlButton, Before:=1),基本代码都有了
动态生成的控件:
Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim myPicture = New System.Windows.Forms.PictureBox()
Me.Panel3.Controls.Add(myPicture)
myPicture.Size = New System.Drawing.Size(115, 160)
myPicture.TabStop = False
myPicture.Name = "p"
myPicture.Cursor = Cursors.Hand
AddHandler myPicture.Click, AddressOf mypic_Click '添加事件
End Sub
处理事件的过程:
Private Sub mypic_Click() 'ByVal id As String
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流