Sub Main()
If App.PrevInstance Then
MsgBox "Program running!", vbOKOnly + vbCritical, "Prompt"
Exit Sub
End IfINI_FILE = App.Path & "\Station.ini"
If Not ConnectServer() Then
MsgBox "Connection Error!", vbOKOnly + vbCritical, "Prompt"
Exit Sub
End If
Load frmMainEnd Sub以上语句是加在模块当中的,整个模块并没见调用sub main(),我是个初学者,希望哪位高手给予赐教,放在模块里面是指什么意思,放在Form_load里面应该也可以吧,为什么不那样做?
If App.PrevInstance Then
MsgBox "Program running!", vbOKOnly + vbCritical, "Prompt"
Exit Sub
End IfINI_FILE = App.Path & "\Station.ini"
If Not ConnectServer() Then
MsgBox "Connection Error!", vbOKOnly + vbCritical, "Prompt"
Exit Sub
End If
Load frmMainEnd Sub以上语句是加在模块当中的,整个模块并没见调用sub main(),我是个初学者,希望哪位高手给予赐教,放在模块里面是指什么意思,放在Form_load里面应该也可以吧,为什么不那样做?
解决方案 »
- vb中如何提示出鼠标所在点的坐标?
- 请问各位怎样使本机器不能上网(意思是我的软件打开,不允许上网,本软件关闭可以上网)最好是能 作到网上连接 ”禁用“我在2000下能实
- 如何實現一對多綁定?
- 1,如何注释掉某一行或几行程序? 2,如何让鼠标移动到按钮上面时,变成手型?
- 有什么语句可以使flex的滚动条做一定距离的,上或下的的滚动,水平滚动和垂直滚动一样吗?
- 如何在LISTVIEW 中实现全选
- 如果我用create procedure... with encryption as 创建的sp,还有办法再看到吗
- 在线等,DATE控件用法 谢谢了
- wnf2009
- 可能是这里开版以来最简单的问题~~~~~~~~~了~但是我真的找不到
- 实现专用下载协议有什么好的方法?
- 如何通过一个按钮改变选中文字的字号
==========================
设置了 ini 文件的路径。估计这个程序需要用到Station.ini里面的设置参数。
=======
在“工程”“属性”里面可以设置启动的。