VB 为无标题栏窗体添加菜单.rar下载

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