Automation Error (Kun i EXE)

Jeg skal ikke gøre mig klog på det, men hvis du er 100 % sikker på at det virker med:
LoadNewDoc App.Path & "\\sites\\blank.tsi", False
og ikke med:
LoadNewDoc "", False

må det jo være en fejl i internet komponentet, da den eneste forskel på de to kald er, at internet komponentetet får lov til at navigere til en side i det kald der virker.

Fejlen du hentyder til, bliver af msdn beskrevet som en fejlmeddelelse tilknyttet DirectInput.

DIERR_ACQUIRED
The operation cannot be performed while the device is acquired.

Og så er der virkelig grund til forundring da DirectInput jo handler om kommunikation med tasterturet, musen og andet ekstern hardware...

Mit råd til dig er at du indsætter en masse msgbox kommandoer omkring det suspekte område (jo flere desto bedre), der alle viser et forskelligt tal. På den måde kan du også i run-time, se hvor du befinder dig i koden, lige inden fejlen indtræffer. Det ville være rart at vide præcis hvilken kommando der tvinger dit program i knæ.

// Lærenem er ham, der kan stille de rigtige spørgsmål til den rigtige person...

Hej. Jeg er ved at lave en webbrowser med fler-vinduer funktion.
Det virker også helt fint, men lige pludselig er den begyndt at komme med følgende fejl når jeg prøver at åbne et nyt vindue inde i programmet. Men kun når jeg compilerer og starter .EXE filen. Ikke i selve VB når jeg trykker RUN. Kun EXE'en.

Fejlen jeg får:

Kode 

Run-time error '-2147024726 (800700aa)':

Automation error

Når jeg tjekker den med en runtime-error converter så siger den noget med:

Kode 

Ressourcen er i brug

Hvad sker der?

Jeg bruger følgende kode til at åbne en ny side med.

Kode 

Public Sub LoadNewDoc(URL As String, StartPage As Boolean)
    Static lDocumentCount As Long
    Dim frmD As frmDoc
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmDoc
    frmD.Caption = "Dokument " & lDocumentCount
    If StartPage = True Then
            frmD.wbWebBrowser.GoHome
        Else
            If Not URL = "" Then
                frmD.wbWebBrowser.Navigate URL
            End If
    End If
    frmD.Show
End Sub

Og har fundet ud af at hvis jeg i stedet for at skrive

Kode 

LoadNewDoc "", False

så skriver:

Kode 

LoadNewDoc App.Path & "\\sites\\blank.tsi", False

så kommer fejlen ikke. Men jeg kan uden problemer skrive den første linje i VB og så trykke run uden at fejlen kommer.


Med Venlig Hilsen
Morten Torndahl Pedersen

[Redigeret d. 19/02-06 15:19:54 af Morten Torndahl Pedersen]

Hvis at du kalder subben med URL = "" og StartPage = false, ender koden med at ikke indstille browseren til nogen side.
Prøv med:

Public Sub LoadNewDoc(URL As String, StartPage As Boolean)
    Static lDocumentCount As Long
    Dim frmD As frmDoc
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmDoc
    frmD.Caption = "Dokument " & lDocumentCount
    If StartPage = True Then
            frmD.wbWebBrowser.GoHome
        Else
            If Not URL = "" Then
                frmD.wbWebBrowser.Navigate URL
            else
                frmD.wbWebBrowser.GoHome
            End If
    End If
    frmD.Show
End Sub

---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

Tak! Jeg laver lige nogle eksperimenter og vender tilbage!