Windows API list

[agibsonsw]

Hello. (Office 2003)

Does anyone have a link for a list of Windows API functions -using VBA? I've been searching but the examples I've found tend to be based on other languages such as C#.

In particular I'm looking for functions that return the user name and cursor co-ordinates.

Thanks, Andy.

[StuartR]

......In particular I'm looking for functions that return the user name and cursor co-ordinates...

With Google as my friend, I located these two Microsoft knowledge briefs.

• How to Retrieve Mouse Cursor Coordinates in Visual Basic
• VBA: Sample Code to Retrieve the Current User Name

[agibsonsw]

That's great. I spent ages (well, a little while..) Googling. Do you have a search tip? Perhaps I should begin all my searches with 'VBA some topic' to narrow the search results?
Andy.

[agibsonsw]

......In particular I'm looking for functions that return the user name and cursor co-ordinates...

With Google as my friend, I located these two Microsoft knowledge briefs.

• How to Retrieve Mouse Cursor Coordinates in Visual Basic
• VBA: Sample Code to Retrieve the Current User Name

The mouse cursor coordinates example is an (old) visual basic example, not VBA and doesn't work as is. (This was typical when I was trawling the internet.)

Any one have the VBA version? Thanks, Andy.

[HansV]

Here is an example that should work. Copy the following code into a standard module and run the ShowCoordinates macro:

Code: Select all

Public Type POINTAPI
  x As Long
  y As Long
End Type

Public Declare Sub GetCursorPos Lib "User32" (lpPoint As POINTAPI)

Public Sub ShowCoordinates()
  Dim pt As POINTAPI
  GetCursorPos pt
  MsgBox "X=" & pt.x & ", Y=" & pt.y, vbInformation
End Sub

You can use the pt variable for something else than a message box, of course.

[Don Wells]

The user name is an Environment variable and can be returned with the following code:

Code: Select all

MsgBox "The person logged on this machine is: " & Environ("username")

A list of all environment variables can be obtained in Excel using the following code:

Code: Select all

Sub List_Environment_Variables()
Dim EnvString As String
Indx = 1
Do
    EnvString = Environ(Indx)
    Cells(Indx, 1) = EnvString
    Indx = Indx + 1
Loop Until EnvString = ""
End Sub

H.T.H.

[agibsonsw]

Thanks both.

I notice that environ is part of VBA and so is also available for MS Access. Andy.

[Jan Karel Pieterse]

I expect this download might help (API viewer):

http://www.activevb.de/rubriken/apiview ... 4_v310.exe

[agibsonsw]

Thank you. That looks a great little app. I could have hours of fun! Andy.