"Spacemann'" <spacemann@mail.dk> wrote in message
news:9g618l$1cp$1@news.inet.tele.dk...
> Hej alle sammen
>
> Jeg håber virkelig der er en der kan hjælpe !!
>
> Jeg har laver et program uden "border" så den der blå linie for oven er
væk.
>
> Mit spørgsmål er så hvordan jeg kan flytte rundt på formen ??
>
> M.V.H.
> Stefan Larsen
Form1.top = værdi
Form.Left = Værdi
Så kan du Evt lave et keypress således at når du jolder en bestemt taste
kombination nede følger skærmen musen.
Kræver lidt kodning hvor du fanger koordinaterne med musen og så. F.eks
sætter det som center af din form.
Jeg har lidt kode her som jeg har brugt i et program til at hindre screen
dump.
Det kan du nok omskrive således at du kan anvende det til dit formål:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftTest As Integer
ShiftTest = Shift And 7
Select Case ShiftTest
Case 1 Or vbShiftMask
'Print "You pressed the SHIFT key."
Case 2 Or vbCtrlMask
'Print "You pressed the CTRL key."
Case 4 Or vbAltMask
'Print "You pressed the ALT key."
Call Forsvar1
Case 3
'Print "You pressed both SHIFT and CTRL."
Case 5
'Print "You pressed both SHIFT and ALT."
Case 6
'Print "You pressed both CTRL and ALT."
Case 7
'Print "You pressed SHIFT, CTRL, and ALT."
Call Forsvar1
End Select
End Sub
--
Med venlig hilsen
Gigasoft Danmark
Bjarne Østergård
NYHED:
http://www.gigasoft.dk/dks/
www.gigasoft.dk E-mail: boe@gigasoft.dk
Tlf. 86 49 64 04