[VB6]: Personalizzazione dell'aspetto del "focus" dei controlli

[[NoS]-roby87]

salve a tutti
ho una serie di pulsanti creati in visual basic.
tramite un circuito da me creato riesco a spostarmi con il focus predefinito di Windows tra i vari pulsanti.
volevo sapere se è possibile modificare quest'ultimo, tipo di uno spessore maggiore e di colorazione rossa.
se qualcuno mi potrebbe aiutare che è urgentissimo.
grazie mille anticipatamente a tutti quelli che mi aiuteranno.

Roberto

[alka]

Originariamente inviato da [NoS]-roby87
se qualcuno mi potrebbe aiutare che è urgentissimo.

Se "scriveresti" la versione di VB a cui fai riferimento, come da Regolamento.

[[NoS]-roby87]

scusami
cmq la versione è: Visual Basic 6
ciao

[oregon]

Urgentissimo ... urca ... e che devi fare?

E poi, cosa e' il "circuito" che hai creato?

[[NoS]-roby87]

Originariamente inviato da oregon
Urgentissimo ... urca ... e che devi fare?

E poi, cosa e' il "circuito" che hai creato?

purtroppo è una cosa che devo risolvere prima dell'esame di maturità.
in sostanza il circuito che ho realizzato ha dei tasti direzionali che mi fanno spostare il focus su ogni pulsante in base se premo il tasto su, giu destra o sinistra.
soltanto che il focus non lo si vede proprio in i pulsanti dovranno essere proiettati su un muro e quindi penso non si veda nulla. perciò vorrei sapere se esiste e come si può realizzare un focus + spesso e colorato.
grazie

ciao

[Boolean]

ti propongo un esempio, che più che altro è un "escamotage"... per provarlo, crea un nuovo Form, e mettici dentro 2 CommandButton e una Shape

poi copia questo codice:

Private Sub Form_Load()
Shape1.BorderWidth = 2
Shape1.BorderColor = vbRed
Shape1.Visible = False
End Sub

Private Sub Command1_GotFocus()
With Command1
    Shape1.Move .Left - 15, .Top - 15, .Width + 45, .Height + 45
    Shape1.Visible = True
End With
End Sub

Private Sub Command1_LostFocus()
Shape1.Visible = False
End Sub

Private Sub Command2_GotFocus()
With Command2
    Shape1.Move .Left - 15, .Top - 15, .Width + 45, .Height + 45
    Shape1.Visible = True
End With
End Sub

Private Sub Command2_LostFocus()
Shape1.Visible = False
End Sub

volendo se i pulsanti sono pochi, può andar bene questo metodo, ma se diventano tanti sarebbe opportuno creare una matrice di controlli, e il tutto sarebbe gestibile in maniera più snella e con codice meno ridondante.

Boolean

[[NoS]-roby87]

up

[Boolean]

Originariamente inviato da [NoS]-roby87
up

non va bene la soluzione che ti ho proposto?

abbi almeno la compiacenza di dirlo...

Boolean

[[NoS]-roby87]

ciao boolean
senti ho inserito quel codice nel mio prog ma girandolo mi esce così:



devo modificare qualche parametro???
ciao
Roberto

[[NoS]-roby87]

OK!!
tutto apposto
grazie mille boolean mi hai salvato.
ciao