如何更改label 字体样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何更改label 字体样式

共有2977人关注过本帖树形打印复制链接主题：如何更改label 字体样式

feifei998

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：40 积分：498 威望：0 精华：0 注册：2015/6/30 10:35:00

如何更改label 字体样式 发帖心情

Post By：2015/9/3 17:54:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:临时.foxdb

[此贴子已经被作者于2015/9/10 21:38:55编辑过]

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2015/9/3 18:31:00 [只看该作者]

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")

Dim lg As New Windows.forms.FontDialog

If lg.showdialog = DialogResult.OK Then

Label1.Font = lg.font

End If

feifei998

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：40 积分：498 威望：0 精华：0 注册：2015/6/30 10:35:00

Post By：2015/9/3 19:18:00 [只看该作者]

字体颜色呢？能在一个弹出窗口内一起解决不！

Hyphen

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/9/4 8:47:00 [只看该作者]

Label1.ForeColor = Color.Red

自己设计一个窗口实现字体的更改

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/4 9:12:00 [只看该作者]

以下是引用feifei998在2015/9/3 19:18:00的发言：
字体颜色呢？能在一个弹出窗口内一起解决不！

不能。

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
Dim font As New Windows.forms.FontDialog
If font.showdialog = DialogResult.OK Then
Label1.Font = font.font
End If

Dim color As New Windows.forms.ColorDialog
If color.showdialog = DialogResult.OK Then
Label1.ForeColor = color.Color
End If

游

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00

Post By：2015/9/4 10:33:00 [只看该作者]

如果不嫌颜色选择范围小的话，可以打开字体对话框的颜色选择

Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
Dim font As New Windows.forms.FontDialog

font.ShowColor = True
If font.showdialog = DialogResult.OK Then
Label1.Font = font.font

Label1.ForeColor = font.Color
End If

[此贴子已经被作者于2015/9/4 10:34:00编辑过]

下一主题 >> << 上一主题

主题：如何 更改label 字体样式

主题：如何更改label 字体样式