Newsgroup: it.comp.lang.visual-basic
Titolo: Codice RGB in Visual basic diverso da HTML ???

Ciao a tutti,
stavo giocando un po' con HTML quando ho pensato di farmi un
programmino per trovare il codice RGB di un colore scelto a video...
Ho creato un form con un pulsante e CommonDialog...
il codice e' il seguente...
CommonDialog1.Action = 3
Text1.Text = CommonDialog1.Color
Clipboard.SetText CommonDialog1.Color
scelgo il colore, il suo codice viene copiato in memoria e io lo
incollo sul codice HTML che sto' editando con NOTEPAD.
il problema e' che i colori non corrispondono assolutamente...
se imposto ME.BAKGROUND= Text1.Text  lo sondo del form diventa quello
che ho effettivamente scelto mentre in EXPLORER corrisponde a
tuttaltro colore....
qualcuno sa per quale motivo????    
Grazie e ciao...
Marco

Si, in HTML credo che il colore lo si scriva BGR e non RGB.
Byee
Zeross

Caro Zeoross ti sbagli, è il VB che usa il BGR al posto dell'RGB e non
l'HTML.
Il rosso il VB è 255 o 0000FF (BBGGRR), mentre in HTML è FF0000 (RRGGBB).
Berna prova a usare una mio vecchia funzione (se vi serve mettetela pure sul
sito comune :-D):
'BEGIN
Function VBColorToHTML(ByVal colOrig As Long) As String 'Prende il colore VB
(common dialog) e lo trasforma il HTML (hex)
    Dim Colore As String, colHex As String, I As Integer 'Dichiaro le
variabili
    colHex = Hex(colOrig) 'Setto la variabile col valore HEX del colore in
formato BGR
    Colore = Right(colOrig, 2) & Mid(colOrig, 3, 2) & Left(colOrig, 2)
'Trasformo dal BGR del Visual Basic all'RGB dell'HTML
    VBColorToHTML = Colore & String(6 - Len(Trim(Colore)), "0") 'Aggiungo
gli zeri mancanti per arrivate a 6
End Function
'END
--
Timothy Redaelli
timothy....@email.it
--
Prendi GRATIS l'email universale che ti paga: clicca 
http://www.email.it/f
Sponsor: Suonerie e loghi per il tuo cellulare!
Personalizza il tuo cellulare! Supereva ti offre una vasta gamma di 
suonerie e loghi. Se sei stanco del solito cellulare, clicca qui: 
http://www.godado.it/goletter.pperl/page=EfJk/id=555f5fB8
-- 
Posted from 
mail1.webmessenger.it
 [193.70.193.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ho sbagliato a mandare il codice....
Questo è il codice giusto.....
'BEGIN
Function VBColorToHTML(ByVal colOrig As Long) As String 'Prende il colore VB
(common dialog) e lo trasforma il HTML (hex)
    Dim colHex As String, I As Integer  'Dichiaro le variabili
    colHex = Hex(colOrig) 'Setto la variabile col valore HEX del colore in
formato BGR
    colHex = String(6 - Len(colHex), "0") & colHex  'Aggiungo gli zeri
mancanti per arrivate a 6
    VBColorToHTML = Right(colHex, 2) & Mid(colHex, 3, 2) & Left(colHex, 2)
'Trasformo dal BGR del Visual Basic all'RGB dell'HTML
End Function
'END
Scusate :-(
 --
Timothy Redaelli
timothy....@email.it
--
Prendi GRATIS l'email universale che ti paga: clicca 
http://www.email.it/f
Sponsor: Wine, Food and Bike: trascorri un week-end in tranquillita' 
attraverso itinerari enolgici! Se vuoi aumentare la tua qualita' di 
vita, anche per qualche giorno, clicca qui:
http://www.godado.it/goletter.pperl/page=EfJk/id=555fAaAa


E io che ho detto?
--
Timothy Redaelli
timothy....@email.it

 l'HTML.
Oops...  basta, devo smettere di bere acqua liscia....   O_O
"Ragazzooo... 1 litro di Campari, please!" ^___^
Byee
Zeross