Question

vb line 画不了直线问题？

Private Sub Picture1_Click()
Dim n As Integer
n = InputBox("输入n的值")
Picture1.Print Tab(5); "递归 n=" & Str(n) & " 时的图形"
Picture1.Scale (0, 600)-(600, 0)
Call triangle(30, 320, 570, 30, 570, n)
End Sub

Public Sub triangle(x1!, x2!, x3!, y1!, y2!, k%)
Dim u1!, u2!, v1!, v2!
If k > 1 Then
u1 = (x1 + x2) / 2
u2 = (x2 + x3) / 2
v1 = (y1 + y2) / 2
Call triangle(u1, x2, u2, v1, y2, k - 1)
Call triangle(x1, u1, x2, y1, v1, k - 1)
Call triangle(x2, u2, x3, y1, v1, k - 1)
Else
Picture.Line (x1, y1)-(x3, y1) '对象不支持的属性或方法，想在图片框内画，怎么修改？
Picture.Line (x1, y1)-(x2, y2)
Picture.Line (x2, y2)-(x3, y1)
End If
End Sub

Answer 1

Picture.Line (x1, y1)-(x2, y2)改成Picture1.Line (x1, y1)-(x2, y2)

Answer 2

是Picture1，而不是Picture