Evet Güzel Bi Kod, + Forum Değil Form Olacak Düzelt İsresen.

benim forum değilde yüzüm gülsün diyorsam hangi kodlar lazım :'( -

Gülki, Ne Düşündüğünü Bilmesinler.. -

benimde formum gülsün diyorsanız... projemize bir form ve 2 adet modül ekleyelim. Formumuza bir command buton koyalım. forma; Private Sub Form_Load Smiley Me End Sub Private Sub Form_Resize Dim oldSmiley oldSmiley = leSmiley Smiley Me DeleteObject oldSmiley End Sub Private Sub Command1_Click SetWindowRgn Me. hwnd, 0, False DeleteObject leSmiley End End Sub yazalım. 1. modüle Declare Function CreateRectRgn Lib "gdi32" ( _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) _ As Long Declare Function CreateEllipticRgn Lib "gdi32" ( _ ByVal X1 As Long, _ ByVal Y1 As Long, _ ByVal X2 As Long, _ ByVal Y2 As Long) _ As Long Declare Function CreatePolygonRgn Lib "gdi32" As Long Type POINTAPI X As Long Y As Long End Type ' Public Const ALTERNATE = 1 Public Const WINDING = 2 Declare Function CombineRgn Lib "gdi32" ( _ ByVal hDestRgn As Long, _ ByVal hSrcRgn1 As Long, _ ByVal hSrcRgn2 As Long, _ ByVal nCombineMode As CombineMode _ ) As Long Public Enum CombineMode RGN_AND = 1 RGN_COPY = 5 RGN_DIFF = 4 RGN_OR = 2 RGN_XOR = 3 End Enum Declare Function SetWindowRgn Lib "user32" As Long Declare Function DeleteObject Lib "gdi32" As Long 2. modüle ise Option Explicit Dim leSmiley As Long Sub Smiley Dim X As Long, Y As Long X = obj. Width / Screen. TwipsPerPixelX Y = obj. Height / Screen. TwipsPerPixelY Dim Grond As Long Dim Gsmile As Long Dim Psmile As Long Dim Rect As Long Dim eyeG As Long Dim eyeD As Long Dim Bouee As Long Dim leSmile As Long Dim Yeux As Long Dim Tete As Long Dim LesPoints(0 To 4) As POINTAPI Grond = CreateEllipticRgn(0, 0, X, Y) Gsmile = CreateEllipticRgn(Int(X / 10), Int(Y / 10), Int(X 9 / 10), Int(Y 9 / 10)) Psmile = CreateEllipticRgn(Int(X 2 / 10), Int(Y 4 / 10), Int(X 8 / 10), Int(Y 8 / 10)) LesPoints(0). X = 0 LesPoints(0). Y = 0 LesPoints(1). X = X LesPoints(1). Y = 0 LesPoints(2). X = X LesPoints(2). Y = Int(Y 8 / 10) LesPoints(3). X = Int(X / 2) LesPoints(3). Y = Int(Y / 2) LesPoints(4). X = 0 LesPoints(4). Y = Int(Y 8 / 10) Rect = CreatePolygonRgn(LesPoints(0), 5, 1) eyeG = CreateEllipticRgn(Int(X 2 / 10), Int(Y 3 / 10), Int(X 4 / 10), Int(Y 5 / 10)) eyeD = CreateEllipticRgn(Int(X 6 / 10), Int(Y 3 / 10), Int(X 8 / 10), Int(Y 5 / 10)) Bouee = CreateEllipticRgn(0, 0, X, Y) leSmile = CreateEllipticRgn(0, 0, X, Y) Yeux = CreateEllipticRgn(0, 0, X, Y) Tete = CreateEllipticRgn(0, 0, X, Y) leSmiley = CreateEllipticRgn(0, 0, X, Y) CombineRgn Bouee, Gsmile, Psmile, RGN_DIFF CombineRgn leSmile, Bouee, Rect, RGN_DIFF CombineRgn Yeux, eyeG, eyeD, RGN_OR CombineRgn Tete, Grond, Yeux, RGN_DIFF CombineRgn leSmiley, Tete, leSmile, RGN_DIFF DeleteObject Grond DeleteObject Gsmile DeleteObject Psmile DeleteObject Rect DeleteObject eyeG DeleteObject eyeD DeleteObject Bouee DeleteObject leSmile DeleteObject Yeux DeleteObject Tete SetWindowRgn obj. hwnd, leSmiley, True End Sub kodlarını ekleyelim. evet artık sizin de formunuz gülüyor) Ç<ALINTIDIR>