简单问题,看者有分:怎么在form窗体上打印输出????

Question

想在form 窗体上打印输出"*"字符.
格式为:
             *
            ***
           *****
          *******
         *********
怎么写代码??

Answer 1

呵呵
你自己找找规律，用循环的方法写出来，锻炼一下
前面的space(20)纯粹为了美观的Private Sub Command3_Click()
    Me.Print Space(20) & Space(4) & "*" & Space(4)
    Me.Print Space(20) & Space(3) & "***" & Space(3)
    Me.Print Space(20) & Space(2) & "*****" & Space(2)
    Me.Print Space(20) & Space(1) & "*******" & Space(1)
    Me.Print Space(20) & Space(0) & "*********" & Space(0)
End Sub

Answer 2

to: SoHo_Andy(冰) 
对啊,我就是想用循环方法打印出来,代码怎么写呢??
先表示万分谢谢!!!!

Answer 3

Private Sub Command1_Click()
Dim k As Integer
For k = 1 To 5
  Me.Print Space((9 - (2 * k - 1)) \ 2) & Replace(Space(2 * k - 1), Space(1), "*")
Next k
End Sub

Answer 4

輸出到form中之後,如果覺得滿單真接寫一個printform便打印當前窗口.