Skjul vindu, og musekoordinater

[Degeim]

To spørsmål:

1. Hvordan gjør jeg slik at vinguet til programmet mitt er skjult, og at det bare er et ikon der nede ved klokka (har glemt hva den baren heter:/ )

 

2. Hvordan finner jeg musens koordinater (ikke i forhold til vinduet, men i forhold til skjermen, som er 1024x768) og hvordan endrer jeg musens koordinater?

 

Takk, Degeim

[Jonas]

1. Søk etter "systray" på PSC.

 

2. Jeg quoter meg selv:

Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  Private Type POINTAPI
          x As Long
          y As Long
  End Type
Dim POINTAPI As POINTAPI

Private Sub Form_Load()
  GetCursorPos POINTAPI
  MsgBox "X: " & POINTAPI.x & vbNewLine & _
         "Y: " & POINTAPI.y
End Sub

For å sette musepekerens posisjon, se på SetCursorPos.