"Laufzeitfehler '424' Objekt erforderlich" in VB6

[Antonio C. (antonio-c)]

Hallo Zusammen

Ich erhalte oben erwähnte Fehlermeldung wenn ich ein File mit Button 
Open importieren oder mit Save exportieren will.
VB6 läuft auf x32 XP und SP6 for VB6 ist installiert...

Hier der Code-Abschnitt:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim sFile As String
    Dim ProgMemAddrH As Long
    Dim command(5) As Byte
    Dim writeFail As Boolean

    Select Case Button.Key
        Case "Open"
            
            With CommonDialog1
                .DialogTitle = "Open HEX File"
                .CancelError = False
                .Flags = cdlOFNHideReadOnly
                .Filter = "INHEX32 Files (*.HEX)|*.HEX|All Files (*.*)|*.*"
                .ShowOpen
                If Len(.FileName) = 0 Then
                    Exit Sub
                End If
            
                PicBootS.InFileName = .FileName
                .FileName = ""
            End With


            RetStat = ImportP24HEXFile(PicBootS.InFileName)


            If RetStat = -2 Then
                StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_FORMAT
            Else
                If RetStat > 0 Then
                    StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_IMPORTED
                Else
                    StatusBar1.Panels(PANEL_STATUS).Text = STATUS_INVALID_HEX
                End If
            End If
            
        Case "Save"
            With CommonDialog1
                .DialogTitle = "Save HEX File"
                .CancelError = False
                .Flags = cdlOFNHideReadOnly
                .Filter = "INHEX32 Files (*.HEX)|*.HEX|All Files (*.*)|*.*"
                .ShowSave
                If Len(.FileName) = 0 Then
                    Exit Sub
                End If
                PicBootS.OutFileName = .FileName
                .FileName = ""
            End With


            ExportP24HEXFile PicBootS.OutFileName


            StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_EXPORTED

Kann mir hier jemand helfen?



Danke und Gruss

[Peter II (Gast)]

in welcher zeile kommt denn der fehler? Einfach mal mit dem Debugger 
durchgehen.

[Antonio C. (antonio-c)]

nach der Zeile 10 kommt der Fehler...

.DialogTitle = "Open HEX File"

[Peter II (Gast)]

da wird wohl CommonDialog1 nicht initalisiert sein.

[Antonio C. (antonio-c)]

wo kann ich denn die Initialisierung tun?

[Peter II (Gast)]

keine ahnung wo kommt den CommonDialog1 überhaupt her?

Wenn es dein Programm ist, musst du doch wissen was du machst.

[Antonio C. (antonio-c)]

Na ja, fast mein Programm... ;o)

CommonDialog ist eine Klasse in VB und deren Members sind:

.DialogTitle
.CancelError
.Flags
.Filter
.ShowOpen
.FileName
usw.

wieso die Klasse CommonDalog1 im source heisst, weiss ich auch nicht.
In der Klassenbeschreibung steht eben nur CommonDialog. Habe es auch 
ohne die "1" zuletzt versucht.

Ich habe die "Option Explicit" eingefügt und definiere alle Variablen 
eben explicit, mal schauen was raus kommt...

um weitere Hilfe bin ich dankbar...

[Antonio C. (antonio-c)]

Bei erneutem kompilieren mit "Option explicit" kommt ein "Compile error: 
Variable not defined".
Hier als Variable ist CommonDialog gemeint, obwohl ja diese eine Klasse 
ist...
Kann sein, dass einige Klassen nicht erkannt werden?

[Peter II (Gast)]

Antonio C. schrieb:
> wieso die Klasse CommonDalog1 im source heisst, weiss ich auch nicht.
> In der Klassenbeschreibung steht eben nur CommonDialog. Habe es auch
> ohne die "1" zuletzt versucht.

du solltst erstmal Programmieren lernen!

Die Klasse hilft dir überhaupt nichts, du brauch ein Objekt der Klasse 
und diese hat immer irgendeinen namen. Aber irgendwo muss du es halt 
erzeugen, und das sieht man leider nicht wo du das machst.

[Antonio C. (antonio-c)]

ich hab nicht so grosse VB6 Erfahrung.
Wo kann ich ein Objekt erzeugen?
Kannst du mal ein bsp in einigen Zeilen auflisten, wie ein Objekt in VB6 
erzeugt wird?

[Antonio C. (antonio-c)]

Jetzt habe ich folgenden Code geschrieben und ein Objekt CommonDialog1 
der Klasse CommonDialog definiert:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim sFile As String
    Dim ProgMemAddrH As Long
    Dim command(5) As Byte
    Dim writeFail As Boolean
    Dim CommonDialog1 As CommonDialog
    Dim RetStat As String
    Dim test As String
    Dim MyButtons As String

    Select Case Button.Key
        Case "Open"
            
            
            
            'With CommonDialog1
                CommonDialog1.DialogTitle = "Open HEX File"
                CommonDialog1.CancelError = False
                CommonDialog1.Flags = cdlOFNHideReadOnly
                CommonDialog1.Filter = "INHEX32 Files (*.HEX)|*.HEX|All Files (*.*)|*.*"
                CommonDialog1.ShowOpen
                If Len(CommonDialog1.FileName) = 0 Then
                    Exit Sub
                End If
            
                PicBootS.InFileName = CommonDialog1.FileName
                CommonDialog1.FileName = ""
            'End With


            RetStat = ImportP24HEXFile(PicBootS.InFileName)


            If RetStat = -2 Then
                StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_FORMAT
            Else
                If RetStat > 0 Then
                    StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_IMPORTED
                Else
                    StatusBar1.Panels(PANEL_STATUS).Text = STATUS_INVALID_HEX
                End If
            End If

Die "With" Sintax Syntax habe ich mal ausskommentiert.
Nun erhalte ich aber "Laufzeitfehler 91: Objektvariable oder 
With-Blockvariable nicht festgelegt" wenn ich auf Open Button drücke...
Die gleiche Fehlermeldung erhalte ich, wenn der With-Block drin ist...

Eben wie gesagt, ich bin ziemlich ein Anfgänger in VB, also sind 
konstruktive Bemerkungen gewünscht...

[Rufus Τ. F. (rufus)]

Dann sieh halt in die Dokumentation, was die zum Gebrauch von Objekten 
des Typs "CommonDialog" erzählt.

Ansonsten gibt es hier auch noch ein paar Hinweise:

http://www.vbarchiv.net/faq/kat_4.html

[Delphi Liebhaber (Gast)]

Keine Ahnung von VB aber ohne vorab ein Objekt zu deklarieren wird das 
wohl nix.

Schau mal hier http://www.youtube.com/watch?v=b6BtKWYR87w

Und lass das schitt  With CommonDialog1 weg.

Mach das ganze nur unleserliche:

[Antonio C. (antonio-c)]

Vielen Dank Leute, jetzt hat's funktioniert, der Link von Rufus war 
hilfreich...

Geht eben nichts über ein Objekt deklarieren...

so ist's richtig:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Dim sFile As String
    Dim ProgMemAddrH As Long
    Dim command(5) As Byte
    Dim writeFail As Boolean
    Dim RetStat As String
    Dim test As String
    Dim MyButtons As String
    Dim Dialog As Object
    Set Dialog = CreateObject("MSComDlg.CommonDialog")

    Select Case Button.Key
        Case "Open"
            
            With Dialog
                .DialogTitle = "Open HEX File"
                .CancelError = False
                .Flags = cdlOFNHideReadOnly
                .Filter = "INHEX32 Files (*.HEX)|*.HEX|All Files (*.*)|*.*"
                .ShowOpen
                If Len(.FileName) = 0 Then
                    Exit Sub
                End If
            
                PicBootS.InFileName = .FileName
                .FileName = ""
            End With


            RetStat = ImportP24HEXFile(PicBootS.InFileName)


            If RetStat = -2 Then
                StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_FORMAT
            Else
                If RetStat > 0 Then
                    StatusBar1.Panels(PANEL_STATUS).Text = STATUS_HEX_IMPORTED
                Else
                    StatusBar1.Panels(PANEL_STATUS).Text = STATUS_INVALID_HEX
                End If
            End If
            
        Case "Save"
            With Dialog
                .DialogTitle = "Save HEX File"
                .CancelError = False
                .Flags = cdlOFNHideReadOnly
                .Filter = "INHEX32 Files (*.HEX)|*.HEX|All Files (*.*)|*.*"
                .ShowSave
                If Len(.FileName) = 0 Then
                    Exit Sub
                End If
                PicBootS.OutFileName = .FileName
                .FileName = ""
            End With