M*******r
发帖数: 522 | 1 作了一个简单的"Hello World" Form，用F5起来，没问题。
然后加了个module，内容如下：
*************************************
Module MainModule
Dim frm1 As New frmLogin1()
Sub Main()
If PrevInstance() Then
msg = "This Program is already running. Please shut down the
currently running"
msg = msg & " process before starting a new one"
MsgBox(msg, vbInformation)
Exit Sub
Else
Startapplication()
End If
End Sub
Function PrevInstance() |
G**T
发帖数: 388 | 2 Sub Startapplication()
application.run(frm1)
frm1.dispose()
MsgBox(PrevInstance().ToString)
End Sub
【在 M*******r 的大作中提到】
: 作了一个简单的"Hello World" Form，用F5起来，没问题。
: 然后加了个module，内容如下：
: *************************************
: Module MainModule
: Dim frm1 As New frmLogin1()
: Sub Main()
: If PrevInstance() Then
: msg = "This Program is already running. Please shut down the
: currently running"
: msg = msg & " process before starting a new one"
|
f********h
发帖数: 149 | 3 gt dude hehe
【在 G**T 的大作中提到】
: Sub Startapplication()
: application.run(frm1)
: frm1.dispose()
: MsgBox(PrevInstance().ToString)
: End Sub
|
G**T
发帖数: 388 | 4
fryingfish,
d
u
d
e
【在 f********h 的大作中提到】
: gt dude hehe
|
