Zitat:

und dann ist noch eine frage offen ^^ .. kann man bei einen botton auch die ecken rund machen ?

Private Declare Function CreateRoundRectRgn& Lib "gdi32" _
  (ByVal X1&, ByVal Y1&, ByVal X2&, ByVal Y2&, _
  ByVal X3&, ByVal Y3&)
Private Declare Function SetWindowRgn& Lib "user32" _
  (ByVal hWnd&, ByVal hRgn&, ByVal bRedraw As Boolean)
 
Private Sub Form_Load()
 
  Dim Rand&
 
  Me.ScaleMode = vbPixels
  Rand = 6
  With Command1
    Call SetWindowRgn(.hWnd, CreateRoundRectRgn(Rand, Rand, _
      .Width - 2 * Rand, .Height - 2 * Rand, 30, 30), True)
  End With
 
End Sub

Gruss,

Zardoz

Beitrag wurde zuletzt am 06.12.10 um 02:11:27 editiert.