Private Sub Command1_Click() '这是按钮1名称 add_item = InputBox("在此处输入一个英文软件包名", "增加软件") If add_item <> "" Then List1.AddItem add_item End IfEnd Sub
致来访者: 欢迎光临红防安全吧 这是我简单纯朴的唯技术个人博客、记录人生成长的点点滴滴、让我们共同构造简单的线条划出一片蔚蓝的天空,各位来客请多多指引。
您可以有风度的批评我的观点,亦可引章论据阐述您的思想,更可以向我推荐哲文书画。 感谢各位好朋友一直以来的支持和指点。
让哲学殿堂里嵌满华丽珠宝的真理之花盛开吧!
点这里打赏(然后往上拉)