Screen.TwipsPerPixelX是什么意思
Private Const LEFT_BUTTON As Byte = 1
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim blnLeftDown As Boolean
blnLeftDown = (Button And LEFT_BUTTON) > 0
Text1.Text = CLng(blnLeftDown)
End Sub
上面代码小生对blnLeftDown = (Button And LEFT_BUTTON) > 0不理解,忘高手指点