بعض الادوات لتجميل الفورم

يعطيك العافية أخ شمس الزناتي

وهذا رابط يحوي تفاصيل كثير وللفائدة أكثر

ننتظر الباقي

الاداة الثانية

الاداة freesize

و يعود الشكر فيها لأخي abu sabreen

و لكي تستخدم الاداة عليك وضع الكود التالي في form load

freeSizer1.MoveObjects = True

freeSizer1.ResizeFonts = True

freeSizer1.ResizeObjects = True

freeSizer1.SmartPositioning = True

freeSizer1.SmartSizing = True

و هذة الاداة تستخدم في تنسيق احجام محتويات الفورم

freeSize.rar

اخ شمس الزناتي

الادوات التي تقوم بأرفاقها هي موجودة في المنتدى فالماذا تكررها ... اتمنى ان تأتي بجديد

;)

اقتباس

اخ شمس الزناتي

الادوات التي تقوم بأرفاقها هي موجودة في المنتدى فالماذا تكررها ... اتمنى ان تأتي بجديد

اخيHnHn

لا انكر ما تقوله و لكنى اقدم القديم و الجديد معاً حتى تتمكن الاعضاء من ان تجد ما يريدوه في موضوع واحد

شكر لك اخي الكريم على الاداتين الرائعتين

الاداة الثالثة

الاداة osenxpsuite

و تعطي تأثيرالxp

واضح يا جماعة ان في مشكلة في المرفقات

أما بالنسبة للأداة osenxp suit فحجمها كبير بالنسبة للمرفقات

و هذه أداتي

/index.ph...110523&st=0

اولا اخى superboy اشكرك على مشاركتك و على الاداة الجميلة منك و نتمنى من الجميع المشاركة بكل ما هو مفيد

و ان لم يكن فالدعاء

الان هذا الكود لجعل الفورم بيضاوية الشكل

تضع في الموديول

Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

و هذا في الفورم

Sub Waooo(frm As Form)

   Dim a As Integer
   Dim b As Integer
   Dim C As Integer
   Dim d As Integer
   Dim e As Integer
   Dim f As Integer
   Dim w As Integer
   Dim X As Integer
   Dim Y As Integer
   Dim z As Integer
   Dim current As Double
   Call frm.Move(0, 0)
   w = frm.Height: X = frm.Width: Y = frm.Top: z = frm.Left
   a = 0: b = 0: C = w: d = X: e = Y: f = z
   Do While a < frm.Height / 15 Or b < frm.Width / 15
	  a = a + 25
	  b = b + 25
	  e = e + 40
	  f = f + 148
	  If a > frm.Height / 15 Then a = a - 23
	  If b > frm.Width / 15 Then b = b - 23
	  Call frm.Move(f, e, d, C)
	  current = Timer
	  Do While Timer - current < 0.01
		 DoEvents
	  Loop
	  Call SetWindowRgn(frm.hwnd, CreateEllipticRgn(0, 0, b, a), True)
   Loop
   current = Timer
   Do While Timer - current < 1
	  DoEvents
   Loop

End Sub

Private Sub Form_Activate()
Waooo Form1
End Sub

هذا الكود وظيفة لأداتي

اذن الان معنا الكود و الاداة فالاداة ما بداخلها مبهم لذلك يجب علينا رؤية الكود حتى نتمكن من الفهم