VB6.0如何设置Font属性

Label1初始字体为宋体没有下划线当鼠标经过Label1时,Label1的字体变为黑体,加下划线。鼠标离开时,又变回来涉及到Font属性,不知道怎么弄... Label1 初始字体为宋体 没有下划线 当鼠标经过Label1时,Label1的字体变为黑体,加下划线。鼠标离开时,又变回来 涉及到Font属性,不知道怎么弄 展开
 我来答
zdingyun
2015-10-03 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48168
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

VB6.0可通过FontBold、FontItalic、FontStrikethru、FontUnderline 属性等返回或设置字体样式为粗体、斜体、删除线或下划线。

通过Font 属性来设置字体

实现代码如下:

Private Sub Form_Load()
    Label1.FontSize = 16
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = False
    Label1.Font = "宋体"
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = True
    Label1.Font = "黑体"
End Sub
匿名用户
2013-07-21
展开全部
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = False
Label1.FontSize = 9
Label1.Font = "宋体"
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontSize = 15
Label1.FontUnderline = True
Label1.Font = "黑体"
End Sub
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式