Dim i As Integer
'画线完成对图形的分割
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 1 To 7 '12
Form4.Line (120, 120 * i)-(5000, 120 * i) '40 '600
Next i
For i = 1 To 9 '16
Form4.Line (120 * i, 120)-(120 * i, 5000) '40 '440
Next i
'画线完成对图形的分割
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For i = 1 To 7 '12
Form4.Line (120, 120 * i)-(5000, 120 * i) '40 '600
Next i
For i = 1 To 9 '16
Form4.Line (120 * i, 120)-(120 * i, 5000) '40 '440
Next i
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货