Immagini dinamiche vb6

mercoledì 28 aprile 2010 - 10.31

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

isotopo75 Profilo | Newbie

44 messaggi | Data Invio: mer 28 apr 2010 - 10:31

Buongiorno a tutti,

sto realizzando un form che carica delle image in modo dinamico, nel senso che il form è vuoto e in run-time vengono caricate delle icone con il loro nome. Vi invio il listato

Dim my_icon As Object, my_name As Object
i = 0
j = 0
While Not rs.EOF
Set my_icon = Me.Controls.Add("VB.image", "image" & i & j)
my_icon.Visible = True
Set my_name = Me.Controls.Add("VB.label", "label" & i & j)
my_name.Visible = True

my_icon.Picture = LoadPicture(path_ico & rs.Fields(2))
my_name.Caption = rs.Fields(1)
my_name.AutoSize = True

'Posiziona le icone e le label
my_icon.Move 500 + (i * 1200), 500 + (j * 1200)
my_name.Move 500 + (i * 1200), 1100 + (j * 1200)
i = i + 1
If i = 3 Then
i = 0
j = j + 1
End If
rs.MoveNext
Wend

in questo stralcio con rs.fields() carico l'immagine e il nome dell'icona. Tutto funziona splendidamente.
Ora la mia domanda è:

Come posso intercettare l'evento click sull'immagine? Nel senso che non so come avviare la classica procedura

Private Sub Image1_Click()
...
End Sub

perchè il nome dell'immagine cliccata è diverso ogni volta e, in più, non è detto che siano sempre lo stesso numero di immagini... dipende dai valori letti nel campo rs.fields(2) del database.

Ho provato anche a sostituire le immagini con dei commandbutton ma non riesco a caricare in questi le immagini perchè la proprietà Style=1 non si può impostare in run-time...

Qualcuno ha qualche idea?

Grazie mille...
Iso75

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !