Chooser.show in Sub, komisches verhalten

[Paulsche]

Hi,

ich möchte in der SUB IMG05kfz_click eine Bilddatei wählen,
der Dateiname + Pfad wird als Ergebnis in den variablen "Bilddatei" + "Bildpfad"
gespeichert.

Nach der Auswahl des Bildes will ich in der SUB IMG05kfz_click mit dem
Ergebnis weiter arbeiten, wo dann auch das Problem auftritt ,
denn der Rest wird einfach ignoriert.

Wird nach dem chooser.Show("image/*","Bild auswählen")
der Code nicht mehr ausgeführt oder was mache ich falsch ?

Sub IMG05kfz_Click                                                
    chooser.Show("image/*","Bild ausw�hlen")

    Msgbox(Bilddatei,"")
    img05kfz.Bitmap        = LoadBitmap(Bildpfad, Bilddatei)
    LBL05datBild.text        = bilddatei
End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)        ' Ergebnis der Bildauswahl von der Gallerie
    If Success Then
        Bildpfad    = Dir
        Bilddatei     = Filename
    Else
        ToastMessageShow("Kein Bild ausgew�hlt !", True)
    End If
End Sub

[klaus]

Hallo Paulsche,

Du musst den Code nach der chooser.show Zeile in die chooser_Result Routine verschieben.
Denn der Code nach der chooser.show Zeile wird direkt durchgeführt ohne auf das Resultat zu warten.
Versuche doch mal den FileDialog aus agraham's Dialog Library.

Beste Grüsse.

[Paulsche]

Hi Klaus,

ok danke, dann ist es klar. Hab den Code nun in die chooser_Result reingeschoben, funktioniert nun.

Da ich nur Fotos auswählen will, ist der Chooser schon geeigneter wie der Filedialog, passt schon.

[CDPeter]

Hi Paulsche,
funktioniert dein Code auch, wenn du ein Bild aus der Galerie auswählst?
Wäre schön wenn du das dann mal hier posten könntest, irgendwie probier ich mich immer wieder mal und es will und will nicht funktionieren
LG von Peter

[Paulsche]

Hallo Peter,

ja, ich wähle das Bild aus der Galerie aus, funktioniert gut.

Sub IMG05kfz_Click                                                                    ' KFZ-Bild wurde angeklickt zum �ndern
    chooser.Show("image/*","Bild ausw�hlen")                                        ' Bildauswahl aus Bilder-Gallerie
End Sub

Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)            ' Ergebnis der KFZ-Bildauswahl von der Gallerie
    If Success Then
        Bildpfad            = File.DirDefaultExternal                                ' Zielpfad
        Bilddatei            = "KFZ"&(cr_KFZdaten.Position +1)                        ' Zieldatei
        File.Copy(dir,Filename,Bildpfad,Bilddatei)                                    ' Bilddatei von Gallerie ins Programmverz. mit Datainam "KFZx" kopieren
        img05kfz.Bitmap        = LoadBitmap(Bildpfad, Bilddatei)                        ' Bild in Maske �bernehmen
        LBL05datBild.text    = Bilddatei                                                ' Neuer Dateiname in Label speichern
    Else
        ToastMessageShow("Kein Bild ausgew�hlt !", True)                            ' Auswahlvorgang wurde abgebrochen
    End If
End Sub

[CDPeter]

Hi Paulsche,
besten dank dafür, das hat dem älteren Herrn an der Tastatur hier einen Quantensprung nach vorn gebracht
LG von Peter