Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: eigene Button
Autor: GröVBaZ
Datum: 01.04.03 16:21
Hier ein Beispiel: Imports System.Windows.Forms Imports System.Drawing Public Class RoundButton : Inherits UserControl Public BackgroundColor As Color = Color.Blue Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim graphics As Graphics = e.Graphics Dim penWidth As Integer = 4 Dim pen As Pen = New Pen(Color.Black, 4) Dim fontHeight As Integer = 10 Dim font As Font = New Font("Arial", fontHeight) Dim brush As SolidBrush = New SolidBrush(BackgroundColor) graphics.FillEllipse(brush, 0, 0, Width, Height) Dim textBrush As SolidBrush = New SolidBrush(Color.Black) graphics.DrawEllipse(pen, CInt(penWidth / 2), _ CInt(penWidth / 2), Width - penWidth, Height - penWidth) graphics.DrawString(Text, font, textBrush, penWidth, _ Height / 2 - fontHeight) End Sub End Class Viel Spass GröVBaZ

eigene Button	178	al	22.03.03 11:07
Re: eigene Button	478	GröVBaZ	01.04.03 16:21

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen