sytn.net
当前位置:首页 >> vB怎么用编程设置前景色 >>

vB怎么用编程设置前景色

把style属性设置为 graphic 然后就可以通过设置 backcolor 属性来改变颜色了.完毕.

Visual Basic编辑器是一个用于编写和编辑VBA 的功能强大的工具,它使用户得以扩展宏的功能和多用性,而非局限于通过简单的录制就可以完成的任务.要打

你好!设置前景色用print干嘛 直接用forecolor不就好了吗 仅代表个人观点,不喜勿喷,谢谢.

把按钮设置为图形模式只能改变按钮的颜色,而不是字体颜色.可以用其他控件来实现这个效果比如:只是文字的按钮可以用LABEL控件来代替(这个比标准按钮的资源占用还小);图片按钮使用IMAGE控件来代替(PICTURE的资源占用太大,不推荐);

Private Sub Timer1_Timer()Me.BackColor = IIf(Me.BackColor = vbYellow, vbRed, vbYellow)Me.ForeColor = IIf(Me.ForeColor = vbRed, vbYellow, vbRed)End Sub

Private Sub Form_click() Label1.FontSize = 30 Randomize Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) Label1.BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) End Sub

使用Rnd函数和QBColor 函数,生成0-15的随机整数,来改变制标签的前景色.Private Sub Form_Load() Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() Label1.ForeColor = QBColor(Int((16 * Rnd))) End Sub

在不同卡中填加不同的控件即可如:第一个卡中填加了command第二个添加了文本框text那么在运行时选择不同的选项卡.就会显示不同的控件的

组合框为为数组:combo1(0~2) 单选按纽为数组:option1(0),option1(1) Private Sub Combo1_Click(Index As Integer) r = CInt(Combo1(0).Text) g = CInt(Combo1(1).Text) b = CInt(Combo1(2).Text) If Option1(0).Value Then Text1.ForeColor = RGB(r,

'先建个图片框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 LoopEnd Sub

xmlt.net | lpfk.net | dzrs.net | 2639.net | mqpf.net | 网站首页 | 网站地图
All rights reserved Powered by www.sytn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com