FileTitle image vervangen in lijst textbox

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
NB Ik werk met vb6

Ik heb een array van image1
een textbox multiline

Code:
Private Sub Image1_Click(Index As Integer)  
Dim Slash As String  
If Right(App.Path, 1) <> "\" Then Slash = "\"  
CommonDialog1.InitDir = App.Path & Slash & "Graphics"  
CommonDialog1.FileName = App.Path & Slash & "Graphics" & "\*.*"  
CommonDialog1.ShowOpen  
Image1(Index).Picture = LoadPicture(CommonDialog1.FileName)  
Dim a As String  
a = CommonDialog1.FileTitle  
  
Text5.Text = Text5.Text & Left$(a, Len(a) - 4) & vbCrLf'  
EndSub

Met deze code, qls ik een image laadt, worden dus de namen van de images geschreven in de textbox
onder elkaar.
En tot hier is alles ok.

Maar stel nu dat ik een image vervang, dan komt de nieuw naam in de textbox te
staan maar blijf ook de oude daar aanwezig

Hoe kan mijn code wijzigen zodat, als ik een image verander de nieuw naam wordt weergegeven
in de textbox en de oude naam verwijderd(vervangt) wordt?

dank u
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan