[VB6] Code Couleur

"Marco" <bm_marc@caramail.com> a écrit dans le message de
news:3fe1b440$0$238$4d4eb98e@read.news.fr.uu.net

Je voudrais savoir si qqn a deja codé une planche de contact
avec toutes les couleurs, leurs noms et leurs codes
correspondantes et avoir la possibilité de l'imprimé ???.

Bonjour/soir,

Tu peux essayer une grande boucle avec des
Printer.Line (x,y)-(x2,y2),Rgb(0 à 255,0 à 255, 0 à 255), BF
pour obtenir toutes les couleurs.
Le code couleur pourrait être imprimé par
Printer.Print "RGB(" & valeur1 & "," ...
Mais à quoi bon faire imprimer les 16777216 couleurs?

Si tu veux les couleurs nommées contantes en VB6, il n'y en a pas beaucoup
et elles sont facilement distingables)
vbBlack : noir
vbRed : rouge
vbGreen : vert
vbYellow : jaune
vbBlue : bleu
vbMagenta : magenta
vbCyan : cyan
vbWhite : blanc

Je ne pense pas que tu ai besoin d'une planche de contact pour ça...
Les autres couleurs sont des couleurs systèmes qui varient d'un système à
l'autre... (vbScrollBars, vbDesktop, ...)

Si tu veux, tu peux avoir les couleur des css qui sont en nombre intéressant
(mais qui ne correspondent à rien sous vb6):
http://msdn.microsoft.com/workshop/author/dhtml/reference/colors/colors.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

François Picalausa a écrit :

"Marco" <bm_marc@caramail.com> a écrit dans le message de
news:3fe1b440$0$238$4d4eb98e@read.news.fr.uu.net

Je voudrais savoir si qqn a deja codé une planche de contact
avec toutes les couleurs, leurs noms et leurs codes
correspondantes et avoir la possibilité de l'imprimé ???.

Bonjour/soir,

Tu peux essayer une grande boucle avec des
Printer.Line (x,y)-(x2,y2),Rgb(0 à 255,0 à 255, 0 à 255), BF
pour obtenir toutes les couleurs.
Le code couleur pourrait être imprimé par
Printer.Print "RGB(" & valeur1 & "," ...
Mais à quoi bon faire imprimer les 16777216 couleurs?

Si tu veux les couleurs nommées contantes en VB6, il n'y en a pas beaucoup
et elles sont facilement distingables)
vbBlack : noir
vbRed : rouge
vbGreen : vert
vbYellow : jaune
vbBlue : bleu
vbMagenta : magenta
vbCyan : cyan
vbWhite : blanc

Je ne pense pas que tu ai besoin d'une planche de contact pour ça...
Les autres couleurs sont des couleurs systèmes qui varient d'un système à
l'autre... (vbScrollBars, vbDesktop, ...)

Si tu veux, tu peux avoir les couleur des css qui sont en nombre intéressant
(mais qui ne correspondent à rien sous vb6):
http://msdn.microsoft.com/workshop/author/dhtml/reference/colors/colors.asp

16 M de couleurs, j'ai crue que VB pouvais pas afficher plus de 256
couleurs ?

"Marco" <bm_marc@caramail.com> a écrit dans le message de
news:3fe2c57e$0$239$4d4eb98e@read.news.fr.uu.net

François Picalausa a écrit :

"Marco" <bm_marc@caramail.com> a écrit dans le message de
news:3fe1b440$0$238$4d4eb98e@read.news.fr.uu.net

Je voudrais savoir si qqn a deja codé une planche de contact
avec toutes les couleurs, leurs noms et leurs codes
correspondantes et avoir la possibilité de l'imprimé ???.

Bonjour/soir,

Tu peux essayer une grande boucle avec des
Printer.Line (x,y)-(x2,y2),Rgb(0 à 255,0 à 255, 0 à 255), BF
pour obtenir toutes les couleurs.
Le code couleur pourrait être imprimé par
Printer.Print "RGB(" & valeur1 & "," ...
Mais à quoi bon faire imprimer les 16777216 couleurs?

Si tu veux les couleurs nommées contantes en VB6, il n'y en a pas
beaucoup et elles sont facilement distingables)
vbBlack : noir
vbRed : rouge
vbGreen : vert
vbYellow : jaune
vbBlue : bleu
vbMagenta : magenta
vbCyan : cyan
vbWhite : blanc

Je ne pense pas que tu ai besoin d'une planche de contact pour ça...
Les autres couleurs sont des couleurs systèmes qui varient d'un
système à l'autre... (vbScrollBars, vbDesktop, ...)

Si tu veux, tu peux avoir les couleur des css qui sont en nombre
intéressant (mais qui ne correspondent à rien sous vb6):

http://msdn.microsoft.com/workshop/author/dhtml/reference/colors/colors.asp

16 M de couleurs, j'ai crue que VB pouvais pas afficher plus de 256
couleurs ?

Bonjour/soir,

Si tu est en mode d'affichage 2 couleurs sous windows, VB n'affichera pas
plus de 2 couleurs...

Voici un exemple montrant comment afficher quelques couleurs (256^3) en VB:
'Sur une form contenant un picturebox, picture1:
Option Explicit

Private CurrentR As Long
Private CurrentG As Long
Private CurrentB As Long

Private Sub Form_Load()
Dim BorderX As Long, BorderY As Long, i As Long

Me.ScaleMode = 3
BorderX = Me.Width / Screen.TwipsPerPixelX - Me.ScaleWidth
BorderY = Me.Height / Screen.TwipsPerPixelY - Me.ScaleHeight

Me.Width = (310 + BorderX) * Screen.TwipsPerPixelX
Me.Height = (310 + BorderY) * Screen.TwipsPerPixelY

Picture1.BorderStyle = 0
Picture1.Width = Me.ScaleWidth
Picture1.Height = Me.ScaleHeight
Picture1.AutoRedraw = True
Picture1.Visible = False
Picture1.ScaleMode = 3

RedrawAll
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If X >= 270 And X <= 300 And Y < 256 Then
CurrentB = Y
RedrawAll
ElseIf X < 256 And Y < 256 Then
CurrentR = X
CurrentG = Y
RedrawAll
End If
End Sub

Private Sub RedrawAll()
Picture1.Cls

RedrawRG
RedrawB
RedrawPrev

Set Me.Picture = Picture1.Image
End Sub

Private Sub RedrawPrev()
Picture1.Line (10, 270)-(50, 300), RGB(CurrentR, CurrentG, CurrentB), BF

Dim TTP As String
TTP = "R : " & CurrentR & "; G : " & CurrentG & "; B : " & CurrentB

Picture1.CurrentX = 70
Picture1.CurrentY = 285 - Picture1.TextHeight(TTP) / 2
Picture1.Print TTP
End Sub

Private Sub RedrawB()
Dim i As Long
For i = 0 To 255
Picture1.Line (270, i)-(300, i), RGB(CurrentR, CurrentG, i)
Next i
End Sub

Private Sub RedrawRG()
Dim i As Long, j As Long

For i = 0 To 255
For j = 0 To 255
Picture1.PSet (i, j), RGB(i, j, CurrentB)
Next j
Next i
End Sub

Il faut clicker sur les couleurs sur la feuille pour changer la couleur
sélectionnée.

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com