سلام. مي خواستم بدونم با متد Line چطور مي شه دستوري نوشت تا اينو چاپ كنه. راستش اسمشو فراموش كردم و مجبور شدم عكشو بذارم. اگه يه كم دست و پا شكسته هست عذر مي خوام.(بالاخره پروژه دانشگاهي و هزار درد سر)
![[تصویر: iqy2h1.jpg]](http://i44.tinypic.com/iqy2h1.jpg)
سوال دوم اينه كه چطور مي شه با متد لاين يك خط كش چاپ كرد. ممنون
سلام
این کد برای سوال اول :
کد:
Me.AutoRedraw = True
Me.DrawWidth = 2
Line (3000, 300)-(3000, 4800)
Line (1000, 2500)-(5000, 2500)
Me.DrawWidth = 1
For RJ = 500 To 2500 Step 200
Line (3000, RJ)-(3000 - RJ, 2500)
Next
For RJ = 500 To 2500 Step 200
Line (3000, RJ)-(3000 + RJ, 2500)
Next
For RJ = 500 To 2500 Step 200
Line (3000, 5000 - RJ)-(3000 + RJ, 2500)
Next
For RJ = 500 To 2500 Step 200
Line (3000, 5000 - RJ)-(3000 - RJ, 2500)
Next
در مورد سوال دوم اگه منظورت رو درست متوجه شده باشم :
کد:
Me.AutoRedraw = True
Me.DrawWidth = 2
Line (100, 100)-(2100, 500), , B
Me.DrawWidth = 1
For RJ = 100 To 2100 Step 100
Line (RJ, 400)-(RJ, 500)
Next
موفق باشی
سلام بابت جوابت دستت درد نكنه واقعا عالي بود فقط اگه دومي با عدد باشه و خط هاي اصلي (سانتيمتر) يه كم بزرگتر از خط هاي فرعي (ميليمتر) باشه ممنون مي شم. راستي اگه در مورد مقادير متد لاين توضيح بدي مثلا اينكه كار عدد اول چيست و ... توضيح بدي ممنون مي شم. باز هم مي گم دستت درد نكنه. راستي داشت يادم مي رفت اگه امكان داره هر دو بر حسب سانتيمتر باشه.(Scale Mode=7). ممنون