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

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

如何将星号组成的三角形显示在框架里面
前景色背景色一点击列表框里的按钮就变色 怎么编程?
展开
 我来答
报文露4840
2013-06-28 · TA获得超过428个赞
知道小有建树答主
回答量:503
采纳率:50%
帮助的人:419万
展开全部
'先建个图片框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 先全删掉

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式