Commandbutton dynamic + de la couleur
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
bonjour a tous
Est ce que quelqu'un sait comment rajouter de la couleur a un commandbutton dynamic
Ca beug au niveau de ( .Style )
voici le code :
------------------------------------------------------------------------
Private WithEvents cmd1 As CommandButton
------------------------------------------------------------------------
Private Sub Form_Load()
Set cmd1 = Controls.Add("VB.CommandButton", "cmd1")
With cmd1
.Visible = True
.Width = 1000 'LargueurDuCmd.
.Height = 400 'HauteurDuCmd.
.Top = 0 'ToutVersBordEnHaut
.Left = 0 'ToutVersBordGauche.
.Caption = "cmd1"
.FontSize = 10
.BackColor = RGB(255, 255, 0)
.Appearance = 1
.Style = 1 '<------( CA BEUG LA)
End With
End Sub
---------------------------------------------------------------------------
Salut a tous et Merci
Est ce que quelqu'un sait comment rajouter de la couleur a un commandbutton dynamic
Ca beug au niveau de ( .Style )
voici le code :
------------------------------------------------------------------------
Private WithEvents cmd1 As CommandButton
------------------------------------------------------------------------
Private Sub Form_Load()
Set cmd1 = Controls.Add("VB.CommandButton", "cmd1")
With cmd1
.Visible = True
.Width = 1000 'LargueurDuCmd.
.Height = 400 'HauteurDuCmd.
.Top = 0 'ToutVersBordEnHaut
.Left = 0 'ToutVersBordGauche.
.Caption = "cmd1"
.FontSize = 10
.BackColor = RGB(255, 255, 0)
.Appearance = 1
.Style = 1 '<------( CA BEUG LA)
End With
End Sub
---------------------------------------------------------------------------
Salut a tous et Merci
2 réponses
-
Resalut atous
et'il possible SVP de supprimer ce message inutile car pas complet
Merci et salut a tous. -
salut a C.C.M
Sugestion :
ce serais pas mal de donner la possibiliter a celui qui ecrit un message et qui s'appercois mais trop tard que sont message n'est pas celui voulut, de pouvoir le supprimer de lui meme avec une fonction ( supprimer le message)
Merci a C.C.M
