السلام عليكم
إخواني كيف يمكن رسم متوازي أضلاع ملون من الداخل بدلالة إحداثيات رؤوسه
لأن جميع أوامر الرسم في الفيجوال بيسك خاصة بالأشكال ذات الزوايا القائمة
و إنني استطعت رسم متوازي أضلاع برسم مستقيمات متوازية و لكنه كان فارغ من الداخل فما أريده أن يكون ملون من الداخل بلون أحدده أنا
و شكرا لكم
يمكنك تكرار رسم احد المستقيمات مع تحريكه (من اليمين الى اليسار مثلا)
Moore’s Law – “Number of transistors in chips doubles every 18 months”. – Every 10 years, processors are 100 times more powerful.
Gilder’s Law – “Bandwidth grows at least three times faster than computer power”. – Assuming bandwidth doubles every 12 months; every 10 years, it is 1000 times better.
السلام عليكم
شكرا لك أخي على هذه الفكرة و لكنها تأخذ وقت طويل و لقد أجابني أحد الأساتذة في منتدى عربي آخر و أعطاني الجواب الشافي
الحل هو كالتالي:
افتح مشروع جديد
ضع أداة picture
ضع الكود التالي :
Option Explicit
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function PolyPolygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long) As Long
Private Sub Form_Load()
Const NUM_POLYGONS As Integer = 1
Dim pts(1 To 4) As POINTAPI
Dim counts(1 To NUM_POLYGONS) As Long
Dim i As Integer
' parallelogram.
'Coord 1st point
pts(1).x = 50
pts(1).y = 80
'coord 2nd point
pts(2).x = 10
pts(2).y = 140
'coord 3rd point
pts(3).x = 160
pts(3).y = 140
'coord 4th point
pts(4).x = 200
pts(4).y = 80
counts(1) = 4 ' 4 points in the parallelogram.
picture1.AutoRedraw = True
picture1.FillStyle = vbFSSolid
picture1.FillColor = vbGreen
picture1.ForeColor = vbBlue
picture1.DrawWidth = 2
PolyPolygon picture1.hdc, pts(1), _
counts(1), NUM_POLYGONS
End Sub
و شكرا
فكرة حسنة ...
Moore’s Law – “Number of transistors in chips doubles every 18 months”. – Every 10 years, processors are 100 times more powerful.
Gilder’s Law – “Bandwidth grows at least three times faster than computer power”. – Assuming bandwidth doubles every 12 months; every 10 years, it is 1000 times better.
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…