Ecco il codice,in questo caso il formato rgb viene memorizzato nella
clipboard poi tu ci fai quell che vuoi
Dim col As Long
Dim r, g, b As Long
CommonDialog1.Flags = cdlCCFullOpen + cdlCCHelpButton
CommonDialog1.ShowColor
col = CommonDialog1.Color
b = Int(col / 65536)
col = col Mod 65536
g = Int(col / 256)
col = col Mod 256
r = col
Clipboard.SetText proprieta & ":rgb(" & r & "," & g & "," & b & ");"
"kartmank" <kart...@libero.it> ha scritto nel messaggio
news:nN_S7.313573$sq5.15...@news.infostrada.it...
se vuoi scarica questo esempio:
http://www.fabioalbanese.it/soft/colori.zip
Ciao
Fabio
"kartmank" <kart...@libero.it> ha scritto nel messaggio
news:nN_S7.313573$sq5.15...@news.infostrada.it...