在VB6中用API函数GetCursorPos可获得鼠标的当前位置。用Timer控件捕获鼠标位置变化来实现。以下代码可获得鼠标滚动事件的发生。稍加以改变能判断鼠标滚轮滚动的方向。
Option Explicit
Private Type PointAPI
X As Long
Y As Long
End Type
Dim MousePos As PointAPI
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As PointAPI) As Long
Dim OldX As Long
Dim OldY As Long
Dim NewX As Long
Dim NewY As Long
Dim UnitValue As Long
Dim UnitName As String
Dim FormatStr As String
Private X0 As Long
Private Y0 As Long
Const FormatStr1 = "000000。
00"
Const FormatStr2 = "0000。0000"
Private Sub Form_Load()
UnitValue = 1440
UnitName = "英寸"
FormatStr = FormatStr1
Timer1。
Enabled = True
GetCursorPos MousePos
OldX = MousePos。X * Screen。TwipsPerPixelX
OldY = MousePos。Y * Screen。
TwipsPerPixelY
End Sub
Private Sub Timer1_Timer()
GetCursorPos MousePos
NewX = MousePos。X * Screen。TwipsPerPixelX
NewY = MousePos。
Y * Screen。TwipsPerPixelY
X0 = NewX - OldX
Y0 = NewY - OldY
If X0 <> 0 Or Y0 <> 0 Then
Text1 = "鼠标滚动"
Text1。
BackColor = vbRed
Else
Text1 = "鼠标静止"
Text1。BackColor = vbGreen
End If
OldX = NewX
OldY = NewY
End Sub
。
答：用API函数GetCursorPos可以获得鼠标指针的当前位置。所以以下代码可以做到监测鼠标的滚动方向和滚动事件发生。本文参考万方数据电子出版社”出版的“趣味编...详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
