VB6.0如何设置Font属性
Label1初始字体为宋体没有下划线当鼠标经过Label1时,Label1的字体变为黑体,加下划线。鼠标离开时,又变回来涉及到Font属性,不知道怎么弄...
Label1 初始字体为宋体 没有下划线 当鼠标经过Label1时,Label1的字体变为黑体,加下划线。鼠标离开时,又变回来 涉及到Font属性,不知道怎么弄
展开
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询