22-09-13, 11:49 PM
أعلم أن كود رسم نقطة هو مثلآ
[b]
[b]كما أعلم أن هناك أداة تسمى shape[/b][/b]
[b]ويمكن التحكم فى شكلها ولونها بحيث تكون عبارة عن دائرة صغيرة(نقطة) بالكود التالى
[/b]
[b]ولكنى أريد كتابة كود معين عند ضغط المستخدم على هذه النقطة أو هذا ال shape
تمامآ كما نكتب كود عند ضغط المستخدم على أى text أو label
[/b]
كود :
PSet(30,20), vbRed
Form1.DrawWidth = 5
[b]كما أعلم أن هناك أداة تسمى shape[/b][/b]
[b]ويمكن التحكم فى شكلها ولونها بحيث تكون عبارة عن دائرة صغيرة(نقطة) بالكود التالى
[/b]
كود :
Shape1.Shape = 3
Shape1.Height = 5: Shape1.Width = 5
Shape1.BorderColor = vbRed
[b]ولكنى أريد كتابة كود معين عند ضغط المستخدم على هذه النقطة أو هذا ال shape
تمامآ كما نكتب كود عند ضغط المستخدم على أى text أو label
[/b]