www问答网
所有问题
当前搜索:
vb滚动条改变窗体背景颜色代码
vb窗体背景色
渐变问题
答:
用
滚动条
的滑动得到3个0-255的数值,用RGB(得到的三个数值)
改变窗体
的
颜色
求
VB
高手!解决一道题!谢谢!越快越好!今晚前!
答:
Private Sub Form_Load()HScroll1.Min = 0HScroll2.Min = 0HScroll3.Min = 0HScroll1.Max = 255HScroll2.Max = 255HScroll3.Max = 255Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll1_Change()Form1.BackColor = RGB(HScroll1...
VB
问题:在
窗体
中有三个
滚动条
(名称分别为HScroll1,HScroll2,HScroll3...
答:
Private Sub Command1_Click()End End Sub Private Sub Form_Load()Label1.Caption = "红"Label2.Caption = "绿"Label3.Caption = "蓝"Label4.Caption = ""HScroll1.Min = 0 HScroll1.Max = 255 HScroll2.Min = 0 HScroll2.Max = 255 HScroll3.Min = 0 HScroll3.Max = 255 Ran...
请教一个
vb
编程问题,如何用
滚动条
scroll的value值
改变
line函数的rgb...
答:
这个是这样实现的:举一个
滚动条改变
一个数据的例子,那么你的问题无非就是3个滚动条改变三个数据而已!用一个变量,比如:R,用垂直滚动条,VScroll1 设置滚动条的最大值为255,最小值为0,Value为0 设置变量R=0 然后,编写
代码
:Private Sub VScroll1_Change()R = VScroll1.Value End Sub ...
关于
vb 滚动条改变
字体
颜色
。 现在主要问题是,这个颜色不是我
改变滚动
...
答:
'把
代码
写在 Private Sub HScroll1_Change()'下面 '或者用Call Text1_Change
VB
里面的字体
颜色
,灰色是什么?
答:
VB
里面的字体
颜色
,灰色是QBColor(8).QBColor 函数 返回一个 Long,用来表示所对应颜色值的 RGB 颜色码。下列
代码
是设置文本框内字体的颜色为灰色:Private Sub Form_Load() Text1.ForeColor = QBColor(8)End Sub
vb
怎么用
滚动条改变
字体
颜色
答:
放上一个Label1控件和一个HScroll1控件组(3个控件),再拷贝下列代码到
代码窗口
。Private Sub Form_Load()Dim i For i = 0 To 2 HScroll1(i).Min = 0 HScroll1(i).Max = 255 HScroll1(i).Value = 0 Next End Sub Private Sub HScroll1_Change(Index As Integer)Label1.BackColor =...
vb
文字
变化
的
颜色
答:
蓝色
vb
Magenta 0xFF00FF 紫红色 vbCyan 0xFFFF00 青色 vbWhite 0xFFFFFF 白色 常数 值 描述 vbScrollBars 0x80000000
滚动条颜色
vbDesktop 0x80000001 桌面颜色 vbActiveTitleBar 0x80000002 活动
窗口的
标题栏颜色 vbInactiveTitleBar 0x80000003 非活动窗口的标题栏颜色 vbMenuBar 0x80000004 菜单
背景
...
VB
常用属性
答:
(1) Appearance属性 该属性有两个可选值:0- Flat表示在
窗体
运行时不以3D方式显示,1-Flat表示在窗体运行时以3D方式显示。(2) BackColor和ForeColor属性 设置或返回窗体前景颜色和
背景颜色
。
代码
设置如下:Form1. BackColor=
vb
color Form1. ForeColor=vbcolor (3)Bordertyle属性 该属性是设置窗体的...
Vb
考试 在线等 编写
滚动条
的CHANGE
代码
答:
Private Sub Form_Load()HScroll1.Value = Text1.FontSize HScroll1.Min = 1 HScroll1.Max = 100 HScroll1.SmallChange = 1 HScroll1.LargeChange = 8 End Sub Private Sub HScroll1_Change()Text1.FontSize = HScroll1.Value End Sub ...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb窗体设计
vb6美化窗体
vb组合框怎么添加内容
vb滚动条改变窗体背景颜色代码