Springen naar inhoud


- - - - -
VB6

Filetitle Wijzigen Van Image In Array



  • Log in a.u.b. om te beantwoorden
Er zijn 4 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 25 maart 2017 - 23:03

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

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

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 577 berichten
    Laatst bezocht 18 sep 2017 19:05
  • LocatieMechelen (BE)

Geplaatst op 26 maart 2017 - 11:27

Wat is het doel van de tekstbox? Als het is om te kijken welke bestanden er zijn geladen geweest kun je beter een listbox gebruiken en dan de laatste entry wijzigen.

Trouwens al eens gezien wat er gebeurd als je op cancel drukt in je commondialog ;)

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 26 maart 2017 - 11:40

De textbox heeft als doel om de FileTiles van de images te opvangen.

Citeren

Trouwens al eens gezien wat er gebeurd als je op cancel drukt in je commondialog
ik heb  pas geprobeerd en gebeurt niks.
Ja het kan ook met een listbox, maar ik had het liefst  met textbox.(Als het kan werken)

#4 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 577 berichten
    Laatst bezocht 18 sep 2017 19:05
  • LocatieMechelen (BE)

Geplaatst op 26 maart 2017 - 11:42

Dan zou ik overgaan op een listbox.

Nee in je programma. Klik op je image en dan op cancel :)

#5 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 26 maart 2017 - 11:47

Als ik een image al heb staan en ik druk op  cancel op de image  wordt toch weer de FileTile geschreven in de TextBox





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan PascalBianca die tot op heden alles bijhoud sinds anno dec 2010)
Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be