• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 150
  • Last Modified:

Disabling mouse?

I am trying to disable the mouse when a form is loading.  I need to prevent the mouse from being able to click.  Is this possible and I also need code.  Thanks
1 Solution
Try the following

Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Declare Function EnableWindow Lib "user32" Alias "EnableWindow" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

dim hwndDSK as long
hwndDSK = GetDesktopWindow
screen.mousepointer = vbHourglass
enablewindow hwndDSK, 0
load form1
enablewindow hwndDSK, 1
screen.mousepointer = vbDefault

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now