VB可通过FontBold、FontItalic、FontStrikethru、FontUnderline 属性等。 返回或设置字体样式为粗体、斜体、删除线或下划线。 通过Font 属性来设置字体。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.FontUnderline = False Label1.FontSize = 9 Label1.Font = "宋体" Label1.FontSize = 15 Label1.FontUnderline = True Label1.Font = "黑体"