Question

VB 打印星号组成的三角形 设置前景色背景色

打印由星号组成的三角形。两个列表框，List1用来设置前景色，list2设置背景色。单击按钮“打印”在picture1中显示星号三角形，单击按钮“返回”回到图1.

如何将星号组成的三角形显示在框架里面
前景色背景色一点击列表框里的按钮就变色 怎么编程？

Answer 1

'先建个图片框Picture1 然后把下面的程序替换你原来的Command1_click()即可
Private Sub Command1_Click()
    Picture1.Cls
    r = 1
    Do While r <= 5
    c = 10 - r
    s = 1
    Do While s <= 2 * r - 1
        Picture1.Print Tab(s + c); "*";
    s = s + 1
    Loop
    r = r + 1
    Loop
End Sub

追问

那前景色 背景色 怎么设置？

追答

Private Sub Form_Load()
    List1.AddItem "红色"
    List1.AddItem "绿色"
    List1.AddItem "蓝色"
    List1.AddItem "黄色"
    List2.AddItem "红色"
    List2.AddItem "绿色"
    List2.AddItem "蓝色"
    List2.AddItem "黄色"
End Sub
Private Sub List1_Click()
    Select Case List1.Text
        Case "红色"
            Picture1.ForeColor = vbRed
        Case "绿色"
            Picture1.ForeColor = vbGreen
        Case "蓝色"
            Picture1.ForeColor = vbBlue
        Case "黄色"
            Picture1.ForeColor = vbYellow
    End Select
    Command1_Click
End Sub
Private Sub List2_Click()
    Select Case List2.Text
        Case "红色"
            Picture1.BackColor = vbRed
        Case "绿色"
            Picture1.BackColor = vbGreen
        Case "蓝色"
            Picture1.BackColor = vbBlue
        Case "黄色"
            Picture1.BackColor = vbYellow
    End Select
    Command1_Click
End Sub

要是前景色 背景色 也要设置 我看你图片上的代码 是不对的 你把这个代码页贴进去 再试试

把你的那个什么 红色_click 和 list1_click 先全删掉