Een afb van de array vervangen en de nieuw naam weergeven in een textbox multiline (Vb6)

[satriano17]

Edmoor, nog niet. Werkt zoals vroeger. Word geen naam vervangt in Text1 ma steeds na elkaar. Als ik een image vervang dan wordt de nieuwe naam onder de oude.
De oude naam blijf bestaan.
Ik heb uw code gebruikt. IK heb ook uw zip geopend. Is zoals hier.

Private Sub Image1_Click(Index As Integer)
    If Right(App.Path, 1) <> "\" Then Slash = "\"
    With CommonDialog1
        .InitDir = App.Path & Slash & "Graphics"
        .FileName = App.Path & Slash & "Graphics" & "\*.*"
        .ShowOpen
    End With

    Image1(Index).Picture = LoadPicture(CommonDialog1.FileName)
    Dim a As String
    a = CommonDialog1.FileTitle
    Text1.Text = Text1.Text & Left$(a, Len(a) - 4) & vbCrLf ' Schrijf naam afb in Text1 Multiline
End Sub

 

[edmoor]

Dat klopt inderdaad.
De code vervangt niet een al bestaande naam in Text1.

 

[AHulpje]

Met een Textbox array is het heel simpel, zie #16.

 

[edmoor]

Of zo?

Private Sub Image1_Click(Index As Integer)
    If Right(App.Path, 1) <> "\" Then Slash = "\"
    With CommonDialog1
        .InitDir = App.Path & Slash & "Graphics"
        .FileName = App.Path & Slash & "Graphics" & "\*.*"
        .ShowOpen
    End With
    
    Image1(Index).Picture = LoadPicture(CommonDialog1.FileName)
    a = CommonDialog1.FileTitle
    Image1(Index).Tag = Left$(a, Len(a) - 4)
    For i = 0 To 7
        If Image1(i).Tag <> "" Then fn = fn & Image1(i).Tag & vbCrLf
    Next i
    Text1.Text = fn
End Sub

 

[AHulpje]

Dat lijkt mij een heel mooi gebruik van de vaak veronachtzaamde .Tag!

 

[satriano17]

Edmoor. Gelukt !!!!!
Ik moest wel een paar variabel dimensioneren
maar het werkt
eindelijk.
Fantastisch .

Bedankt voor de moetje en geduld. En bedankt ook aan AHulpje .

Ik ben bezig een paar programma's van het verleden te verbeteren.
Nee, ik werk niet met vb Net.
Steeds vb6

Hier de finaal werkend code.

Private Sub Image1_Click(Index As Integer)
Dim Slash As String

    If Right(App.Path, 1) <> "\" Then Slash = "\"
    With CommonDialog1
        .InitDir = App.Path & Slash & "Graphics"
        .FileName = App.Path & Slash & "Graphics" & "\*.*"
        .ShowOpen
    End With
    Dim a As String
    Dim i As Integer
    Dim fn As String
    Image1(Index).Picture = LoadPicture(CommonDialog1.FileName)
    a = CommonDialog1.FileTitle
    Image1(Index).Tag = Left$(a, Len(a) - 4)
    For i = 0 To 20
        If Image1(i).Tag <> "" Then fn = fn & Image1(i).Tag & vbCrLf
    Next i
    Text1.Text = fn
End Sub

Nogmaals bedankt.

 

[edmoor]

Dat ik nog eens een moetje zou veroorzaken...

 

[satriano17]

Sorry Edmoor verkeerde getypt. Pas nu gezien. Gisterenavond laat had ik problemen met de verbinding met de site. Ik ben je dankbaar voor de uitstekende, gebruikelijke hulp.

 

[edmoor]

Geen probleem hoor, was maar een geintje