Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai
faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou étiquette)
dans un état au moment de sa visualisation.
Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
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
Smicky77
Bonjour à tous,
Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou étiquette) dans un état au moment de sa visualisation. Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
Meri d'avance à vous. Smicky
Re, Après quelques essais et tatonement, je m'en sors en VBA avec : Me.MonControle.ForeColor = n n = valeur numérique de la couleur Le tout avec un menu formulaire perso mais limité en nombre....
Mais y a t-il moyen de passer par la palette de couleur ?
A votre bon coeur m'sieur dame Smicky
Bonjour à tous,
Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai
faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou étiquette)
dans un état au moment de sa visualisation.
Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
Meri d'avance à vous.
Smicky
Re,
Après quelques essais et tatonement, je m'en sors en VBA avec :
Me.MonControle.ForeColor = n
n = valeur numérique de la couleur
Le tout avec un menu formulaire perso mais limité en nombre....
Mais y a t-il moyen de passer par la palette de couleur ?
Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou étiquette) dans un état au moment de sa visualisation. Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
Meri d'avance à vous. Smicky
Re, Après quelques essais et tatonement, je m'en sors en VBA avec : Me.MonControle.ForeColor = n n = valeur numérique de la couleur Le tout avec un menu formulaire perso mais limité en nombre....
Mais y a t-il moyen de passer par la palette de couleur ?
A votre bon coeur m'sieur dame Smicky
Gilbert
Bonjour, Cette procédure permet d'ouvrir une fenêtre de dialogue et de récupérer le code de la couleur sélectionnée par l'opérateur. (extrait de l'exemple conçu par Jessy Sempere - Access MVP, le 03/04/2003)
L'api sera placée dans un module et sera appelée par la fonction suivante:
Private Sub Commande0_Click()
Me.Texte1 = acDialogColor ou
Me.Texte2.ForeColor = acDialogColor
End Sub
Le contrôle Texte1 contiendra le numéro de la couleur sélectionnée. Ce numéro pourra être utilisé directement dans la propriété ForeColor ou BackColor d'un contrôle d'un formulaire ou d'un état.
La couleur du texte du contrôle texte2 sera directement modifié avec le numéro de la couleur.
Placer le code suivant dans un module normal de n'importe quel nom:
Option Compare Database
Option Explicit
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
(pChoosecolor As COLORSTRUC) As Long
Dim x As Long, CS As COLORSTRUC
Public Function acDialogColor() As Long
CS.lStructSize = Len(CS)
CS.hwnd = hWndAccessApp
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then CS.rgbResult = 0
acDialogColor = CS.rgbResult
End Function
Cordialement
Gilbert
"Smicky77" a écrit dans le message de news:
Bonjour à tous,
Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou étiquette)
dans un état au moment de sa visualisation. Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
Meri d'avance à vous. Smicky
Bonjour,
Cette procédure permet d'ouvrir une fenêtre de dialogue et de récupérer le
code de la couleur sélectionnée par l'opérateur. (extrait de l'exemple conçu
par Jessy Sempere - Access MVP, le 03/04/2003)
L'api sera placée dans un module et sera appelée par la fonction suivante:
Private Sub Commande0_Click()
Me.Texte1 = acDialogColor ou
Me.Texte2.ForeColor = acDialogColor
End Sub
Le contrôle Texte1 contiendra le numéro de la couleur sélectionnée. Ce
numéro pourra être utilisé directement dans la propriété ForeColor ou
BackColor d'un contrôle d'un formulaire ou d'un état.
La couleur du texte du contrôle texte2 sera directement modifié avec le
numéro de la couleur.
Placer le code suivant dans un module normal de n'importe quel nom:
Option Compare Database
Option Explicit
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA"
_
(pChoosecolor As COLORSTRUC) As Long
Dim x As Long, CS As COLORSTRUC
Public Function acDialogColor() As Long
CS.lStructSize = Len(CS)
CS.hwnd = hWndAccessApp
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then CS.rgbResult = 0
acDialogColor = CS.rgbResult
End Function
Cordialement
Gilbert
"Smicky77" <Smicky77@discussions.microsoft.com> a écrit dans le message de
news:7C3F0006-6087-455A-9C2E-80B0D3CC511A@microsoft.com...
Bonjour à tous,
Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai
faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou
étiquette)
dans un état au moment de sa visualisation.
Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
Bonjour, Cette procédure permet d'ouvrir une fenêtre de dialogue et de récupérer le code de la couleur sélectionnée par l'opérateur. (extrait de l'exemple conçu par Jessy Sempere - Access MVP, le 03/04/2003)
L'api sera placée dans un module et sera appelée par la fonction suivante:
Private Sub Commande0_Click()
Me.Texte1 = acDialogColor ou
Me.Texte2.ForeColor = acDialogColor
End Sub
Le contrôle Texte1 contiendra le numéro de la couleur sélectionnée. Ce numéro pourra être utilisé directement dans la propriété ForeColor ou BackColor d'un contrôle d'un formulaire ou d'un état.
La couleur du texte du contrôle texte2 sera directement modifié avec le numéro de la couleur.
Placer le code suivant dans un module normal de n'importe quel nom:
Option Compare Database
Option Explicit
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
(pChoosecolor As COLORSTRUC) As Long
Dim x As Long, CS As COLORSTRUC
Public Function acDialogColor() As Long
CS.lStructSize = Len(CS)
CS.hwnd = hWndAccessApp
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then CS.rgbResult = 0
acDialogColor = CS.rgbResult
End Function
Cordialement
Gilbert
"Smicky77" a écrit dans le message de news:
Bonjour à tous,
Question de l'utilisateur (ma femme ;-) d'une appli Access que je lui ai faite :
Peux t-on proposer un choix de couleur pour un texte (contrôle ou étiquette)
dans un état au moment de sa visualisation. Proposer un menu à choix fixe ou en affichant la palette de couleur.
Je tatonne et ne trouve rien, ni dans les historique du forum.
Meri d'avance à vous. Smicky
Smicky77
Bonjour Gilbert,
Génial, c'est exactement ce que je cherchais, ça ouvre toutes les possibilités de couleurs. MERCI.
Question subsidiaire : Est-il possible de faire la même chose avec la fenêtre des polices d'écriture ? Ou des propriétés d'écriture ?
Encore merci. Smicky
Bonjour, Cette procédure permet d'ouvrir une fenêtre de dialogue et de récupérer le code de la couleur sélectionnée par l'opérateur. (extrait de l'exemple conçu par Jessy Sempere - Access MVP, le 03/04/2003)
L'api sera placée dans un module et sera appelée par la fonction suivante:
Private Sub Commande0_Click()
Me.Texte1 = acDialogColor ou
Me.Texte2.ForeColor = acDialogColor
End Sub
Le contrôle Texte1 contiendra le numéro de la couleur sélectionnée. Ce numéro pourra être utilisé directement dans la propriété ForeColor ou BackColor d'un contrôle d'un formulaire ou d'un état.
La couleur du texte du contrôle texte2 sera directement modifié avec le numéro de la couleur.
Placer le code suivant dans un module normal de n'importe quel nom:
Option Compare Database
Option Explicit
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
(pChoosecolor As COLORSTRUC) As Long
Dim x As Long, CS As COLORSTRUC
Public Function acDialogColor() As Long
CS.lStructSize = Len(CS)
CS.hwnd = hWndAccessApp
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then CS.rgbResult = 0
acDialogColor = CS.rgbResult
End Function
Cordialement
Gilbert
Bonjour Gilbert,
Génial, c'est exactement ce que je cherchais, ça ouvre toutes les
possibilités de couleurs. MERCI.
Question subsidiaire :
Est-il possible de faire la même chose avec la fenêtre des polices
d'écriture ?
Ou des propriétés d'écriture ?
Encore merci.
Smicky
Bonjour,
Cette procédure permet d'ouvrir une fenêtre de dialogue et de récupérer le
code de la couleur sélectionnée par l'opérateur. (extrait de l'exemple conçu
par Jessy Sempere - Access MVP, le 03/04/2003)
L'api sera placée dans un module et sera appelée par la fonction suivante:
Private Sub Commande0_Click()
Me.Texte1 = acDialogColor ou
Me.Texte2.ForeColor = acDialogColor
End Sub
Le contrôle Texte1 contiendra le numéro de la couleur sélectionnée. Ce
numéro pourra être utilisé directement dans la propriété ForeColor ou
BackColor d'un contrôle d'un formulaire ou d'un état.
La couleur du texte du contrôle texte2 sera directement modifié avec le
numéro de la couleur.
Placer le code suivant dans un module normal de n'importe quel nom:
Option Compare Database
Option Explicit
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA"
_
Génial, c'est exactement ce que je cherchais, ça ouvre toutes les possibilités de couleurs. MERCI.
Question subsidiaire : Est-il possible de faire la même chose avec la fenêtre des polices d'écriture ? Ou des propriétés d'écriture ?
Encore merci. Smicky
Bonjour, Cette procédure permet d'ouvrir une fenêtre de dialogue et de récupérer le code de la couleur sélectionnée par l'opérateur. (extrait de l'exemple conçu par Jessy Sempere - Access MVP, le 03/04/2003)
L'api sera placée dans un module et sera appelée par la fonction suivante:
Private Sub Commande0_Click()
Me.Texte1 = acDialogColor ou
Me.Texte2.ForeColor = acDialogColor
End Sub
Le contrôle Texte1 contiendra le numéro de la couleur sélectionnée. Ce numéro pourra être utilisé directement dans la propriété ForeColor ou BackColor d'un contrôle d'un formulaire ou d'un état.
La couleur du texte du contrôle texte2 sera directement modifié avec le numéro de la couleur.
Placer le code suivant dans un module normal de n'importe quel nom:
Option Compare Database
Option Explicit
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
