Private Sub list1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'List1为组件名称If Button And vbRightButton Then '弹菜单,判断名称 PopupMenu list '弹出(添加)菜单栏的名称,必须有子菜单才能正确使用 End IfEnd Sub
致来访者: 欢迎光临红防安全吧 这是我简单纯朴的唯技术个人博客、记录人生成长的点点滴滴、让我们共同构造简单的线条划出一片蔚蓝的天空,各位来客请多多指引。
您可以有风度的批评我的观点,亦可引章论据阐述您的思想,更可以向我推荐哲文书画。 感谢各位好朋友一直以来的支持和指点。
让哲学殿堂里嵌满华丽珠宝的真理之花盛开吧!
点这里打赏(然后往上拉)