الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود رسم المستطيل .. !

بدأه إشراقة فجر في 14 أبريل 2009 · 3 رد · 640 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله وبركـآته ..

آتمنى منكم المســآعدهـ ..

آريد كـود رسـم المستطيــل ..

مع العلــم آني حآولت ولم آتوصــل لحــل نهآئي ..

الله يجزآكم خير .. !!

و يوفقه اللي بيســآعدني ..

والله مآ عرفـــــــت :(

//

و السـلآم عليكم ورحمه الله وبركآته ..

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 14 أبريل 2009 في 22:18

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#2

مــــــآزلت آنتظر ..

:(

//

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#3

مرحباً,

لرسم مستطيل على ( Control أو Form ) ما>>> استخدم :

 

Imports [color= #990000;]System[color= #339933;].Drawing

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub Form1_Paint[color= #009900;](Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], Byval Ev [color= #b1b100;]As PaintEventArgs [color= #009900;]) Handles MyB
ase[color= #339933;].Paint

Using G [color= #b1b100;]As Graphics [color= #339933;]= Graphics[color= #339933;].FromhWnd[color= #009900;]( Handle [color= #009900;])

G[color= #339933;].SmoothingMode [color= #339933;]= SmoothingMode[color= #339933;].AntiAlias

G[color= #339933;].Clear[color= #009900;]( BackColor [color= #009900;])

Dim MyPen [color= #b1b100;]As [color= #000000; font-weight: bold;]New Pen[color= #009900;]( Color[color= #339933;].Coral[color= #339933;], [color= #cc66cc;]4 [color= #009900;])

Dim Rect [color= #b1b100;]As [color= #000000; font-weight: bold;]New Rectangle[color= #009900;]( [color= #cc66cc;]5[color= #339933;], [color= #cc66cc;]5[color= #339933;], ClientSize[color= #339933;].Width [color= #339933;]- [color= #cc66cc;]10[color= #339933;], ClientSize[color= #339933;].Height [color= #339933;]- [color= #cc66cc;]10 [color= #009900;])

G[color= #339933;].DrawRectangle[color= #009900;]( MyPen[color= #339933;], Rect [color= #009900;])

[color= #990000;]End Using

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

لرسم مستطيل مملوء, استخدم :

 

Imports [color= #990000;]System[color= #339933;].Drawing

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub Form1_Paint[color= #009900;](Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], Byval Ev [color= #b1b100;]As PaintEventArgs [color= #009900;]) Handles MyB
ase[color= #339933;].Paint

Using G [color= #b1b100;]As Graphics [color= #339933;]= Graphics[color= #339933;].FromhWnd[color= #009900;]( Handle [color= #009900;])

G[color= #339933;].SmoothingMode [color= #339933;]= SmoothingMode[color= #339933;].AntiAlias

G[color= #339933;].Clear[color= #009900;]( BackColor [color= #009900;])

Dim MySBrush [color= #b1b100;]As [color= #000000; font-weight: bold;]New SolidBrush[color= #009900;]( Color[color= #339933;].Coral [color= #009900;])

Dim Rect [color= #b1b100;]As [color= #000000; font-weight: bold;]New Rectangle[color= #009900;]( [color= #cc66cc;]5[color= #339933;], [color= #cc66cc;]5[color= #339933;], ClientSize[color= #339933;].Width [color= #339933;]- [color= #cc66cc;]10[color= #339933;], ClientSize[color= #339933;].Height [color= #339933;]- [color= #cc66cc;]10 [color= #009900;])

G[color= #339933;].FillRectangle[color= #009900;]( MySBrush[color= #339933;], Rect [color= #009900;])

[color= #990000;]End Using

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#4

آخ / بشــآر ..

آنآ أعتــــذر مآ وضحت المطلوب في سؤآلــي ..

الأكوآد اللي آدرجتهآ أعرفهآ ومآ كآن سؤآلـي عنهآ

كنت أريد كود لرسم مستطيل يرسمه المستــخدم ..

(مو مشكله يستفيد من الأكوآد غيري وبميزآن حسنــآتك يآرب .. )

وآنآ الحمد لله آتممت الكــود ونفــذ المطلوب :)

وآعتذر مرهـ آخرى ..

جزاك ربـي الجنه ..

//

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 15 أبريل 2009 في 16:20

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

مواضيع مشابهة