Button = 1????

Du kan bare lade være med at angive nogen if sætning.
Så vil denne kode virke ligemeget hvilken knap der bliver trykket på.

Kedde

ok lad mig forklare! Grunden til at den skal simulere button 1 er at den er over en listbox og der er vigtigt at der bliver trykket på den listbox når brugeren trykker højre musetast(mousebutton 2)! Jeg skal nemlig bruge list1.listindex så jeg kan se hvilken en den trykkede på!

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

if button = 2 or button = 1 then
\'Den kode der gør at den reagere som nr button 1!!
end if
End Sub

Hvad mener du sjh??

er der ikke nogen måde man kan simulere mousebutton 1??

Det du har brug for er en måde at selecte det element, der højre klikkes på!

Ved at benytte et ListView istedet for kan du bruge den funktion, der hedder HitTest og herefter selecte det element, der er højreklikket på og herefter eksekvere koden!!

Det andet kan du sikkert godt gøre ved hjælp af et SendMessage API kald men det er en lidt mere indviklet sag!! Ikke uoverkommelig men jeg ville benytte et ListView i stedet for og så selv sørge for at det item, der klikkes på bliver valgt!

If button = 2 then

Det svar var en fejl ;-)
/tjacob

ok nolle_K det lyder rimeligt! Jeg kigger lige på noget listview når jeg kommer jeg og ser om jeg kan finde ud af noget!!!!

simulere mousebutton

Private Declare Function SendMessageLong& Lib \"user32\" Alias \"SendMessageA\" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Private Const WM_MBUTTONDOWN = &H207
Private Const WM_MBUTTONUP = &H208

Private Sub Command1_Click()
\'Test Simuler Command2
  MouseL_Click Command2.hWnd
  MouseM_Click Command2.hWnd
  MouseR_Click Command2.hWnd
End Sub

\'Test Simuler
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MsgBox Button
End Sub

\'Simulere mouse botton 1
Public Function MouseL_Click(hWnd As Long)
  SendMessageLong hWnd, WM_LBUTTONDOWN, 0&, 0&
  SendMessageLong hWnd, WM_LBUTTONUP, 0&, 0&
End Function

\'Simulere mouse botton 2
Public Function MouseR_Click(hWnd As Long)
  SendMessageLong hWnd, WM_RBUTTONDOWN, 0&, 0&
  SendMessageLong hWnd, WM_RBUTTONUP, 0&, 0&
End Function

\'Simulere mouse botton 4
Public Function MouseM_Click(hWnd As Long)
  SendMessageLong hWnd, WM_MBUTTONDOWN, 0&, 0&
  SendMessageLong hWnd, WM_MBUTTONUP, 0&, 0&
End Function

det virker ikke for mig! :( lukker spgsmålet! :(