Hur gör man för att kunna klicka och dra i ett fönster som har BorderStyle = None i NT/2000/XP? Jag har testat en kod förut men den fungerar endast i 95/98/ME.

Thomas

Hur ser koden ut?

/Olof

Jag sitter i skolan nu så jag vet inte om det är den här koden jag använder. Men jag tror att det är rätt.

http://www.pellesoft.nu/login/tips/t_view4.asp?tid=328

Thomas

Testa denna koden. Funkar utmärkt på min win2000...

'Form: Form1
Option Explicit

Private Type POINTAPI
X As Long
Y As Long
End Type

Private mFormX As Long
Private mFormY As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
MousePointer = vbSizePointer
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lpPoint As POINTAPI
If Button = vbLeftButton Then
GetCursorPos lpPoint
mFormX = lpPoint.X - Left / Screen.TwipsPerPixelX
mFormY = lpPoint.Y - Top / Screen.TwipsPerPixelY
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lpPoint As POINTAPI
If Button = vbLeftButton Then
GetCursorPos lpPoint
Move (lpPoint.X - mFormX) * Screen.TwipsPerPixelX, (lpPoint.Y - mFormY) * Screen.TwipsPerPixelY
End If
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lpPoint As POINTAPI
If Button = vbLeftButton Then
GetCursorPos lpPoint
Move (lpPoint.X - mFormX) * Screen.TwipsPerPixelX, (lpPoint.Y - mFormY) * Screen.TwipsPerPixelY
End If
End Sub

Den här (som jag hittat någonstans på nätet) funkar på win9x och NT4

<code>
Option Explicit

Sub MoveForm(ff As Form, xx, yy, bt)
'Move a non-caption form using no API, no DLL
'
Static oldx, oldy, mf
Dim moveleft, movetop
moveleft = ff.Left + xx - oldx
movetop = ff.Top + yy - oldy
If bt = 1 Then 'Byt 1 till 2 för högerknappen på musen
If mf = 0 Then
ff.Move moveleft, movetop
ff.Refresh
mf = 1
Else
mf = 0
End If
End If
oldx = xx
oldy = yy
End Sub

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

MoveForm Form1, X, Y, Button

End Sub</code>

/Olof