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
Als ik een image laadt wordt dus de titel van de image geschreven in de textbox
En tot hier is ok.
Mar 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