Private Sub Command1_Click()
For i = 2 To 10
Picture1.Line (i * 10 + 19.5, (10 - i) * 5 + 9)-(((i - 1) * 10 + 19.5), ((11 - i) * 5 + 9))
Next i
End Sub
Private Sub Form_Load()
Picture1.Line (20, 60)-(120, 60)
Picture1.Line (20, 60)-(20, 3)
For i = 1 To 10
Picture1.Line (i * 10 + 20, 60)-(i * 10 + 20, 59)
Picture1.CurrentX = (i - 1) * 10 + 18: Picture1.CurrentY = 62
Picture1.Print i - 1
Picture1.Line (20, (i - 1) * 5 + 10)-(21, (i - 1) * 5 + 10)
Picture1.CurrentX = 12: Picture1.CurrentY = (10 - i) * 5 + 8
Picture1.Print i * 50 + 50
Picture1.CurrentX = i * 10 + 19.5: Picture1.CurrentY = (10 - i) * 5 + 7.5
Picture1.Print "·"
Next i
End Sub
复制过去就可以用
建一个 Picture1 一个 command 即可 Picture1 AutoRedraw 和 AutoSize 设置成 true 即可
温馨提示:内容为网友见解,仅供参考