title image


Smiley Re: Schriftfarbe eines Buttons ändern?
Eine zustätzliche PictureBox auf die Form. Name: ButtonFace





Private Sub Form_Load()

With ButtonFace

.AutoRedraw = True

.BorderStyle = 0

.Width = Command1.Width

.Height = Command1.Height

.BackColor = vbRed

.ForeColor = vbYellow

.CurrentX = .ScaleWidth / 2 - (.TextWidth(Command1.Caption) / 2)

.CurrentY = .ScaleHeight / 2 - (.TextHeight(Command1.Caption) / 2)

.Visible = False

ButtonFace.Print Command1.Caption

End With

Command1.Picture = ButtonFace.Image

End Sub


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: