[计算机软件及应用]VB代码大全1.docVIP

  1. 1、本文档共42页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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

文档评论(0)

skvdnd51 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档