^((ثـانـويـة داعـــل الـثانـيـة))^


أهلا وسهلا بك زائرنا الكريم,
أنت لم تقم بتسجيل الدخول بعد!
يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة معنا



 
الرئيسيةس .و .جبحـثالمجموعاتالتسجيلدخول

شاطر | 
 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
عيسى نواصرة
عضو جديد
عضو جديد


ذكر
عدد الرسائل : 9
العمر : 24
نقاط : 25
تاريخ التسجيل : 13/09/2009

مُساهمةموضوع: أحلى لمسة لفورم الفيجوال ألفين وخمسة   الجمعة سبتمبر 18, 2009 4:09 pm

أحلى لمسة لفورم الفيجوال ألفين وخمسة
________________________________________
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
هذا هو رابط الأمثلة الأربعة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
طالب عاشر اولى
حصل على وسام العضوية الذهبية
حصل على وسام العضوية الذهبية
avatar

ذكر
عدد الرسائل : 1104
العمر : 24
نقاط : 1286
تاريخ التسجيل : 14/03/2009

مُساهمةموضوع: رد: أحلى لمسة لفورم الفيجوال ألفين وخمسة   الجمعة أكتوبر 09, 2009 9:03 am

مشكووووووووووووووووووووووووووووووووووووور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
أحلى لمسة لفورم الفيجوال ألفين وخمسة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
^((ثـانـويـة داعـــل الـثانـيـة))^ :: °ˆ~*¤®§(* المنتديات العامة *)§®¤*~ˆ° :: منتدى تكنولوجيا المعلومات-
انتقل الى: