Question

vb 怎样用line函数画几个排列的矩形?

有一个矩形
要按照横排几个,纵排几个,这样排列.
比如说按照下面的排法,排列,怎么弄?
长1850 宽1000

只要告诉我A排法怎么排的就行了,其它的我再慢慢研究.谢谢高手
d

Answer 1

'不清楚你的问题在哪里。朋友。给个参考。要求设计时把窗体变成正方形
Private Sub Form_Load()
Show
Scale (0, 0)-(5000, 5000)
Line (100, 100)-(1950, 1100), , B
Line -Step(-1850, 1000), , B
Line -Step(1850, 1000), , B
Line -Step(1850, -1000), , B
Line -Step(-1850, -1000), , B
Line -Step(1850, -1000), , B
Line -Step(1000, 1500), , B
Line -Step(-1000, 1500), , B
End Sub