1楼：网海1书生
private sub form_load()***bo1.clear
***bo1.additem "红色"
***bo1.additem "绿色"
***bo1.additem "蓝色"
end sub
private sub ***bo1_click()select case ***bo1.listindexcase 0
text1.forecolor = vbredcase 1
text1.forecolor = vbgreencase 2
text1.forecolor = vbblueend select
end sub
以上**涉及的控件：***bo1、text1
急！！！vb编程:编写利用组合框对文字的字体和大小进行设置的程序
2楼：匿名用户
private sub ***bo1_click()text1.fontname = ***bo1.textend sub
private sub ***bo2_click()text1.fontsize = val(***bo2.text)end sub
private sub form_load()***bo1.additem "宋体"
***bo1.additem "黑体"
***bo1.additem "楷体_gb2312"
***bo1.text = "宋体"
for i = 12 to 72 step 2***bo2.additem str(i)next i
***bo2.text = "12"
end sub
vb组合框用怎么换字体颜色的**用if语句
3楼：匿名用户
例如：text1控件
if aa=bb then
text1.forecolor=vbredtext1.forecolor = &hff& ' 这两种都是将text1字体颜色
显示红色
end if
*.forecolor 这就是字体颜色
星号是控件名
vb怎么用**设置字体字号还有字体颜色
4楼：说啊———喵
在vb6中可以通过设置对象的font属性设置字体字号，forecolor属性设置字体颜色。
例如，下面**实现设置文本框中的字体为”隶书“字号28磅，字体颜色为红色
private sub ***mand1_click()text1.font.size = 28
text1.font.name = "隶书"
text1.forecolor = vbredend sub
5楼：打死不过圣诞节
字号：对象.fontsize=9
颜色：对象.forecolor=vbred
vb中怎样利用复选框改变一个标签的背景颜色（用一个命令按钮执行改变颜色命令） 最好写出**
6楼：匿名用户
backcolor（背景色）, forecolor（前景色） 属性：
指定用于显示对象中文本和图形的背景色或前景色。
应用于复选框，列，组合框，命令按钮，命令组，容器对象，控制对象，编辑框，表单，**，标头，标签，
选项按钮，选项组，页面，_screen，形状，微调，文本框，工具栏附注
backcolor 属性不适用于命令按钮控制，forecolor 属性不适用于命令组控制、选项组控制或形状控制。语法object.backcolor[ = ncolor]
object.forecolor[ = ncolor]设置ncolor指定单个颜色值。下表列出常用的颜色值：颜色 rgb 值 ncolor 值
白色 255, 255, 255 16777215
黑色 0, 0, 0 0
灰色 192, 192, 192 12632256
暗灰色 128, 128, 128 8421504
红色 255, 0, 0 255
暗红色 128, 0, 0 128
黄色 255, 255, 0 65535
暗黄色 128, 128, 0 32896
绿色 0, 255, 0 65280
暗绿色 0, 128, 0 32768
青色 0, 255, 255 16776960
暗青色 0, 128, 128 8421376
蓝色 0, 0, 255 16711680
暗蓝色 0, 0, 128 8388608
洋红色 255, 0 ,255 16711935
暗洋红色128, 0, 128 8388736说明
设计和运行时可用。
visual foxpro 采用 windows 红绿蓝 (rgb) 配色方案，每一个红、绿、蓝组件由一个 0 到 255 之间的值代表。使用 rgb( ) 函数将三个组件颜色转换为一个复合的 ncolor。
若 backstyle 属性设定为 0（透明），则忽略 backcolor 属性。
7楼：匿名用户
private sub ***mand1_click()if option1.value = true then label1.backcolor = rgb(255, 0, 0)
if option2.value = true then label1.backcolor = rgb(0, 255, 0)
if option3.value = true then label1.backcolor = rgb(0, 0, 255)
end sub
8楼：匿名用户
if check1.value = 1 thenlabel1.backcolor = rgb(255, 0, 0) ‘如果选中，背景红色
else
label1.backcolor = rgb(255, 255, 255) '如果没选中，背景白色
end if
vb通过组合框内容改变标签字体，注意是标签请用标签的属性方法
9楼：匿名用户
privatesub***bo1_click()label1.fontname=***bo1.textendsub
privatesubform_load()me.autoredraw=true
***bo1.additem"宋体
"***bo1.additem"黑体"
***bo1.additem"隶书"
***bo1.additem"微软雅黑"
***bo1.additem"幼圆"
***bo1.additem"新宋体"
***bo1.additem"楷体_gb2312"
***bo1.additem"方正姚体"
***bo1.additem"方正舒体"
endsub
vb中“如果选择组合框中的这个选择”用**怎么写？
10楼：匿名用户
可以写if check1.value=ture then ....................
怎么在vb组合框里添加多个可选内容？？
11楼：匿名用户
窗体加载时运行：
sub loadcmb()
***bobox1.additem "长跑"
***bobox1.additem "游泳"
***bobox1.additem "跳远"
．．．．．．．．．．．．．．．
end sub
如果是在控件属性中在list的值，增加一个按一下回车增加第二个，再修改itemdata的顺序即可
12楼：home伤心离别
通过窗体载入事件或list属性
13楼：于宝苑碧蓉
'问题1:
vb组合框添加项目
***bo1.additem
256'问题2:
vb6.0
listbox
不能输入内容吧
vb颜色选择器的问题！
14楼：匿名用户
vb的***mondialog控件的标准**没有问题。
应该是你实际**有问题。
标准**如下：
private sub ***mand1_click()' 设置“取消”为true
***mondialog1.cancelerror = trueon error goto errhandler'设置 flags 属性
***mondialog1.flags = cdlccrgbinit' 显示“颜色”对话框
***mondialog1.showcolor' 设置窗体的背景颜色为选定的颜色
form1.backcolor = ***mondialog1.color
exit sub
errhandler:
' 用户按了“取消”按钮
end sub
vb组合框和列表框的使用,VB中列表框与组合框的区别？
1楼 匿名用户 试一下 private sub bo1 click list1 additem bo1 list bo1 listindex bo1 removeitem bo1 listindex end sub private sub form load dim i as integer for...
关于在vb中变化字体大小和颜色的问题
1楼 to 719158314 人家用的是组合框 是可选的，难道每次都要在属性里改在生成文件吗？ 飞天飞舞 你的问题是什么呀 不清楚耶 如果这是的全部的 ，那么你的改变字体什么的是不能实现的，因为没有change事件 如果这是你的一段 ，你有 bo3 change ，那么我就不知道你的问题是什么了，...