Vb6 - Een variabel maken van de image naam met click op image

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Dag en Fijne Feesten.

Ik heb op het form 50 images met naam 1, 2, 3, ...50
Ik wil met de mouse max vier keer na elkaar een image selectioneren door met de mouse hierop te clikken.
En aan elke click een variabel wordt gemaakt met de naam van de image. De variabel zal dan dienen voor verder gebruik.
Dus als ik click op image1 = variabel 1
als ik click click op image 10 =variabel 10
enz
en elke variabel in een textbox tonen

dank U
 
De naam van een Image object kan je opvragen met het .Name attribuut en dat in een variabele zetten.
Als dat een globale variabele is kan je die overal in je project gebruiken.
 
dag. Ik werk met vb6, edmoor
Ik dacht dat ik FileTitle moest gebruiken

ik heb zo geprobeerd (voorbeeld voor 1 image)
Code:
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1.Text = image1.FileTitle
End If
maar natuurlijk werkt niet
 
Laatst bewerkt:
Dat je met VB6 werkt staat in je titel, dus dat wist ik.
De naam van het image object staat in .Name
FileTitle is geen bestaand attribuut.

Maar je zegt er niet bij of je daadwerkelijk de naam van het Image object wilt gebruiken of de locatie en naam van het in het object geladen plaatje.
Dat laatste ligt niet vast in het object en kan je dus niet opvragen.
Wat je kan doen is bij het laden van een plaatje die gegevens in het .Tag attribuut van het Image object zetten.
Die gegevens kan je altijd weer opvragen en dus ook in een variabele zetten.
 
De locatie en naam van het in het object geladen plaatje zou ook best kunnen, Edmoor.
De naam van het Image object kan ook van pas komen.



Kunt een voorbeeld geven (ook voor een enkel image)?
 
Laatst bewerkt:
Simpel voorbeeldje:
Code:
Dim PicVar1 As String

Private Sub Command1_Click()
    Dim Pic1 As String
    
    With Picture1
        Pic1 = "C:\Users\Ed\Pictures\Plaatje.jpg"
        .Picture = LoadPicture(Pic1)
        .Tag = Pic1
    End With
    PicVar1 = Picture1.Tag
End Sub
 
Dank Edmoor. Ik heb getest. Ik zal nu in mijn project
in doen.
zal zeker werken.

en een Gelukkig Nieuw Jaar
 
Hetzelfde gewenst :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan