关于VB把窗体缩小到系统拖盘的问题

来源:百度知道 编辑:UC知道 时间:2024/05/06 11:04:13
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Msg as Long
Msg = (X And &HFF) * &H100
Select Case Msg

Case 0 ' 鼠标移动
' 在此输入你的代码

Case &HF00 ' 鼠标左键被按下
' 在此输入你的代码

Case &H1E00 '
' 在此输入你的代码

Case &H2D00 ' 双击鼠标左键
' 在此输入你的代码

Case &H3C00 ' 鼠标右键被按下
' 在此输入你的代码

Case &H4B00 ' 鼠标右键弹起
' 在此输入你的代码

Case &H5A00 ' 双击鼠标右键
' 在此输入你的代码

End Select

这段程序里 Msg = (X And &HFF) * &H100这句是什么意思,请解释一下,不是很懂,好的话,我加分

X and &HFF意思是取X低位字节,如果x=&HA1B2,那么x and &HFF的结果就会是&HB2,同样,X*&H100效果是把低位提到高位上,比如X=&HB2,那么X*&H100就等于&HB200,这样说应该能理解的差不多了吧