Topic: How to get the mousewheel's case by Vlisp method ?

[chlh_jd]

Hi you guys , How to get the mousewheel's case by Vlisp method .
I search by google , and found  mousewheel's case can be easy get by other Computer Language such as JavaScript , VC , VB etc. 
however, how to get it by Vlisp ; thoutgh "USER32.DLL" or other DYN method ?

[Lee Mac]

Sorry, what do you mean by 'mousewheel's case'?

[Crank]

Hi you guys , How to get the mousewheel's case by Vlisp method .
I search by google , and found  mousewheel's case can be easy get by other Computer Language such as JavaScript , VC , VB etc. 
however, how to get it by Vlisp ; thoutgh "USER32.DLL" or other DYN method ?

I don't know a vlisp method, but I think, you can look for the value of:

Code: [Select]

(acet-sys-keystate 4); Middle mouse button (three-button mouse)


(acet-sys-keystate keycode);   Check state of virtual key.

Arguments
keycode The code for the virtual key to test.

Return Values
The status of the specified virtual key:

If the high-order bit is 1, the key is down; otherwise, it is up.
If the low-order bit is 1, the key is toggled. A key, such as the CAPS LOCK key, is toggled if it is turned on. The key is off and untoggled if the low-order bit is 0. A toggle key's indicator light (if any) on the keyboard will be on when the key is toggled, and off when the key is untoggled.

See the documentation for the GetKeyState() Win32 function for additional details.

[chlh_jd]

Hi , Lee Mac .
I mean that how to catch and determine the case when the mousewheel is forward or backward Scrolled  or Pressed .

Thanks Crank a lot !
however when not has the ExpressTools in my ACAD, how to get that ?

 

[chlh_jd]

Here's a way written by Highflybird .
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85724&page=4#pid461613
About  "DynamicWrapperX" you can see this
http://www.theswamp.org/index.php?topic=37584.msg425944#msg425944

[CAB]

however when not has the ExpressTools in my ACAD, how to get that ?

Should be included on your ACAD disk, try to install/repair and add ExpressTools to the install.

[xiaxiang]

however when not has the ExpressTools in my ACAD, how to get that ?

Should be included on your ACAD disk, try to install/repair and add ExpressTools to the install.

Let's talk about doing that without ExpressTools.

[alanjt]

Code: [Select]

(defun c:Test (/ lst)
  (setq lst (list (acet-sys-keystate 4)))
  (while (eq 5 (car (grread T 15 0)))
    (if (/= (car (setq lst (cons (acet-sys-keystate 4) lst))) (cadr lst))
      (alert "Middle button pressed!")
    )
  )
  (princ)
)
It's a little funky if you middle click and drag the mouse.

[chlh_jd]

Hi , Alan .
Even use "delay" method , it can't princ any result in my SP2 ACAD2004 version .

Code: [Select]

(defun c:Test (/ lst)
  (setq lst (list (acet-sys-keystate 4)))
  (command "delay" "1000")
  (while (eq 5 (car (grread T 15 0)))
    (if (/= (car (setq lst (cons (acet-sys-keystate 4) lst)))
    (cadr lst)
)
      (progn (princ lst)
     (princ "\nMiddle button pressed!")
      )
    )
  )
  (princ)
)


[chlh_jd]

here's a Example for MouseHook by VBA
http://www.vbaexpress.com/kb/getarticle.php?kb_id=890

Code: [Select]

' Class module for ActiveX dll
 
Option Compare Text
Option Explicit
 
Private frm As Object
Private intCancel As Integer
Public Event MouseWheel(Cancel As Integer)
 
Public Property Set Form(frmIn As Object)
Set frm = frmIn
End Property
 
Public Property Get MouseWheelCancel() As Integer
MouseWheelCancel = intCancel
End Property
 
Public Sub SubClassHookForm()
    lpPrevWndProc = SetWindowLong(frm.hwnd, GWL_WNDPROC, _
    AddressOf WindowProc)
    Set CMouse = Me
End Sub
 
Public Sub SubClassUnHookForm()
    Call SetWindowLong(frm.hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub
 
Public Sub FireMouseWheel()
    RaiseEvent MouseWheel(intCancel)
End Sub
 
 
 ' Standard Module Code
Option Compare Text
Option Explicit
 
Public CMouse As CMouseWheel
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, _
ByVal hwnd As Long, _
ByVal msg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
 
Public Const GWL_WNDPROC = -4
Public Const WM_MouseWheel = &H20A
Public lpPrevWndProc As Long
Public Function WindowProc(ByVal hwnd As Long, _
    ByVal uMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
    Select Case uMsg
    Case WM_MouseWheel
        CMouse.FireMouseWheel
        If CMouse.MouseWheelCancel = False Then
            WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
        End If
        
    Case Else
        WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
    End Select
End Function
 
 
 
 ' Subs coded: Form LOAD Code/ Form CLOSE code/ clsMouseWheel_MouseWheel code
 ' Make sure you have referenced the MouseWheel.dll before you insert this code.  Also
 ' Ensure that you are not going to overwriite an existing code if you are cutting and
 ' pasting.  Either copy before or after you existing code.
 
Option Compare Database
Option Explicit
 
Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel
 
Private Sub Form_Load()
    Set clsMouseWheel = New MouseWheel.CMouseWheel
    Set clsMouseWheel.Form = Me
    clsMouseWheel.SubClassHookForm
End Sub
 
Private Sub Form_Close()
    clsMouseWheel.SubClassUnHookForm
    Set clsMouseWheel.Form = Nothing
    Set clsMouseWheel = Nothing
End Sub
 
Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
    MsgBox "The Mouse Wheel has been disabled. Record shouldn't advance."
    Cancel = True
End Sub