Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] ColorDialog.CustomColors. Da ARGB a Color

Salve a tutti,
da ColorDialog.CustomColors ricavo il valore integer del colore  ARGB.
Se conosco il volore, es. 15195440,
da questo come ricavo il rispettivo Color ?
In pratica devo dare alla proprietą di un BackColor di un oggetto il
rispettivo del valore ARGB.
Grazie
giuseppeD

 rispettivo del valore ARGB.
a memoria: color.fromargb(numero)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 a memoria: color.fromargb(numero)
1-
Dim int As Int32 = 12566463
Dim cg As System.Drawing.Color = Color.FromArgb(int)
Button1.BackColor = cg
Il colore non cambia
2-
 Dim int As Int32 = 12566463
Button1.BackColor = Color.FromArgb(int)
Il colore non cambia
Dove sbaglio ?
Ave
giuseppeD

 Il colore non cambia
Esiste ancora la proprietą Style per i bottoni?

 Dove sbaglio ?
la prima cosa che mi viene in mente, è che stai daundo un colore di sfondo
uguale a quello che c'è già :-)
non ho qui .net e quindi non posso fare dei test, ma così a occhio mi
sembrava corretto...


 sembrava corretto...
Curiosità: int non è per caso una parola chiave?

Probabilmente manca il valore di Alpha (se si chiama FromARGB...)
Dim i As Int32 = &HFFFF00FF
 Dim cg As System.Drawing.Color = Color.FromArgb(i)
 Button1.BackColor = cg
HTH
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://www.ugidotnet.org/710.blog

From ARGB ???
Mi perdo qualche cosa per strada? Quella A che sta ad indicare?
Ciao
Andrea

Alpha channel.... (Trasparenza...)


  Button1.BackColor = cg
Non riesco a ottenere il colore.
Ricavo i colori personalizzati dall'oggetto ColorDialog:
Dim c As Int32
 For Each c In MyDialog.CustomColors
   Debug.WriteLine(c)
Next
e ottengo per il colore bianco: 16777215
adesso vorrei che il BackColor di un oggetto diventi bianco.
Se eseguo:
Dim strHex As String = Hex(16777215)
Dim num As Int32 = CInt("&H" & strHex)
Dim cg As System.Drawing.Color = Color.FromArgb(num)
btnAltriColori.BackColor = cg
l'oggetto non si colora di bianco.
Ave
giuseppeD

 ha scritto nel messaggio
news:bvnme1$ttlio$1...@ID-174464.news.uni-berlin.de...

Si:
Flat
Popup
Standard
System
Che rapporto con il problema ?
Ave
giuseppeD

 ha scritto nel messaggio
news:bvnn4r$uech9$1...@ID-174464.news.uni-berlin.de...

No
l'ho usata più volte, senza problema
Ave
giuseppeD

[*GiuseppeD* = 
NoSpam_ebq...@tin.it
 in
news:8DPTb.183674$
VW.74...@news3.tin.it
] ha scritto:

Non conosco Net e l'ho buttata lģ:
In VB6 se lo Style di un bottone non č Graphical (ovvero č Standard), il
BackColor non viene sentito.

 BackColor non viene sentito.
La proprietà si chiama
FlatStyle (in VB6 Style)
se è impostata come:
System
L'aspetto del controllo dipende dal sistema operativo dell'utente, quindi
non è possibile impostare un valore
Per le altre scelte presenti nell'Enumerazione, è possibile impostare un
valore
Ave
giuseppeD

Non chiedermi il motivo..., ma funziona... ;-)
Dim c As New ColorDialog
  c.ShowDialog()
  Dim col As Int32 = c.CustomColors(0)
  Dim c1 As Color = Color.FromArgb(col)
  Dim l As Color = Color.FromArgb(c1.B, c1.G, c1.R)
  Me.BackColor = l
PS: Lo style non centra nulla stiamo usando .NET...


   Me.BackColor = l
