以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何 更改label 字体样式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74139)
--  作者：feifei998
--  发布时间：2015/9/3 17:54:00
--  如何 更改label 字体样式
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时.foxdb

[此贴子已经被作者于2015/9/10 21:38:55编辑过]
--  作者：y2287958
--  发布时间：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
--  发布时间：2015/9/3 19:18:00
--  
 字体颜色呢？能在一个弹出窗口内一起解决不！
--  作者：Hyphen
--  发布时间：2015/9/4 8:47:00
--  
Label1.ForeColor = Color.Red

自己设计一个窗口实现字体的更改
--  作者：大红袍
--  发布时间：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
--  作者：游
--  发布时间：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编辑过]