---

Hej NG

Jeg har brug for at kunne flytte en form der ingen ControlBox har, hvordan
kan dette gøres


--
Med venlig hilsen

Johnny E Jensen

---

Hej Johnny

Det kan gøres på følgende måde:

- Først sæt Form1.scalemode til 1 (Twip)

Form1.ScaleMode = 1

- Derefter indsættes følgende kode:

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

if button=0 then exit sub

Form1.Left = Form1.Left + X
Form1.Top = Form1.Top + Y


Derefter kan du flytte formen ved at holde en museknap nede, og flytte
markøren...


--
Med venlig hilsen

Khezar
(fjern NOSPAM fra Email)


>> Er en syg ven en dårlig ven?? <<




"Johnny Emde Jensen" <johnny.emde@jensen.tdcadsl.dk> skrev i en meddelelse
news:3dc8dcaa$0$52927$edfadb0f@dread11.news.tele.dk...
> Hej NG
>
> Jeg har brug for at kunne flytte en form der ingen ControlBox har, hvordan
> kan dette gøres
>
>
> --
> Med venlig hilsen
>
> Johnny E Jensen
>
>

---

Hej Khezar

Det var simpelt.. ak

/Johnny

"Khezar" <NOSPAMkhezar@tiscali.dk> skrev i en meddelelse
news:aqb08l$5p3$1@sunsite.dk...
> Hej Johnny
>
> Det kan gøres på følgende måde:
>
> - Først sæt Form1.scalemode til 1 (Twip)
>
> Form1.ScaleMode = 1
>
> - Derefter indsættes følgende kode:
>
> - Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
> Single, Y As Single)
>
> if button=0 then exit sub
>
> Form1.Left = Form1.Left + X
> Form1.Top = Form1.Top + Y
>
>
> Derefter kan du flytte formen ved at holde en museknap nede, og flytte
> markøren...
>
>
> --
> Med venlig hilsen
>
> Khezar
> (fjern NOSPAM fra Email)
>
>
> >> Er en syg ven en dårlig ven?? <<
>
>
>
>
> "Johnny Emde Jensen" <johnny.emde@jensen.tdcadsl.dk> skrev i en meddelelse
> news:3dc8dcaa$0$52927$edfadb0f@dread11.news.tele.dk...
> > Hej NG
> >
> > Jeg har brug for at kunne flytte en form der ingen ControlBox har,
hvordan
> > kan dette gøres
> >
> >
> > --
> > Med venlig hilsen
> >
> > Johnny E Jensen
> >
> >
>
>