Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Appeler une fonction ???

Appeler une fonction ???

1 réponse
Avatar
X
Bonjour,

Hier on m'a remis un code qui trouve la couleur de la form active, mais
j'ai quelques problèmes pour la faire fonctionner (je veux éviter de le
mettre dans un module, j'ai déjà trop de form, pas la peine d'en rajouter
:o),
voici ce que je fais:

Enum cGetColorFromRGBBasicColor
cred = 1
cgreen = 2
cblue = 3
End Enum
'--------------
Function GetColorFromRGB&(ByVal RGBcolor As Long, ByVal BasicColor As
cGetColorFromRGBBasicColor)
Dim BackValue&, r$ ' trouve couleur form.Me
'
r = Right("000000" & Hex$(RGBcolor), 6)
Select Case BasicColor
Case cGetColorFromRGBBasicColor.cgreen ' 2
BackValue = Val("&h" & Mid$(r, 3, 2))
Case cGetColorFromRGBBasicColor.cblue '3
BackValue = Val("&h" & Left$(r, 2))
Case cGetColorFromRGBBasicColor.cred '1
BackValue = Val("&h" & Right$(r, 2))
End Select
GetColorFromRGB = BackValue
End Function
'--------------

sub ma_procedure()
Dim RGBcolor As Long
Dim BasicColor As cGetColorFromRGBBasicColor
Call GetColorFromRGB&(RGBcolor, BasicColor)
?????????
end sub

'-------------
Déroulement
'------------
- énumération en entête
- fonction de calcul
- procédure (ma_procedure)
Réceptrice qui appelle la fonction et voudrait avoir la valeur en retour...
'----------------

QUESTIONS
Où est l'erreur, l'appel est-il bon ???
Comment et dans quoi je récupère la valeur RGB en une seule valeur Hexa pour
couleur de fond de la form ???


Merci.
--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
X
Problème résolu :o)


"X" <.> a écrit dans le message de news:

| Bonjour,
|
| Hier on m'a remis un code qui trouve la couleur de la form active, mais
| j'ai quelques problèmes pour la faire fonctionner (je veux éviter de le
| mettre dans un module, j'ai déjà trop de form, pas la peine d'en rajouter
| :o),
| voici ce que je fais:
|
| Enum cGetColorFromRGBBasicColor
| cred = 1
| cgreen = 2
| cblue = 3
| End Enum
| '--------------
| Function GetColorFromRGB&(ByVal RGBcolor As Long, ByVal BasicColor As
| cGetColorFromRGBBasicColor)
| Dim BackValue&, r$ ' trouve couleur form.Me
| '
| r = Right("000000" & Hex$(RGBcolor), 6)
| Select Case BasicColor
| Case cGetColorFromRGBBasicColor.cgreen ' 2
| BackValue = Val("&h" & Mid$(r, 3, 2))
| Case cGetColorFromRGBBasicColor.cblue '3
| BackValue = Val("&h" & Left$(r, 2))
| Case cGetColorFromRGBBasicColor.cred '1
| BackValue = Val("&h" & Right$(r, 2))
| End Select
| GetColorFromRGB = BackValue
| End Function
| '--------------
|
| sub ma_procedure()
| Dim RGBcolor As Long
| Dim BasicColor As cGetColorFromRGBBasicColor
| Call GetColorFromRGB&(RGBcolor, BasicColor)
| ?????????
| end sub
|
| '-------------
| Déroulement
| '------------
| - énumération en entête
| - fonction de calcul
| - procédure (ma_procedure)
| Réceptrice qui appelle la fonction et voudrait avoir la valeur en
retour...
| '----------------
|
| QUESTIONS
| Où est l'erreur, l'appel est-il bon ???
| Comment et dans quoi je récupère la valeur RGB en une seule valeur Hexa
pour
| couleur de fond de la form ???
|
|
| Merci.
| --
| ECRIRE
| http://irolog.free.fr/ecrire/index.htm
|
| LOGICIELS
| http://irolog.free.fr
|
| SITE
| http://irolog.free.fr/joe/index.htm
|
| FAQ VB
| http://faq.vb.free.fr
|
| PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
| http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
| ********************************************************
|
|
|
|
|