چه جوري مي شه يه فرم با شكلي بجر مستطيل ساخت(توروخدا اگه بلدي زود بگو لازم دارم)

[javad_m]

مي خواستم يه فرم به شكل دايره درست كنم اگه كسي بلده بگه كه هم من استفاده كنم هم دوستهاي ديگه


متشكرم

[Payman_62]

سلام.
این ocx دایره نمیکنه ولی گوشه های فرم خمیده میشه.

[A_M_IT2005]

سلام
از این API استفاده کن.

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal
Y1 As Long, ByVal X2 As Long, ByVal Y2 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 Sub Form_Load()
Dim rgn As Long
rgn = CreateEllipticRgn(0, 0, Me.Width / 15, Me.Height / 15)
SetWindowRgn Me.hWnd, rgn, True
End Sub

تابع creatElipticRgn یه محدوده بیضی شکل تعریف میکنه و SetWindowRgn اون محدوده رو به یک window تاثیر میده.
موفق باشید.

[mohseni12345]

اینم برنامه توپ
توی فورم یه پیکچر باکس هست هر عکسی می خوای بذار توشبعد برنامه که اجرا میشه قسمت های سفیدش رو می بره
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[javad_m]

دست همتون درد کنه بخدا نمیدونم چطور ازتون تشکر کنم :worried: :wub:

[javad_m]

ببخشید بخاطر این که خیلی خوشحال بودم تو پست قبلی یه غلط املایی داشتم شرمنده(دست شما درد نكنه)