Keskustelu: Ohjelmointikysymykset: VB6: Kuvan avaus file1:stä

Mulla on eräässä projektissani tälläinen koodi:

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Mun pitäs saada avatuksi tuosta file1:stä kuvatiedosto ja näytettäväksi image1:ssä, millä koodilla se onnistuu kun en muista ja en oo mistään sitä enää löytäny...

Tämän koodin pitäisi toimia. Koodi huomioi sen kummallisuuden, että juurihakemiston nimessä (esim. C:\) on valmiiksi mukana kenoviiva ja alihakemistoissa taas ei. Lisäksi koodissa on virheenkäsittely.

Private Sub File1_Click()
    Dim hak As String, tied As String
    'otetaan selville hakemistonimi
    hak = Dir1.Path
    'lisätään hakemistonimeen kenoviiva tarvittaessa
    If Right(hak, 1) <> "\" Then
        hak = hak & "\"
    End If
    'muodostetaan tiedostonimi
    tied = hak & File1.FileName
    'virhetapauksessa siirrytään seuraavalle riville
    On Error Resume Next
    'ladataan kuva Image1:seen
    Image1.Picture = LoadPicture(tied)
    'jos lataaminen ei onnistunut, näytetään virheilmoitus
    If Err <> 0 Then
        MsgBox "Myttyyn meni!"
    End If
End Sub

Tämäkin kai toimii...

Private Sub Image1_Click()
    SelectedFile = File1.Path & "\" & File1.FileName
    Image1.Picture = LoadPicture(SelectedFile)
End sub

Kiitos avusta... Mutta sitten olisi vielä samantapainen ongelma, että jos mää haluaisin avata file2:sta teksti-tiedoston text1:seen, niin mitä sitten pitäisi tehdä. Ja pitäisi saada avatuksi vielä file3:sta äänitiedosto.
Jos tajusitte ongelman...