Yuvarlak Userform

Kulanıcı arayüz formu

Yuvarlak Userform

İleti#1)  Erhan Dinçer » 24 Haz 2008 11:52

Kod: Tümünü seç
Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.Width = 350: Me.Height = 350
CommandButton1.Left = (Me.Width - CommandButton1.Width) / 3
CommandButton1.Top = Me.Height * 0.6
End Sub
Private Sub UserForm_Activate()
Dim x As Long, y As Long, n As Long, mWnd As Long
x = Me.Width
y = Me.Height
n = 4000 'bei kleinem Wert nur abgerundete Ecken
mWnd = FindWindow(vbNullString, Me.Name)
SetWindowRgn mWnd, CreateRoundRectRgn(0, 0, x, y, n, n), True
End Sub

Userforma bir commandbutton ekleyin. Ardından kodları yapıştırın.

Dosyayı aşağıdan indirebilirsiniz.
Resim
Türk gibi Türkçe konuş
Benim yaradılışımda fevkalâde bir şey varsa, Türk olarak dünyaya gelmemdir...
-M.K.ATATÜRK-
Kullanıcı avatarı
Erhan Dinçer
Siteye Alışmış
 
Adı Soyadı:Erhan DİNÇER
Kayıt: 15 Haz 2008 02:14
Konum: AYDIN,ANKARA
Meslek: Elektrik-Elektronik Yüksek Mühendisi
Yaş: 41
İleti: 144
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: AYDIN

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe