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;就可以。

...全文

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

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

arraden 2004-08-23

打赏
举报

回复

楼上说了

ccrun.com 2004-08-23

打赏
举报

回复

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

Label1.Caption = Label3.Caption Label3.Caption = temp End Sub Private Sub Label3_Click() Dim temp As String temp = Label1.Caption Label1.Caption = Label2.Caption Label2.Caption = temp End Sub `...

答案：Private Sub Text1_Change() Label1.Caption = "您已输入：" & Text1.TextEnd SubPrivate Sub Form_Click() If Text1.Text = "" Then Label1.Caption = "请先输入您的姓名" Else Label1.Caption = "您已输入：...

VB调色板，HScroll1,RGB的应用实例，利用三个滑块（拖动条）来分别调整RGB三基色，本源码可学习一下滑块的使用、颜色的渲染等。当用户改变拖动条的时候，会改变对应事件处理程序，每一个事件程序分别代表了对RGB分量...

Label1.Text = caption.Substring(0, caption.Length - (captionWidth - xPosition) \ Label1.Font.Size) & " "c Else Timer1.Stop() ' 停止滚动 Dim height As Integer = Label1.Height ' 控件高度 Dim alpha ...

例如，可以设置`Label1.ForeColor`更改文本颜色，`Label1.Font.Size`调整字体大小，`Label1.BackStyle`控制背景是否透明。 4. **定位和布局**：通过调整控件的Left、Top、Width和Height属性，可以精确地控制标签的...

13,871

社区成员

102,694

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章