Visual Basic 6 - Focus su Textbox

Forum - Visual Basic 6 - Focus su Textbox

Pagine: [ 1 2 ]

Manuel2 (Member)
Pro

Messaggi: 65
Iscritto: 07/10/2007

Postato alle 17:38
Mercoledì, 28/11/2007

Salve a tutti,
vorrei far in modo che ogni volta che sposto il focus su ogni textbox di una form queste cambino colore di sfondo.
Di per sè, come problema, non è di difficile soluzione. Basterebbe usare le sub GotFocus e LostFocus della textbox, ma se in una form ho 20 textbox??? Devo mettermi a scrivere 40 sub? o c'è un altro modo?

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 17:52
Mercoledì, 28/11/2007

allora devi creare un vettore di textbox e le sub le usi così:

private sub text1_GotFocus(Index as integer)
text1(index).backcolor=colore
end sub

così anche per il lost focus

Manuel2 (Member)
Pro

Messaggi: 65
Iscritto: 07/10/2007

Postato alle 18:00
Mercoledì, 28/11/2007

ecco, mi hai anticipato.
Stavo appunto per dire che non ho un vettore di textbox 8-|

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 19:10
Mercoledì, 28/11/2007

nel senso che nn vuoi usare un vettore o che nn puoi

Manuel2 (Member)
Pro

Messaggi: 65
Iscritto: 07/10/2007

Postato alle 19:36
Mercoledì, 28/11/2007

Nel senso che la form è ormai già fatta e non utilizza il vettore di textbox

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 20:00
Mercoledì, 28/11/2007

Prova un bel ciclo for

Codice sorgente - presumibilmente VB.NET

Dim I As Integer
For I = 1 To 20
private sub text & I &_GotFocus(Index as integer) 
text & I &(index).backcolor=colore 
end sub
'fai anche il lostfocus
Next I

P.S.nn so se funziona

Ultima modifica effettuata da gius il 28/11/2007 alle 20:06

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 20:34
Mercoledì, 28/11/2007

non puo funzionare così.
scusa non ho tempo di postarti la soluzione.
te la posto domani.
cmq ho 3 idee.
1)prova a usare i me.control
2)associare variabili
3)ricavare le coordinate del mouse e verificare l'oggetto corrispondente a quel punto. poi modifico direttamente il colore di quell'oggetto.

Ultima modifica effettuata da P4p3r0g4 il 28/11/2007 alle 21:09

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 21:15
Mercoledì, 28/11/2007

pui creare una sub...

private sub Colora(TEXT as textbox, colore as long)
text1.backcolor=vbwhite
text2.backcolor=vbwhite
text3.backcolor=vbwhite
text4.backcolor=vbwhite
text5.backcolor=vbwhite
....................... tutte le altre
TEXT.backcolor=colore
end sub

questo lo metti nel focus e colora tutti di bianco poi alla fine la text che hai messo tu la colora del colore che vuoi

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 19:10
Giovedì, 29/11/2007

Testo quotato

Postato originariamente da gius:

Prova un bel ciclo for

Codice sorgente - presumibilmente VB.NET

Dim I As Integer
For I = 1 To 20
private sub text & I &_GotFocus(Index as integer) 
text & I &(index).backcolor=colore 
end sub
'fai anche il lostfocus
Next I

P.S.nn so se funziona

scusate ma che sarebbe questo codice???!!!
è uno skerzo...
Una Sub dentro un altra Sub... :-|

è un nuovo modo di programmare...?? boh...

Pagine: [ 1 2 ]