أحلى لمسة لفورم الفيجوال ألفين وخمسة

أحلى لمسة لفورم الفيجوال ألفين وخمسة
________________________________________
SmoothCriminal

بسم الله الرحمن الرحيم

كل عام وأنتم بخير بمناسبة شهر رمضان أعادة اللة على الأمة الإسلامية بالخير واليمن والبركات
وطبعا فى رمضان فإن الحلويات تعيش أزهى عصورها لذلك سيكون هذا الموضوع خاص بالحلويات
ولكن حلويات فيجوالية ويمكنكم تناولها قبل الإفطار أو بعدة وسأقوم كل يوم خلال شهر رمضان بوضع 1 فورم أو 2 فورم
1-خط انتقالى داخل الفورم


قم بعمل مشروع جديد
ضع السطر التالى فى التصريحات العامة( السطر الأول من الفورم)
كود:
Imports System.Drawing.Drawing2D
ضع الكود التالى داخل الفورم
كود:

Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim graphics_path As New Drawing2D.GraphicsPath
graphics_path.AddString("Smooth Criminal", _
New FontFamily("Times New Roman"), _
CInt(FontStyle.Bold), _
80, New Point(10, 10), _
StringFormat.GenericTypographic)
e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
e.Graphics.FillPath(Brushes.White, graphics_path)
e.Graphics.DrawPath(New Pen(Color.Black, 3), graphics_path)
End Sub
طبعا يمكن تغيير Smooth Criminal بسهولة



وهذا رابط المشروع
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
2-تقاطع

فورم جديد ثم ضع فية الكود التالى
كود:

Me.ResizeRedraw = True
Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
ثم التالى
كود:

Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.Clear(Me.BackColor)
e.Graphics.DrawRectangle(Pens.Black, 0, 0, _
Me.ClientSize.Width - 1, _
Me.ClientSize.Height - 1)
e.Graphics.DrawLine(Pens.Black, 0, 0, _
Me.ClientSize.Width - 1, _
Me.ClientSize.Height - 1)
e.Graphics.DrawLine(Pens.Black, _
Me.ClientSize.Width - 1, 0, _
0, Me.ClientSize.Height - 1)
End Sub
يمكن تحميلة من هنا
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


-الدائرة


الكود
كود:
Private Sub Form1_Paint(ByVal sender _
As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
Handles Me.Paint
Dim SmoothCriminal As System.Drawing.Graphics
SmoothCriminal = Me.CreateGraphics
Dim PenColorAsNewSystem.Drawing.Pen(System.Drawing.Color.DarkMagenta)
SmoothCriminal.DrawEllipse(PenColor, 80, 20, 320, 320)
ويمكن تغيير القيم (80, 20, 320, 320) لتغيير وضع الدائرة داخل الفورم وكذلك تغيير أبعادها ويمكن ملا حظة توزيع القيم بالشكل التالى


4-الخط المستقيم



الكود
كود:
Private Sub Form1_Paint(ByVal sender _
As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
Handles Me.Paint
Dim SmoothCriminal As System.Drawing.Graphics
SmoothCriminal = Me.CreateGraphics
Dim PenColor As New System.Drawing.Pen(System.Drawing.Color.Red)
SmoothCriminal.DrawLine(PenColor, 80, 40, 360, 40)
ويمكن تغيير القيم (80, 40, 360, 40) لتغيير وضع الخط المستقيم داخل الفورم وكذلك تغيير أبعاده ويمكن ملاحظة توزيع القيم بالشكل التالى


5- الشكل الرباعى



الكود
كود:
Private Sub Form1_Paint(ByVal sender _
As Object, ByVal e As System.Windows.Forms.PaintEventArgs) _
Handles Me.Paint
Dim SmoothCriminal As System.Drawing.Graphics
SmoothCriminal = Me.CreateGraphics
Dim BrushColor As New SolidBrush(Color.Red)
SmoothCriminal.FillRectangle(BrushColor, 100, 100, 300, 300)
ويمكن تغيير أبعاد المربع وتحويلة إلى مستطيل بتغيير أحد القيميتين 300
6- ZOOM


قم بإدراج مربع صورة داخل الفورم ثم فى خصائص هذا المربع اذهب إلى Image وقم باختيار Local Resource
قم بالضغط على Import ثم اختر صورة


قم بوضع هذا الكود فى مربع الصورة
كود:
PictureBox1.Height = PictureBox1.Height + 20
PictureBox1.Width = PictureBox1.Width + 20
بالطبع يمكن تغيير القيمة +20 حسب ما تريد عند تشغيل البرنامج وبالضغط على الصورة ستقوم بعمل زووم فى كل مرة بزيادة مقدارها 20
هذا هو رابط الأمثلة الأربعة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

مشكووووووووووووووووووووووووووووووووووووور