سوال در مورد متد Line

[shedayat]

سلام. مي خواستم بدونم با متد Line چطور مي شه دستوري نوشت تا اينو چاپ كنه. راستش اسمشو فراموش كردم و مجبور شدم عكشو بذارم. اگه يه كم دست و پا شكسته هست عذر مي خوام.(بالاخره پروژه دانشگاهي و هزار درد سر)

سوال دوم اينه كه چطور مي شه با متد لاين يك خط كش چاپ كرد. ممنون

[arashrj]

سلام
این کد برای سوال اول :

کد:

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

موفق باشی

[shedayat]

سلام بابت جوابت دستت درد نكنه واقعا عالي بود فقط اگه دومي با عدد باشه و خط هاي اصلي (سانتيمتر) يه كم بزرگتر از خط هاي فرعي (ميليمتر) باشه ممنون مي شم. راستي اگه در مورد مقادير متد لاين توضيح بدي مثلا اينكه كار عدد اول چيست و ... توضيح بدي ممنون مي شم. باز هم مي گم دستت درد نكنه. راستي داشت يادم مي رفت اگه امكان داره هر دو بر حسب سانتيمتر باشه.(Scale Mode=7). ممنون