Per Ole gestartete Anwendung unsichtbar

26/11/2007 - 13:49 von F. Haupt | Report spam
Hallo Newsgroup,

ich nutze ole um eine Anwendung zu starten, diese soll dann auch sichtbar
sein. Leider ist die Anwendung nur ab und zu sichtbar, bzw. verschwindet hin
und wieder.
Hier der Code:

Sub Edit(Type)
On Error GoTo err_CE

Dim oCEDoc As CEdit.CEditDoc

On Error Resume Next
Set oCEDoc = GetObject(, "CEdit.CEditDoc")
If oCEDoc Is Nothing Then
Set oCEDoc = New CEdit.CEditDoc
End If

With oCEDoc
.CEditCur Type
End With

Set oCEDoc = Nothing

exit_CE:
Exit Sub
err_CE:
MsgBox Err.Description
Resume exit_CE
End Sub

Was mache ich hier falsch? Wie muss es richtig aussehen, damit die Anwendung
sichtbar bleibt?

Grüße

Florian
 

Lesen sie die antworten

#1 Thorsten Doerfler
26/11/2007 - 14:52 | Warnen spam
F. Haupt schrieb:
ich nutze ole um eine Anwendung zu starten, diese soll dann auch sichtbar
sein. Leider ist die Anwendung nur ab und zu sichtbar, bzw. verschwindet hin
und wieder.
Hier der Code:

Sub Edit(Type)
On Error GoTo err_CE

Dim oCEDoc As CEdit.CEditDoc

On Error Resume Next
Set oCEDoc = GetObject(, "CEdit.CEditDoc")
If oCEDoc Is Nothing Then
Set oCEDoc = New CEdit.CEditDoc
End If

With oCEDoc
.CEditCur Type
End With

Set oCEDoc = Nothing

exit_CE:
Exit Sub
err_CE:
MsgBox Err.Description
Resume exit_CE
End Sub

Was mache ich hier falsch? Wie muss es richtig aussehen, damit die Anwendung
sichtbar bleibt?



Wenn das CEdit.CEditDoc Objekt eine Visible-Eigenschaft hat, setze sie
auf True, wenn es eine Show-Methode hat, rufe diese auf. Wenn beides
fehlt, konsultiere die Dokumentation dieser Komponente bzw. setz Dich
mit dem Support des Herstellers in Verbindung.

Thorsten Dörfler
Microsoft MVP Visual Basic

vb-hellfire visual basic faq | vb-hellfire - einfach anders
http://vb-faq.de/ | http://www.vb-hellfire.de/

Ähnliche fragen