Eliminando
Dim col As Int32 = c.CustomColors(0)
funziona
Ad un primo utilizzo potrebbe risolvermi il problema.
Dim c As Int32
If MyDialog.ShowDialog = DialogResult.OK Then
                'Codice
    For Each c In MyDialog.CustomColors
             Dim c1 As Color = Color.FromArgb(c)
             Dim l As Color = Color.FromArgb(c1.B, c1.G, c1.R)
             lblInfo.BackColor = l 'il colore rilevato diventa il BackColor
dell'oggetto
             lblInfo.Refresh()
             System.Threading.Thread.Sleep(2500)
    Next
Ave
giuseppeD

[*GiuseppeD* = 
NoSpam_ebq...@tin.it
 in
news:%kRTb.184284$
VW.75...@news3.tin.it
] ha scritto:

Mai visto tante istruzioni (e tanti) post per un backcolor. Grande Net

> Mai visto tante istruzioni (e tanti) post per un backcolor. Grande Net
Infatti!
1-Non si tratta di un backColor (che ottieni con un banalissimo
MyDialog.ShowDialog.Color) ma di ottenere l'elenco dei CustomColors e
trattarli di conseguenza...
2-Prova a fare la stessa cosa usando il CommonDialog di VB6...


 2-Prova a fare la stessa cosa usando il CommonDialog di VB6...
Un paio di istruzioni dovrebbero bastare. Forse 3.

 Un paio di istruzioni dovrebbero bastare. Forse 3.
3?.. Saresti cosi' gentile di postarle?... attendo fiducioso...  :-)


 3?.. Saresti cosi' gentile di postarle?... attendo fiducioso...  :-)
Maddai, sei troppo in gamba per non saperlo fare. ;-)
Sapendo quel che sono, bastano un paio di chiamate API, forse 3, no?
Ok, magari con un modulo dichiarativo di qualche Mb, va bene, ma Net cosa fa
di diverso col suo FW?
Corrado, va bene, va bene, lo compro 'sto Net. ( ;o) )
Poi, posso fare un post per ogni buco che trovo?
Poi, posso rinnovarlo per ogni mese che passa senza che venga corretto?
Poi, posso far chiamare l'utente che andrà un po' più lento di prima?
Poi, chiamo gli avvocati di Bill se il mio codice viene preso e riciclato?
Tutto ciò, posso poi farlo?
Ecco.come.Lupo.si.giocò.il.suo.ultimo.MVP

 Sapendo quel che sono, bastano un paio di chiamate API, forse 3, no?
Una in realta':
Private Declare Function ChooseColor Lib "COMDLG32.DLL" _
    Alias "ChooseColorA" (Color As TCHOOSECOLOR) As Long


 (ma a te piace parlare, sopratutto di cose che non conosci...)
Sarai pure MVP, non contesto assolutamente il tuo contributo e le tue
capacità, certamente (e lo so perfettamente) molto superiori alle mie, ma
qui hai sforato un po', anche fosse per un chiacchierone come me.
No, non ti plonko, ma certo ti osserverò con un occhio diverso.

> (ma a te piace parlare, sopratutto di cose che non conosci...)
C'ho ripensato, cancella quanto detto prima: tu sei proprio un maleducato.
Fammi un esempio, uno solo, razza di saputello borioso, di quando io ho
parlato di cose che non conosco se non per chiedere.
Chiacchierone, ma va a caghčer che, se non hai capito e per ripetertelo,
vuol dire ma vai a cacare sul tuo cesso controllo-processato!

Lupo, che tristezza...
"non ti curar di loro, ma guarda e passa..."


 Mai visto tante istruzioni (e tanti) post per un backcolor. Grande Net
sinceramente, non vedo lo scandalo.
le istruzioni, alla fine, mi sembra che siano 3.
la quantità di post per risolvere un problema è sintomatica del fatto che ci
si trovi davanti ad una cosa "nuova".
