Newsgroup: it.comp.lang.visual-basic
Titolo: Conteggio di pulsanti

In un form ho 10 pulsanti, che possono essere rossi o verdi, in base a vari
parametri.
Come posso contare quanti sono quelli verdi e quanti quelli rossi
Grazie

[Angelo Marchesi] ha scritto:

Vorrei sapere che cosa ha fatto di male il punto di domanda, ci deve essere
un gran numero di persone che ne trova imbarazzante l'uso, per lo meno in
pubblico, ed evita accuratamente di inserirlo nelle proprie domande.
Dopo aver richiamato l'attenzione sulla nobile causa del salvataggio del
punto di domanda ramingo, passiamo alle cose serie.
Per sapere quanti e di che colore sono i pulsanti bisognerebbe cominciare a
sapere se essi sono contenuti in un array, oppure se ciascuno è un controllo
a sè stante. Bisognerebbe inoltre sapere se il colore diverso a cui ci si
riferisce è il forecolor (domanda: hanno un backcolor i pulsanti?).
Salutoni
Sergio

 wrote in message
news:atut9j$31aa0$1...@ID-173193.news.dfncis.de...


 Backcolor (o VbGreen o VbRed e basta)
iRossi = 0
iVerdi = 0
For Each Pulsante In arrayPulsanti
   If Pulsante.BackColor = vbGreen Then
      iVerdi = iVerdi + 1
   Else
      iRossi = iRossi + 1
   EndIf
Next Pulsante
--
Ciao.
SkunkGuru

 Backcolor (o VbGreen o VbRed e basta)
allora... mi hai beccato in un brutto momento: sono in pausa pranzo e posso
permettemi di perdere tempo a scrivere pistolotti interminabili sulla
"netiquette".
Anzi no, invece di scrivere ti riporto un elenco di link a documenti che ne
parlano, così faccio meno fatica:
 
http://digilander.iol.it/extremenews/corso_quoting.html
http://groups.google.com/groups?selm=kk6rcugv0oc4oirjroef84ess3iqb2oe4b%404a
x.com
 
http://www.marco5x.net/usenet/quoting.php
 
http://users.iol.it/ulisse31/generalfaq-netiquette.htm
 
http://metro.peacelink.it/faq/pckh-3.html
 
http://www.penale.it/netique.htm
http://www.google.it/search?hl=it&q=quoting+netiquette&btnG=Cerca+con+Google
&lr=lang_it
In particolare le regole per un "quoting" corretto.
Tornando a bomba alle cose serie, non capisco dal tono del tuo post se hai
già risolto il problema o no.
Che faccio?
Salutoni
Sergio

 [SNIP delirio cum pistolotto]
Gira proprio male oggi eh? ;)
Lokar.che.ti.porge.gentilmente.una.camomilla.al.valium
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 Next Pulsante
Questa e' la stessa nel caso non utilizzassi un array di controlli:
Private Sub ContaPulsantiColorati(ByRef Verdi As Long, ByRef Rossi As Long)
    Dim ctl As Control
    Verdi = 0
    Rossi = 0
    For Each ctl In Me.Controls
        If TypeOf ctl Is CommandButton Then
            If ctl.BackColor = vbGreen Then
                Verdi = Verdi + 1
            ElseIf ctl.BackColor = vbRed Then
                Rossi = Rossi + 1
            End If
        End If
    Next ctl
    Set ctl = Nothing
End Sub
hth,
Lokar


 Lokar.che.ti.porge.gentilmente.una.camomilla.al.valium
gira cosě male che stavo per fare una fdm di portata devastante... roba da
cambio immediato di nick, provider, gruppo sanguigno e dna, tanto per
rendersi completamente irriconoscibili.....
Stavo per fare il pistolotto a Yachi, rimproverandolo per non essere
riuscito a trovare nell'help come allineare al centro la caption di una
colonna datagrid... per fortuna mi sono accorto (prima di spedirlo) che non
ci riuscivo neanche io....
Salutoni
Sergio

 wrote in message
news:atuvfu$2te5p$1...@ID-173193.news.dfncis.de...
