السلام عليكم
كيف حالكم يا اعضاء؟ إن شاء الله بخير انا معتمد على الله وبعدين على همتكم يا شباب
انا عندي سؤال في الفيجوال بيسك وهو: كيف ممكن ارسم شكل مغلق من 4 نقاط ، يعني انا ادخل 4 ازواج من الارقام كل زوج يحتوي على قيمة للمحور السيني وقيمة للمحور الصادي (شرط ان يتم رسم الخط بالبكسل)، الرجاء مساعدتي في الاجابة في اسرع وقت ممكن.
انا في انتظاركم
السلام عليكم
أخي إليك الحل :
افتح مشروع جديد
ضع أداة 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
و شكرا
السلام عليكم اخ golden man شكرا على ردك في سؤالي وهو كيف ارسم جسم مغلق من 4 نقاط ولكن عندي بعض الاسئلة وهي:
1- هل ادخل النقاط التي تشكل رؤوس الجسم تكون من خلال الماوس بالضغط داخل مربع الرسم ام من خلال ادخال قيم من لوحة المفاتيح؟
انا سؤالي كيف ادخل القيم من خلال لوحة المفاتيح.
انا مبتدئة جدا في الفجيوال بيسك لذا ارجو ان توضح لي بمثال حتى يسهل الفهم.
2- هل يمكنك ان تشرح لي الكود ودواله؟؟
هناك ملحق يوضح المطلوب
تحياتي
أشكرك أخي الفاضل
اشكرك اخ عمرو عماد على الاجابة واسف على التاخير
وكل عام والجميع بخير
هذا الموضوع مغلق.