اليوم سنتحدث ان شاء الله عن آداة جميله تضفي على برنامج لمسه رائعه
انظر هذه الصوره
هل تريد ان يكون برنامجك كذلك ..
أولاً : قم بإنزال الأداة من الرابط الأتي
http://mypage.ayna.com/mansurcc/ft.zip
*قم بإعداد صوره تريد وضعها على الفورم ولكن بشرط أن تكون من امتداد Gif وتقريبا برنامج Paint Shop Pro يفي بالغرض
* افتح مشروع جديد وضع فيه زر أمر وقم بستدعاء الأداة ft.ocx
* أكتب الكود الأتي في القسم العام General
Dim X1 As Integer, Y1 As Integer
* أكتب الأتي تحت حدث بدأ التحميل للنموذج Load
Me.FT1.RegKey = 125962351 Me.BorderStyle = 0 FT1.NoShowColor = RGB(255, 255, 255)
* تحت حدث حركة الماوس Form_MouseMove أكتب الأتي
If Button = 0 Then Y1 = Y X1 = X End If If Button = 1 Then Form1.Left = Form1.Left - (X1 - X) Form1.Top = Form1.Top - (Y1 - Y) End If
[M-l][F=Red]وتقبلوا تحياتي[/F][/M]

[/M]