Discussion :

[consolate]

Je voudrais créer un commandButton activeX, car je voudrais ajouter une propriété qui permette de modifier la couleur du texte du bouton.
Je ne sait pas ajouter le code(VB6)nécessaire pour que cela fonctionne.
Si quelqu'un peut m'aider, merci d'avance.

[Aniki]

Salut consolate.

Il n'y a pas de solution simple.
Celle qui demande le moins d'efforts, c'est d'utiliser un picture box et de passer le style du CommandButton en "Graphical" et de rajouter ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Form_Load()
 
Dim lW As Long
Dim lH As Long
Dim cmd As CommandButton
Dim pic As PictureBox
Dim strCaption As String
 
 
Set cmd = Command1
Set pic = Picture1
 
strCaption = cmd.Caption
cmd.Caption = vbNullString
 
pic.Visible = False
pic.AutoRedraw = True
 
pic.ForeColor = vbRed
lW = pic.TextWidth(strCaption)
lH = pic.TextHeight(strCaption)
pic.Width = cmd.Width
pic.Height = cmd.Height
pic.CurrentX = (pic.ScaleWidth / 2) - (lW / 2)
pic.CurrentY = (pic.ScaleHeight / 2) - (lH / 2)
pic.Print strCaption
 
Set cmd.Picture = pic.Image
 
 
End Sub

Un leger problème de cette méthode est que le texte du boutton se décale légèrement vers le bas quand le controle reçoit le focus.


Sinon, tu peux aussi peindre toi même la fenêtre de ton boutton.

[consolate]

Salut Aniki,
J'ai essayé ton code. Pour moi ça me va très bien.
Je te remercie beaucoup.
A une prochaine fois.