Bonjour,
Je cherche à coller le presse-papiers dans un image (Picture), mais je
ne sais comment m'y prendre, ça marche pas, je fais des expériences du
genre :
Clipboard.GetData Picture1.PaintPicture, 2
Picture1.PaintPicture Picture, Clipboard.GetData, 2
Mais ça plante, avez-vous le mode d'emploi ?
Toutefois, ceci me sera utile que dans la mesure ou ensuite je pourrais
lire un pixel dans cette image :
dim couleur as long = Point(1, 1)
Afin de décomposer la couleur pour reconstituer RGB ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Je cherche à coller le presse-papiers dans un image (Picture), mais je
ne sais comment m'y prendre, ça marche pas, je fais des expériences du
genre :
Clipboard.GetData Picture1.PaintPicture, 2
Picture1.PaintPicture Picture, Clipboard.GetData, 2
Mais ça plante, avez-vous le mode d'emploi ?
Toutefois, ceci me sera utile que dans la mesure ou ensuite je pourrais
lire un pixel dans cette image :
dim couleur as long = Point(1, 1)
Afin de décomposer la couleur pour reconstituer RGB ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Je cherche à coller le presse-papiers dans un image (Picture), mais je
ne sais comment m'y prendre, ça marche pas, je fais des expériences du
genre :
Clipboard.GetData Picture1.PaintPicture, 2
Picture1.PaintPicture Picture, Clipboard.GetData, 2
Mais ça plante, avez-vous le mode d'emploi ?
Toutefois, ceci me sera utile que dans la mesure ou ensuite je pourrais
lire un pixel dans cette image :
dim couleur as long = Point(1, 1)
Afin de décomposer la couleur pour reconstituer RGB ???
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Bonjour,
Je cherche à coller le presse-papiers dans un image (Picture), mais
je ne sais comment m'y prendre, ça marche pas, je fais des expériences
du genre :
Clipboard.GetData Picture1.PaintPicture, 2
Picture1.PaintPicture Picture, Clipboard.GetData, 2
Mais ça plante, avez-vous le mode d'emploi ?
Toutefois, ceci me sera utile que dans la mesure ou ensuite je
pourrais lire un pixel dans cette image :
dim couleur as long = Point(1, 1)
Afin de décomposer la couleur pour reconstituer RGB ???
Bonjour,
Je cherche à coller le presse-papiers dans un image (Picture), mais
je ne sais comment m'y prendre, ça marche pas, je fais des expériences
du genre :
Clipboard.GetData Picture1.PaintPicture, 2
Picture1.PaintPicture Picture, Clipboard.GetData, 2
Mais ça plante, avez-vous le mode d'emploi ?
Toutefois, ceci me sera utile que dans la mesure ou ensuite je
pourrais lire un pixel dans cette image :
dim couleur as long = Point(1, 1)
Afin de décomposer la couleur pour reconstituer RGB ???
Bonjour,
Je cherche à coller le presse-papiers dans un image (Picture), mais
je ne sais comment m'y prendre, ça marche pas, je fais des expériences
du genre :
Clipboard.GetData Picture1.PaintPicture, 2
Picture1.PaintPicture Picture, Clipboard.GetData, 2
Mais ça plante, avez-vous le mode d'emploi ?
Toutefois, ceci me sera utile que dans la mesure ou ensuite je
pourrais lire un pixel dans cette image :
dim couleur as long = Point(1, 1)
Afin de décomposer la couleur pour reconstituer RGB ???
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
Jacques93 wrote:
Hello Tous,
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
Bonjour Jean-Marc,
Jean-marc a écrit :Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la météo
a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais le
demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Bonjour Jean-Marc,
Jean-marc a écrit :
Jacques93 wrote:
Hello Tous,
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la météo
a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais le
demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Bonjour Jean-Marc,
Jean-marc a écrit :Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la météo
a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais le
demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Bonjour Jean-Marc,
Jean-marc a écrit :Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la météo
a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais le
demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Bonjour Jean-Marc,
Jean-marc a écrit :
Jacques93 wrote:
Hello Tous,
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la météo
a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais le
demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Bonjour Jean-Marc,
Jean-marc a écrit :Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la météo
a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais le
demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Salut Jacques,
Tu as ouvert la boite de Pandorre ;o))
Driss
Salut Jacques,
Tu as ouvert la boite de Pandorre ;o))
Driss
Salut Jacques,
Tu as ouvert la boite de Pandorre ;o))
Driss
Bonjour Jacques,
Si si si, le décalage de bits, l'octet, le quartet,
le binaire, ben
oui que je connais, j'ai même fait un éditeur de fichier qui affiche en
binaire, en hexa et en texte, ici :
http://irolog.free.fr/irolog_vente/fichier_v/fichier.htm
Tu en dis quoi ?
A part ça, il y a une petite confusion, pour ma part je cherche
toujours le code le plus simple, et la réponse la plus simple ici était :
objet.point(x, y),
mais chercher la réponse la plus simple, la plus
décortiquée, ça n'importe pas d'être stupide
Il y a confusion aussi, car quand on me passe des code anglophones,
je ne les comprends pas, faute de parler la langue correctement, c'est
n'est pas non plus une preuve de stupidité, d'autant que je n'ai jamais
fait de dll, et que si j'en avais fait je comprendrais beaucoup mieux
sans doute, question de circonstances.
Tu en as qui vont écrire x = ((y * z) / 2), ben moi je préfère écrire :
a = y * z
x = a / 2
La, a contrario, c'est plus long mais plus simple... le plus simple dans
le plus court, je crois que c'est une bonne façon d'écrire...
Il y a aussi l'exemple, donner un exemple simple, et là : toi,
Jean-Marc, et certains autres le font, mais pas tous. Un exemple qui
fonctionne par copier/coller évidemment, c'est la meilleur façon
d'expliquer, ainsi, avec quelque chose qui fonctionne on va pouvoir le
comprendre en le décortiquant, en affichant chacun des éléments, en
testant, puis une fois compris, en extrapolant dans d'autres formules.
Il en découle que les réponse doivent être simples, courtes, expliquées,
suivies d'un exemple opérationnel...
Pour conclure sur ce qui semble être une mise en évidence d'une
capacité amoindrie à comprendre, il faut remettre les choses dans leur
contexte, en effet, si tu fais un test de QI avec des engrenages et les
réponses selon le sens de rotation, certes ça va être en partie
révélateur, mais toutefois, ça tiendra quand même compte du fait que
l'on sait ou pas ce qu'est un engrenage. En effet, imagine une personne
qui n'aurait aucune idée de l'engrenage, ou de la friction de roues,
comment veux-tu qu'elle en déduise dans quel sans ça va tourner, si même
elle en déduit que ça tourne ?
Je crois que cet exemple est parlant, et démontre qu'il faut bien
séparer l'intelligence de l'instruction, et encore pour preuve, n'a-t-on
pas vu des développeur professionnels et censés être confirmés, qui
déployaient leur application, non pas dan un répertoire, mais en vrac,
donc avec un risque énorme de mélanger avec d'autres fichiers ceux de
l'application, n'est-ce pas là justement la démonstration que
l'intelligence est l'instruction n'ont rien à voir, le dressage à
appendre des automatismes n'est pas synonyme d'avoir réellement un
esprit de concepteur, et de penser le contraire est une façon de juger
bien légèrement.
A bientôt Jacques, cordialement ;o)
Bonjour Jacques,
Si si si, le décalage de bits, l'octet, le quartet,
le binaire, ben
oui que je connais, j'ai même fait un éditeur de fichier qui affiche en
binaire, en hexa et en texte, ici :
http://irolog.free.fr/irolog_vente/fichier_v/fichier.htm
Tu en dis quoi ?
A part ça, il y a une petite confusion, pour ma part je cherche
toujours le code le plus simple, et la réponse la plus simple ici était :
objet.point(x, y),
mais chercher la réponse la plus simple, la plus
décortiquée, ça n'importe pas d'être stupide
Il y a confusion aussi, car quand on me passe des code anglophones,
je ne les comprends pas, faute de parler la langue correctement, c'est
n'est pas non plus une preuve de stupidité, d'autant que je n'ai jamais
fait de dll, et que si j'en avais fait je comprendrais beaucoup mieux
sans doute, question de circonstances.
Tu en as qui vont écrire x = ((y * z) / 2), ben moi je préfère écrire :
a = y * z
x = a / 2
La, a contrario, c'est plus long mais plus simple... le plus simple dans
le plus court, je crois que c'est une bonne façon d'écrire...
Il y a aussi l'exemple, donner un exemple simple, et là : toi,
Jean-Marc, et certains autres le font, mais pas tous. Un exemple qui
fonctionne par copier/coller évidemment, c'est la meilleur façon
d'expliquer, ainsi, avec quelque chose qui fonctionne on va pouvoir le
comprendre en le décortiquant, en affichant chacun des éléments, en
testant, puis une fois compris, en extrapolant dans d'autres formules.
Il en découle que les réponse doivent être simples, courtes, expliquées,
suivies d'un exemple opérationnel...
Pour conclure sur ce qui semble être une mise en évidence d'une
capacité amoindrie à comprendre, il faut remettre les choses dans leur
contexte, en effet, si tu fais un test de QI avec des engrenages et les
réponses selon le sens de rotation, certes ça va être en partie
révélateur, mais toutefois, ça tiendra quand même compte du fait que
l'on sait ou pas ce qu'est un engrenage. En effet, imagine une personne
qui n'aurait aucune idée de l'engrenage, ou de la friction de roues,
comment veux-tu qu'elle en déduise dans quel sans ça va tourner, si même
elle en déduit que ça tourne ?
Je crois que cet exemple est parlant, et démontre qu'il faut bien
séparer l'intelligence de l'instruction, et encore pour preuve, n'a-t-on
pas vu des développeur professionnels et censés être confirmés, qui
déployaient leur application, non pas dan un répertoire, mais en vrac,
donc avec un risque énorme de mélanger avec d'autres fichiers ceux de
l'application, n'est-ce pas là justement la démonstration que
l'intelligence est l'instruction n'ont rien à voir, le dressage à
appendre des automatismes n'est pas synonyme d'avoir réellement un
esprit de concepteur, et de penser le contraire est une façon de juger
bien légèrement.
A bientôt Jacques, cordialement ;o)
Bonjour Jacques,
Si si si, le décalage de bits, l'octet, le quartet,
le binaire, ben
oui que je connais, j'ai même fait un éditeur de fichier qui affiche en
binaire, en hexa et en texte, ici :
http://irolog.free.fr/irolog_vente/fichier_v/fichier.htm
Tu en dis quoi ?
A part ça, il y a une petite confusion, pour ma part je cherche
toujours le code le plus simple, et la réponse la plus simple ici était :
objet.point(x, y),
mais chercher la réponse la plus simple, la plus
décortiquée, ça n'importe pas d'être stupide
Il y a confusion aussi, car quand on me passe des code anglophones,
je ne les comprends pas, faute de parler la langue correctement, c'est
n'est pas non plus une preuve de stupidité, d'autant que je n'ai jamais
fait de dll, et que si j'en avais fait je comprendrais beaucoup mieux
sans doute, question de circonstances.
Tu en as qui vont écrire x = ((y * z) / 2), ben moi je préfère écrire :
a = y * z
x = a / 2
La, a contrario, c'est plus long mais plus simple... le plus simple dans
le plus court, je crois que c'est une bonne façon d'écrire...
Il y a aussi l'exemple, donner un exemple simple, et là : toi,
Jean-Marc, et certains autres le font, mais pas tous. Un exemple qui
fonctionne par copier/coller évidemment, c'est la meilleur façon
d'expliquer, ainsi, avec quelque chose qui fonctionne on va pouvoir le
comprendre en le décortiquant, en affichant chacun des éléments, en
testant, puis une fois compris, en extrapolant dans d'autres formules.
Il en découle que les réponse doivent être simples, courtes, expliquées,
suivies d'un exemple opérationnel...
Pour conclure sur ce qui semble être une mise en évidence d'une
capacité amoindrie à comprendre, il faut remettre les choses dans leur
contexte, en effet, si tu fais un test de QI avec des engrenages et les
réponses selon le sens de rotation, certes ça va être en partie
révélateur, mais toutefois, ça tiendra quand même compte du fait que
l'on sait ou pas ce qu'est un engrenage. En effet, imagine une personne
qui n'aurait aucune idée de l'engrenage, ou de la friction de roues,
comment veux-tu qu'elle en déduise dans quel sans ça va tourner, si même
elle en déduit que ça tourne ?
Je crois que cet exemple est parlant, et démontre qu'il faut bien
séparer l'intelligence de l'instruction, et encore pour preuve, n'a-t-on
pas vu des développeur professionnels et censés être confirmés, qui
déployaient leur application, non pas dan un répertoire, mais en vrac,
donc avec un risque énorme de mélanger avec d'autres fichiers ceux de
l'application, n'est-ce pas là justement la démonstration que
l'intelligence est l'instruction n'ont rien à voir, le dressage à
appendre des automatismes n'est pas synonyme d'avoir réellement un
esprit de concepteur, et de penser le contraire est une façon de juger
bien légèrement.
A bientôt Jacques, cordialement ;o)
Bonjour Jacques,
Si si si, le décalage de bits, l'octet, le quartet, le binaire, ben
oui que je connais, j'ai même fait un éditeur de fichier qui affiche en
binaire, en hexa et en texte, ici :
http://irolog.free.fr/irolog_vente/fichier_v/fichier.htm
Tu en dis quoi ?
Bonjour Jacques,
Si si si, le décalage de bits, l'octet, le quartet, le binaire, ben
oui que je connais, j'ai même fait un éditeur de fichier qui affiche en
binaire, en hexa et en texte, ici :
http://irolog.free.fr/irolog_vente/fichier_v/fichier.htm
Tu en dis quoi ?
Bonjour Jacques,
Si si si, le décalage de bits, l'octet, le quartet, le binaire, ben
oui que je connais, j'ai même fait un éditeur de fichier qui affiche en
binaire, en hexa et en texte, ici :
http://irolog.free.fr/irolog_vente/fichier_v/fichier.htm
Tu en dis quoi ?
Salut Jacques,
Tu as ouvert la boite de Pandorre ;o))
Driss
"Jacques93" a écrit dans le message de news:
%Bonjour Jean-Marc,
Jean-marc a écrit :Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la
météo a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais
le demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Salut Jacques,
Tu as ouvert la boite de Pandorre ;o))
Driss
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
%238O51djCKHA.4376@TK2MSFTNGP04.phx.gbl...
Bonjour Jean-Marc,
Jean-marc a écrit :
Jacques93 wrote:
Hello Tous,
If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la
météo a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais
le demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.
Salut Jacques,
Tu as ouvert la boite de Pandorre ;o))
Driss
"Jacques93" a écrit dans le message de news:
%Bonjour Jean-Marc,
Jean-marc a écrit :Jacques93 wrote:
Hello Tous,If Button = vbLeftButton Then
RVB = Hex(Picture1.Point(X, Y))
While Len(RVB) < 6
RVB = "0" & RVB
Wend
Bleu = Mid(RVB, 1, 2)
Vert = Mid(RVB, 3, 2)
Rouge = Mid(RVB, 5, 2)
Label1.Caption = "Rouge : " & Rouge & _
"- Vert : " & Vert & _
" - Bleu : " & Bleu
End If
End Sub
En complément, j'en profite pour donner le lien d'un article de la FAQ:
http://faq.vb.free.fr/index.php?question7
J'ai encore zappé la FAQ, mais j'ai une excuse : je suis en vacances en
Bretagne depuis samedi, sous la pluie :-( . La FAQ étant avisé de la
météo a du faire demi tour pour se réfugier en Belgique ;-)
Par ailleurs, c'est sûr, le code proposé n'est pas top, mais tu connais
le demandeur, alors les masquages de bits et les décalages binaires,
franchement tu fais un retour en force :-D
--
Cordialement,
Jacques.