- 1、本文档共42页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
[计算机软件及应用]VB代码大全1
隐藏form1: h7Nb17gSL ?form1.hide ^Xjf@ 6Q ?:+~\ 5o ?显示form1: ~TVc9z ?form1.show RO*l`G}i ?53Gk?4o ? f#a]P|V\D ?c+,eAZ` ?退出程序时,弹出窗口提示是否要退出: 3#R%z=q ?1[24FwC ?Private Sub Form_Unload(Cancel As Integer) w5L#Hu1; ?? Dim iAnswer As Integer CA.k(o} ?? iAnswer = MsgBox(真要退出吗?, vbYesNo) ^h n3YH54S ?? If iAnswer = vbNo Then On`,H_Ol^ ?? ? ? Cancel = True J.^GDDJ ?? Else |qU%\XRu ?? ? ? End w4NAgCnE ?? End If CQTB ?End Sub Xws@s(u ?4p3,vPBK ? 9DS3|R ?}K (T%? ?只能用任务管理器关闭程序的代码: i.ncUFM8` ?Private Sub From_Unload(Cancel As Integer) NO.ih ?Cancel = true ?,|b6m,u/ ?End Sub SSm(b\ ?31cZLm`mT ? c?e7#Ei ?\Ywb} ?点击command1打开33IQ网: X-y9`(|tj ?.M8j5YK ?Dim strURL ?0\Zz4 ?e7d/EQU ?Private Sub Command1_Click() 9E=@97 ?strURL = HYPERLINK \t _blank nagc6; ?Shell explorer.exe strURL, 1 77|t9~p9 ?End Sub 3 lQfC!- ?+ 4@vT^ ? icxTon ?7BGcGu--tY ?运行c:\1.exe .h ;P ?shell c:\1.exe? V57A_gv ?j{n ?执行c:\1.bat _muh3| S ?shell c:\1.bat L+ URz2( ?8s L2j1kZ ?注:只适用于大部分exe和全部bat。 )LF `a,3S ?eo4AS r ? h1?3A \Q.K ?vq9.C R ?把label1.caption的值替换成label2.caption的值,label2.caption不变(括号内可省略): .:5 nh ?label1 (.caption) = label2 (.caption) zF+E:7 ?er6~7PMN ?注:是变动值(被替换值) = 数据值(参考值、不变值),别搞反了。 qb4`y, uG ?如 label1 = 1 而不是 1 = label1 PC01m7Ic ?oF*K1T8 ? #\ C0+5N ?Mia,x ?将text1的文本保存到某文件 Z:LGU;:qH ?(cd1是commanddialog控件,下同) p m6(C(O~` ?H]@~#Q6FD ?cd1.ShowSave stHvw-3\ ?If Not cd1.FileName = Then %KIoAEwG ?Open cd1.FileName For Output As #1 OpZ_EG (l ?Print #1, Text1.Text [|9_8]S ?Close #1 S5eBR\ ?End If I8bQBX ?9mJRi*@O ? 5kc7wo,?V ?3TnjJRD ?把某文本文件读取到TEXT1 !lG@M=5 ?% rW%A/b ?Dim tmp$ I86p8. ?cd1.ShowOpen H]nsInq!m ?If Not cd1.FileName = Then !)=$2Wki ?Open cd1.FileName For Input As #1 Yh5yj)sK ?Line Input #1, tmp$ H1.mc ?Close #1 BI%XA ?Text1 = tmp Jg$2nYh ?End If /L=t|KLS ?tavLx [X ? PJ; LO ?_s c d{ ?点击command1弹出窗口(红色处请替换成你要的内容) P.V,p5O ?` I$rE%/ ?Private Sub Command1_Click() 5B,O ?MsgBox (显示文字), vbYe
您可能关注的文档
- [计算机软件及应用]C语言课件第4部分 常量 变量和数组.ppt
- [计算机软件及应用]C软件测试自动化之道.doc
- [计算机软件及应用]DASI HR Project Interface Detailed Design_V10_En.doc
- [计算机软件及应用]db2命令查阅手册_针对linux.doc
- [计算机软件及应用]DDB分布式数据库系统 第三讲 Ddb-L3 design.ppt
- [计算机软件及应用]DHCP服务器在校园网中的应用定稿.doc
- [计算机软件及应用]ecology系统安装手册.doc
- [计算机软件及应用]Elipse插件开发手册.doc
- [计算机软件及应用]dota2超高清壁纸.doc
- [计算机软件及应用]excel函数使用教程.ppt
最近下载
- GB50863-2013 尾矿设施设计规范.docx VIP
- 2025年陕西省二级造价工程师职业资格考试《基础知识》真题及答案.docx VIP
- 人教版PEP三年级英语下册全册同步练习随堂练习一课一练版(有答案).pdf VIP
- 彩钢管理房单元工程施工质量评定表(1).doc VIP
- 江西婺源篁岭民俗文化村发展规划--规划说明.pdf
- IATF16949-2016事态升级控制规范.doc VIP
- 新收入准则对电商企业运营的影响及应对策略.docx VIP
- 东莞市地图含区县可编辑可填充动画演示矢量分层地图PPT模板.pptx VIP
- XX县2022年度自然资源统一确权登记项目技术设计书模版.docx VIP
- 女儿墙维修工程施工方案(3篇).docx VIP
文档评论(0)