Label1的Caption颜色的问题。

hwchwc 2004-08-23 02:09:00

表AA的FONT_C字段（字符型）有一记录的值是Red,想让LABEL1上的文字的颜色为Red:
Label1->Font->Color=sjhjDataModule->IBQuery->FieldByName("FONT_C")->AsString;
这样写有错误？该如何写！但
Label1->Font->Color=Red;就可以。

...全文

101 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

arraden 2004-08-23

打赏
举报

回复

楼上说了

ccrun.com 2004-08-23

打赏
举报

回复

Label1->Font->Color = StringToColor(sjhjDataModule->IBQuery->FieldByName("FONT_C")->AsString);

全国计算机二级(VF)VF程序设计题.doc

考试试题里面至少含有90%以上，绝不骗你，嘿嘿，不信的话，你试试，我以诚待人！

VB调色板，HScroll1,RGB的应用实例，利用三个滑块（拖动条）来分别调整RGB三基色，本源码可学习一下滑块的使用、颜色的渲染等。当用户改变拖动条的时候，会改变对应事件处理程序，每一个事件程序分别代表了对RGB分量的调节，如下：　　Private Sub HScroll1_Change() 　　Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) 　　Label7.Caption = HScroll1.Value 　　End Sub 　　Private Sub HScroll2_Change() 　　Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) 　　Label8.Caption = HScroll1.Value 　　End Sub 　　Private Sub HScroll3_Change() 　　Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) 　　Label8.Caption = HScroll1.Value 　　End Sub 　　请下载本源码查看更多代码。

VB滚动字幕还带有拉幕效果

自己写的VB 标签控件的应用，对初学者很有用~~~多谢评论~~

13,871

社区成员

102,693

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章