[VB.NET] Pulsante che cambia immagine

[loweherz]

Come posso fare un bottone che se viene cliccato poi l'immagine cambia?? nel senso..io ho un bottone con una lampadina spenta..e cliccando tale bottone vorrei che la lampadina si accendesse (con un altra immagine) e che rimanesse fissa finche non ripremo il bottone cosi spegnendola!!

[MItaly]

Linguaggio? Versione?

[arthas83]

soluzione sporchissima:
crei 2 pulsanti di identica dimensione, nella stessa location...
uno invisibile e uno visibile...
il primo imposta come visibile il secondo e come invisibile se stesso, il secondo fa il viceversa... entrambi chiamano eventualmente qualche funzione di logica di programma ovviamente.

soluzione più pulita:
al pulsante associ una variabile che indica lo stato della lampadina (potresti sfruttare anche la property Tag del button), e alla pressione del tasto verifichi lo stato ed agisci di conseguenza.

soluzioni ancora più pulite:
ma insomma, dobbiamo solo accendere e spegnere una lampadina! :-P
certo se devi farlo su decine di pulsanti allora si può parlare d'altro, tipo creare qualche controllo custom, ecc...

saluti

[loweherz]

io uso visual basic 2008 express edition

cmq come potrebbe essere "in soldoni" la versiona pulita ke hai proposto? come sarebbe il codice?

[arthas83]

non ho testato... il codice è per VB2003 ma dovrebbe andare bene anche per il 2008 (al quale non mi sono mai approcciato in maniera concreta):

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CType(sender, Button).Tag = 1 Then
CType(sender, Button).Image = ... 'carica l'immagine da file o da risorse
CType(sender, Button).Tag = 2
'altre istruzioni
ElseIf CType(sender, Button).Tag = 2 Then
CType(sender, Button).Image = ... 'carica l'immagine da file o da risorse
CType(sender, Button).Tag = 1
'altre istruzioni
End If
End Sub

ovviamente si può migliorare facendo solo 1 conversione su un oggetto d'appoggio e ovviamente aggiungendo gestione eccezioni ecc ecc ecc

[loweherz]

gestione ed eccezzioni cosa intendi??

[arthas83]

gestione delle eccezioni...
in soldoni

try...
catch...
end try...

forse non conosci l'argomento, ma nn ti preoccupare, puoi anche ignorare qsto aspetto per ora...

[dbfabio]

Ciao ARTHAS83.
Potresti per favore completare la riga di codice

CType(sender, Button).Image = ... 'carica l'immagine da file o da risorse

cioè in Vb2010 ho la cartella di Resources dalla quale prendere l'immagine Pausa.jpg. Cosa devo scrivere dopo = ?

Grazie mille.

[ShaleN]

Originariamente inviato da dbfabio
Ciao ARTHAS83.
Potresti per favore completare la riga di codice

CType(sender, Button).Image = ... 'carica l'immagine da file o da risorse

cioè in Vb2010 ho la cartella di Resources dalla quale prendere l'immagine Pausa.jpg. Cosa devo scrivere dopo = ?

Grazie mille.

Basta mettere:

CType(sender, Button).Image = Image.FromFile("Percorso\NomeFile.ext")
'Codice non testato.

Se ne vuoi sapere di più guarda la classe Image sull'msnd.

Originariamente inviato da arthas83
gestione delle eccezioni...
in soldoni

try...
catch...
end try...

forse non conosci l'argomento, ma nn ti preoccupare, puoi anche ignorare qsto aspetto per ora...

Sinceramente, prima cominci a pensare alle eccezioni, meglio è.
Guarda qui

[dbfabio]

e per caricare una immagine da Risorse?