VB怎么给字符加下划线拜托各位了 3Q
发布网友
发布时间：2022-03-27 09:47
共1个回答
热心网友
时间：2022-03-27 11:16
Option Explicit Private m_bUnderLine As Boolean Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If m_bUnderLine Then m_bUnderLine = False Label1.FontUnderline = False End If End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.FontUnderline = True m_bUnderLine = True End Sub
