DX9鼠标检测-------VB6编程学习DX9游戏编程DirectX9编程2D小游戏源码冷风引擎CoolWind2D游戏引擎（16）

DX9鼠标检测

新建一个Form1，输入如下代码：

Private Sub Form_Load()

'新手注意：游戏编程中，
'通常将窗体的 BorderStyle 设置为“Fixed single”即不允许改变窗体大小
'通常将窗体的 MinButton 设置为“True”即允许最小化
'通常将窗体的 MaxButton 设置为“False”即禁止最大化

  '初始化引擎并设置引擎初始化窗体和引擎分辨率，但最好是电脑常用的分辨率比如 640,480 、 800,600 、 1024,768 、 1366,768
CWVBDX9Initialization Me, 800, 600, CW_Windowed
  '初始化引擎（目标窗体，横向分辨率，纵向分辨率，窗口模式/全屏模式）

Dim FontDemo As CWFont      '定义CoolWind引擎字体变量

    CWLoadFont FontDemo, "SimSun", 32, CWF_Normal, False  '载入要显示的字体

    Do While CWGameRun = True         '进入游戏循环
    
    If CWD3DDevice9.TestCooperativeLevel = 0 And Me.WindowState <> 1 Then  '检测是否可以渲染（设备正常并且窗体未最小化时渲染）
    CWBeginScene    '准备好绘制场景
        CWPaintPicBegin
        
         CWPrintFont FontDemo, CWMouse.X & " " & CWMouse.Y, 0, 0, 800, 60, CWCyan, CWF_LeftAl   '显示鼠标坐标
         
         If CWMouse.LeftKey.PDown Then          '检测左键按下状态
         CWPrintFont FontDemo, "鼠标左键处于按下状态", 0, 100, 800, 60, CWRed, CWF_LeftAl
         End If
         
         If CWMouse.RightKey.PDownMoment Then   '检测右键按下瞬间
         CWPrintFont FontDemo, "鼠标右键按下的瞬间", 0, 200, 800, 60, CWGreen, CWF_LeftAl
         End If
         
         If CWMouse.MidKey.PUPMoment Then   '检测中键抬起瞬间
         CWPrintFont FontDemo, "鼠标中键抬起的瞬间", 0, 300, 800, 60, CWBlue, CWF_LeftAl
         End If
         
         If CWMouse.BackKey.PDown Then   '检测后退键按下状态
         CWPrintFont FontDemo, "鼠标后退键按下的状态", 0, 400, 800, 60, CWGreen, CWF_LeftAl
         End If
         
         If CWMouse.ForwardKey.PUP Then   '检测前进键抬起状态
         CWPrintFont FontDemo, "鼠标前进键抬起的状态", 0, 500, 800, 60, CWBlue, CWF_LeftAl
         End If
         
        '尚未完善的功能:暂时不能检测滚轮滚动.预计下个版本将保证至少编译后的程序能检测鼠标滚轮的滚动
        CWPaintPicEnd
     CWPresentScene   '呈现绘制的场景

'*******************************以下为固定写法，不要轻易改动***********************************
    Else                 '当不满足渲染条件时
        CWResetDevice       '修复设备
    End If

    Loop

        CWVBDX9Destory     '销毁CoolWind引擎
    End '退出
'*******************************以上为固定写法，不要轻易改动***********************************


End Sub

BAS还是使用之前的。
运行后效果如下：

目前尚未完善的功能：暂时不能检测滚轮滚动.预计下个版本将保证至少编译后的程序能检测鼠标滚轮的滚动。