1,066
社区成员
发帖
与我相关
我的任务
分享我的代码有问题吗
Sub Main()
On Error GoTo errorhandle
systemini
Dim mFrm As New MainForm
' mFrm.Show
mFrm.SendXiaoLiangSms
Unload mFrm
Set mFrm = Nothing
End
Exit Sub '推出过程
errorhandle:
''MsgBox Err.source & " " & Err.Number & " " & Err.Description, vbInformation, "提示"
' MsgBox "请配置好 ini 文件 , 连接数据库 ! ", vbInformation, "提示"
Exit Sub
End Sub
On Error GoTo errorhandle
systemini
Dim mFrm As New MainForm
' mFrm.Show
mFrm.SendXiaoLiangSms
Unload mFrm
Set mFrm = Nothing
End
Exit Sub '推出过程
errorhandle:
''MsgBox Err.source & " " & Err.Number & " " & Err.Description, vbInformation, "提示"
' MsgBox "请配置好 ini 文件 , 连接数据库 ! ", vbInformation, "提示"
Exit Sub
End Sub
...全文
请发表友善的回复…
发表回复
weiyz 2008-12-01
- 打赏
- 举报
谢谢了 ！！
kmzs 2008-11-11
- 打赏
- 举报
Unload mFrm
Set mFrm = Nothing
End
Exit Sub '推出过程
不过他好像就是要发送了短信后退出程序。
Set mFrm = Nothing
End
Exit Sub '推出过程
不过他好像就是要发送了短信后退出程序。
dlmeijianyu 2008-10-14
- 打赏
- 举报
去掉End，要不就直接结束了。
ftz820127 2008-10-09
- 打赏
- 举报
这个代码为什么要加END呢，加了这个后面的代码就执行不到了
SYSSZ 2008-10-09
- 打赏
- 举报
End
Exit Sub '推出过程
Exit Sub '推出过程
