الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود فورم دائري

مغلق
بدأه reberm my في 10 أبريل 2006 · 1 رد · 564 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

هذا كوود لفورم دائري

لكن لا يتطبق مالخطأ فيه

سااعدوني وجزاكم الله خير

Sub formcircle (frm As Form, Size As Integer)

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left - e%

frm.Top = frm.Top + (Size% - e%)

Next e%

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left + (Size% - e%)

frm.Top = frm.Top + e%

Next e%

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left + e%

frm.Top = frm.Top - (Size% - e%)

Next e%

For e% = Size% - 1 To 0 Step -1

frm.Left = frm.Left - (Size% - e%)

frm.Top = frm.Top - e%

Next e%

End Sub

#2

هذا الكود لعمل فورم دائري 

Option Explicit
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 Long) As Long

ثم اكتب التالي

Private Sub ChangeShape(po_Control As Object)
Dim ll_Width As Long
Dim ll_Height As Long
Dim ll_Left As Long
Dim ll_Top As Long
Dim ll_Region As Long

With po_Control
ll_Width = .Width / Screen.TwipsPerPixelX
ll_Height = .Height / Screen.TwipsPerPixelY
End With

ll_Region = CreateEllipticRgn(0, 0, ll_Width, ll_Height)
Call SetWindowRgn(po_Control.hWnd, ll_Region, True)

End Sub

اخيرا ادخل التالي في حدث تحميل الفورم

Private Sub Form_Load()
ChangeShape Me
End Sub

هذا الموضوع مغلق.

مواضيع مشابهة