|
| [VB6] Flytte form Fra : Johnny Emde Jensen |
Dato : 06-11-02 11:11 |
|
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
| |
Khezar (06-11-2002)
| Kommentar Fra : Khezar |
Dato : 06-11-02 13:01 |
|
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
>
>
| |
Johnny Emde Jensen (06-11-2002)
| Kommentar Fra : Johnny Emde Jensen |
Dato : 06-11-02 18:38 |
|
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
> >
> >
>
>
| |
|
|