السلام عليكم ورحمة الله وبركاته ..... اخواني لو تكرمتم تعطوني مايقابل هذا الكود بالvb2008
private sub form ()
Dim halfx as single
Dim halfy as single
halfx = scale left + scale width/2
halfy = scale top + scale hieght /2
line ( scale left , halfy )- ( halfx,scale top)
end sub
السلام عليكم ورحمه الله وبركاته
اخي قم باضافة الاداة Line من ادوات الـ PowerPacks من ثم جرب الكود التالي
Dim halfx as single Dim halfy as single halfx = Me.Left + Me.Width/2 halfy = Me.Top + Me.Height /2 Line1.X1=Me.Left Line1.Y1=halfy Line1.X2=halfx Line1.Y2=Me.Top
او يمكن الرسم باستخدام الـ +GDI
.:: Wish to become better and better ::.