000
20.03.2005, 02:00 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Ich habe ein Form und zwei Module.
frmMain: (Form)
| Visual Basic: |
Private Sub cmdOk_Click()
sxFormHide frmMain
End Sub
Private Sub Form_Load()
MsgBox "'sXene Software Services' is installed and ready to configure on this computer.", vbExclamation, "sXene Software Services"
End Sub
|
mdlMain: (Module)
| Visual Basic: |
Public Sub Main()
sxTestMultipleInstance
Load frmMain
sxFormShow frmMain
End Sub
|
sxCodeService1: (Module)
| Visual Basic: |
Public Function sxFormShow(Form As Form)
Load Form
Form.Visible = True
Form.Show
End Function
Public Function sxFormHide(Form As Form)
Unload Form
Form.Visible = False
Form.Hide
End Function
Public Function sxTestMultipleInstance()
If App.PrevInstance Then MsgBox "sXeneWareServices are already running.", vbCritical, "sXene Software Services": End
End Function
|
Läuft FAST alles perfekt..
Am Anfang kommt die Box, dass "sXene Software Service" jetzt installiert ist, das Problem ist, dass auch beim Klick auf OK eine Box mit dem Text kommt.
Wie kann ich das verhinder? Woher kommt das?
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
|
