文件名称：VB 为无标题栏窗体添加菜单.rar
文件大小：17KB
文件格式：RAR
更新时间：2022-07-30 11:46:29
VB源码-窗体界面
VB 为无标题栏窗体添加菜单,为无标题栏窗体添加菜单，添加了一种弹出式菜单，窗口美化的挺漂亮，如示例截图所示，源码运行于VB6.0环境。相关代码： Select Case Index Case 0 '添加菜单 PopupMenu Frm_menu.Add, , Picture1(0).Left, Picture1(0).Top Picture1(0).Height 10 Case 1 '删除菜单 PopupMenu Frm_menu.Del, , Picture1(1).Left, Picture1(1).Top Picture1(1).Height 10 Case 2 '查找菜单 PopupMenu Frm_menu.Find, , Picture1(2).Left, Picture1(2).Top Picture1(2).Height 10 Case 3 '列表菜单 PopupMenu Frm_menu.List, , Picture1(3).Left, Picture1(3).Top Picture1(3).Height 10 Case 4 '模式菜单 PopupMenu Frm_menu.model, , Picture1(4).Left, Picture1(4).Top Picture1(4).Height 10 Case 5, 6, 7, 8 Pic_menu.Visible = False MsgBox Lbl_menu(Index).Caption End Select
【文件预览】：
srcfans.com
----为无标题栏窗体添加菜单()
--------Frm_menu.frx(21KB)
--------Frm_main.frm(11KB)
--------image()
--------为无标题栏窗体添加菜单.vbp(2KB)
--------Frm_menu.frm(2KB)
--------菜单按钮.bmp(3KB)
--------MSSCCPRJ.SCC(353B)
--------播放列表图.bmp(242KB)
--------Frm_main.frx(276KB)
--------为无标题栏窗体添加菜单.vbw(102B)