بسم الله الرحمن الرحيمالسلام عليكم يا شباب
إن شاء الله اليوم هنتعلم إزاى تصمم جرافيك احترافى لبرنامجك من الألف إلى الياء
ودلوقتى هنتعلم إزاى نصمم استايل الماتريكس
اول حاجة افتح مشروع جديد وخلى حدود الفورم من BorderStyle = None
نقوم بإضافة مربع صور Image وثلاث مربعات بيانات Label كما بالشكل التالى
نغير التسميات حيث يكون الليبل الذى فى الوسط هو عنوان برنامجك والثانى _ والثالث X
غير الألوان إلى الألوان التى تريدها وأضف فى مربع الصور Image شعار برنامجك
دلوقتى احنا عايزين نحط صورة خلفية الفورم ومعانا مثلا صورة زى دى
يبقى من الخاصية Picture من الفورم ونختار منها الصورة الى عايزينها
ملاحظة بسيطةممكن تخلى ظهر الليبل شفاف بيحث يبين الى وراه عن طريق الخاصية BackStyle تخى قيمتها Transparent
الأزرارالأداة JetButton كفيلة بكل شئ وهى فى منتهى القهوة بحيث تستطيع تحديد الألوان التى تريدها بكل سهولة ويسر
اضغط هنا للتحميلهاوإليكم طريقة إدخالها فى المشروع
هتلاقى أيقونة الجيت نزلت عندك فى آخر التولز بار
دوس عليها مرتين علشان تنزل زرار واستخدمها زى أى زرار عادى تغير التسمية من Caption والإسم من Name ... الخ
ودى صورة الاستايل بعد الانتهاء منه
الأكوادلغاية دلوقتى لسه ما بدأناش فى الأكواد والأكواد كالتالى
1- كود إغلاق الفورم X
كود:
Unload Me
هذا إن كان فورم فرعى أما إذا كان فورم أساسى فالأفضل أن يكون
كود:
End
لأن هذا ينهى عمل جميع الفورمات المفتوحة أما الأول فينهى عمل الفورم المحدد فقط
2- كود زر التنزيل فى شريط المهام _
كود:
Me.WindowState = 1
3- كود زر التكبير [] ( لا انصح به )
التكبير وهو Maxmized وهو ملئ الفورم للشاشة كاملة لا انص به فى الفيجول لإنك يجب ان تقوم بتنسيق الفورم فى كل حجم شاشة بعد تعرف البرنامج عليها يعنى مثلا فى مستخدم يحب الشاشة تبقى 800 × 600 ونا 1078 × 700 ... الخ فعلشان يبر بالصورة الصحيحة وميقاش فى جوانب فاضية لازم الأول تتعرف على درجة الشاشة وبعدين توسط حسبها علشان ترضى جميع المتسخدمين
كود:
Me.WindowState = 2
4- تحريك الفورم
التصريحات العامة
كود:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
تحريك الفورم من ليبل العنوان
فى الإجراء MouseMove من الليبل
كود:
Dim Result As Long
If Button = 1 Then
Call ReleaseCapture
Result = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
تحريكه من أى مكان
أيضا فى الإجراء MouseMove من الفورم
كود:
Shift As Integer, X As Single, _
Y As Single)
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
اشكال الفورمفورم منسق الجوانب
1- التصريحات العامة General
كود:
Private Declare Function CreateRoundRectRgn Lib "gdi32.dll" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) _
As Long
Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Sub RoundRect(ByVal uObject As Object, ByVal v As Long, ByVal w As Long)
Dim lRight As Long
Dim lBottom As Long
Dim hRgn As Long
With uObject
lRight = .Width / Screen.TwipsPerPixelX
lBottom = .Height / Screen.TwipsPerPixelY
hRgn = CreateRoundRectRgn(0, 0, lRight, lBottom, v, w)
SetWindowRgn .hwnd, hRgn, True
End With
End Sub
2- تحميل الفورم Form Load
كود:
RoundRect Me, 40, 40
بالطبع تستطيع تغيير 40 إلى درجة الإنحراف التى تريدها
وإذا كنت تريد الفورم دائرى اجعل الدرجة 360
صانع السكنزبرنامج رائع اقدمه لكم اليوم وهو بعدي عن برامج السكينز المعقدة وفكرته بسيطة جدة وقوية وفعالة
وقد قمت ببعض الإضافات والتعريب لكم وهو لمبرمجه الأصلى Prince Joseph
اضغط هنا لتحميل البرنامجطريقة الإستخدامبعد فتح البرنامج نقوم بإختيار تحديد الخلفية من ملف
ستظهر لنا الخلفية على مسرح العمل نقوم بإختيار إبدا من الأدوات
سيظهر لنا مؤشر الفأرة على الخلفية نقوم بتخطيط الاستايل عليها يعنى ترسم شكل الفورم الى انت عايزه على الخلفية ولازم تقفل الدائرة يعنى ترجع تانى لنقطة الأصل
بعد التحديد مثلا بقى الشكل ادامنا كده
من الأدوات اختر انشئ الكود
هتلاقيه فتح لك صفحة الأكواد
انسخ الكود وافتح مشروع فيجول جديد والصقه فيه
هتلاقيه بقى بالشكل ده بعد التشغيل
ودلوقتى تقدر تعمل أى شكل تحبه للفورم بتاعك
انتهى الشرح وأتمنى انه يكون افادكم