一个Print打印的小问题

[MeBoss]

要求2个Button(1和2)


点击Button1
打印出实心五角星：
★
★★★
　　　　　★★★★★
　　　　★★★★★★★
　　　★★★★★★★★★
在点击Button2打印出空心五角星：
★☆☆☆☆☆☆☆☆☆
★★★☆☆☆☆☆☆☆
　　　　　★★★★★☆☆☆☆☆
　　　　★★★★★★★☆☆☆
　　　★★★★★★★★★☆
我不知道用神马方法可以指定打印行，也不清楚有没有。
所以只写得出下面这个方法来，谁知道怎么知道打印的行呢？？谢谢
Option Explicit
Dim i As Integer
Const N As Integer = 5
Private Sub cmdShow_Click()

For i = 1 To N

Print Tab((6 - i) * 2); String((i * 2) - 1, "★");

Print Spc(0); String((N - i) * 2 + 1, "☆");

Next
End Sub

[tztz520]

CurrentX , CurrentY 可以指定的吧

[booksoon]

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To N
    Print Tab((6 - i) * 2); String((i * 2) - 1, "★");
    'Print Spc(0); String((N - i) * 2 + 1, "☆");
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer
Form1.Cls  '加上这句
For i = 1 To N
    Print Tab((6 - i) * 2); String((i * 2) - 1, "★");
    Print Spc(0); String((N - i) * 2 + 1, "☆");
Next i
End Sub

[MeBoss]

呵呵对 CurrentX , CurrentY 方法

[zdingyun]

Option Explicit
    Dim i As Integer
Private Sub Command1_Click()
        Me.ForeColor = vbRed
        Me.CurrentX = 20
        Me.CurrentY = 50
        Print String(1, "★")
    For i = 1 To 3
        Me.CurrentY = 250
        Me.CurrentX = 20 + i * 200
        Print String(1, "★")
    Next
    For i = 1 To 5
        Me.CurrentY = 450
        Me.CurrentX = 420 + i * 200
        Print String(1, "★")
    Next
    For i = 1 To 7
        Me.CurrentY = 650
        Me.CurrentX = 220 + i * 200
        Print String(1, "★")
    Next
    For i = 1 To 9
        Me.CurrentY = 850
        Me.CurrentX = 20 + i * 200
        Print String(1, "★")
    Next
End Sub

Private Sub Command2_Click()
    For i = 1 To 9
        Me.CurrentY = 50
        Me.CurrentX = 20 + i * 200
        Print String(1, "☆")
    Next
    For i = 1 To 7
        Me.CurrentY = 250
        Me.CurrentX = 620 + i * 200
        Print String(1, "☆")
    Next
    For i = 1 To 5
        Me.CurrentY = 450
        Me.CurrentX = 1420 + i * 200
        Print String(1, "☆")
    Next
    For i = 1 To 3
        Me.CurrentY = 650
        Me.CurrentX = 1620 + i * 200
        Print String(1, "☆")
    Next
    Me.CurrentY = 850
    Me.CurrentX = 2020
    Print String(1, "☆")
End Sub

[MeBoss]

[Quote=引用 4 楼 zdingyun 的回复:]
VB code
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
Me.ForeColor = vbRed
Me.CurrentX = 20
Me.CurrentY = 50
Print String(1, "★")
For i ……
[/Quote]

Sorry 我都结贴了 才发现这才是真正精华 学习了非常感谢