مدونة منذر اسامة
قديم 09-May-2012, 04:03 PM   #1
المتهوره
عضو جديد
 
تاريخ التسجيل: May 2008
المشاركات: 1
من مواضيعي  
 
0 مساعده في برنامج فيجوال بيسك 5

افتراضي مساعده في برنامج فيجوال بيسك 5

السلام عليكم ورحمه الله وبركاته
لوسمحتم يا اعضاء المنتدى محتاجه لمساعده في برنامج عندي بالفيجوال بيسك 5 وسؤال البرنامج هو
3) Define a 10X10 bitmap that contains a green face, black eyebrows, blue eyes, red nose and a yellow smile. Then use this bitmap to fill a rectangle of size 100X100.
ويكون الشكل كذا بس الالوان متغيره مثل ماهو مطلوب في السؤال
وأنا حاولت احله وهذي طريقه حلي

' Drawing a shape on a form.[align=left]
Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

' references to object we will use
Dim graphicsObject As Graphics = e.Graphics
Dim d As Rectangle = New Rectangle(5, 35, 100, 100)
Dim li As LinearGradientBrush = New LinearGradientBrush(d, Color.Green, Color.Green, LinearGradientMode.ForwardDiagonal)
Dim te As Bitmap = New Bitmap(10, 10)
Dim g2 As Graphics = Graphics.FromImage(te)
Dim solidColorBrush As SolidBrush = New SolidBrush(Color.Red)
Dim coloredPen As Pen = New Pen(solidColorBrush)
graphicsObject.FillEllipse(li, 5, 30, 65, 100)

coloredPen.Color = Color.Blue
g2.DrawEllipse(coloredPen, 80, 80, 120, 120)

solidColorBrush.Color = Color.Blue
g2.FillEllipse(solidColorBrush, 80, 80, 60, 60)
Dim texturedBrush As TextureBrush = New TextureBrush(te)
graphicsObject.FillRectangle(texturedBrush, 10, 10, 230, 230)[/align]


End Sub
End Class
وياليت تردون علي قبل يوم الثلاثاء
وشكرررررررررررررررررررا
المتهوره غير متواجد حالياً   رد مع اقتباس
إضافة رد


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
مساعده في Dexterity y85.fox مواضيع المطورين الأخرى 4 19-Jan-2015 01:31 PM
إضافة شاشة من الفيجول بيزك إلى ال gp rdad_rf منتدى أكواد فيجوال بيسك VBA 0 31-Dec-2013 01:58 PM
بغيت منك مساعده banoota_asaal منتدى جريت بلينز العام 3 22-Feb-2013 01:57 PM
مساعده من الاخ منذر والاخوه الاعضاء لو تكرمتوااا emadvip منتدى جريت بلينز العام 3 04-Dec-2012 09:25 PM
تنفيذ الماكرو من الفيجوال بيسك kh_waleed23 منتدى أكواد فيجوال بيسك VBA 7 25-Nov-2011 08:48 AM


جميع الأوقات بتوقيت GMT +3. الساعة الآن 08:12 PM.


Powered by vBulletin® Version 3.8.3

الموقع والمنتدى من تطوير » شركة المنذر للاستضافة والتصميم

Copyright © 2000-2010 Jelsoft Enterprises Limited.
الموقع لا يمثل أي جهة رسمية بل هو جهد شخصي يرمي الى تجميع القدرات في برنامج جريت بلينز