|
| MouseMove Fra : Thomas Julø |
Dato : 05-09-01 18:42 |
|
Halløjsa
Jeg har fået en lille opgave i VB 6.0
Opgaven består i at jeg skal have to knapper til at bytte plads, hvis man
peger på den ene med musen. Lidt i stil med det funniprogram der florerede
for et godt stykke tid siden omhandlende om man havde en lille tissemand,
nemlig der hvor man kun kunne svare ja.
Har fået at vide at jed skal bruge MouseMove til at løse opgaven, men jeg
kan ikke lige gennemskue hvordan koden/syntaxen skal være. Har kiggeet i
msdnhjælp.
På forhånd tak
Thomas Julø
| |
Jan-Owe Fornes (05-09-2001)
| Kommentar Fra : Jan-Owe Fornes |
Dato : 05-09-01 20:44 |
|
"Thomas Julø"
> Opgaven består i at jeg skal have to knapper til at bytte plads, hvis man
> peger på den ene med musen. Lidt i stil med det funniprogram der florerede
> for et godt stykke tid siden omhandlende om man havde en lille tissemand,
> nemlig der hvor man kun kunne svare ja.
Hvis det bare er ene knappen som skal trigge dette, kan du bruke følgende
kode :
Option Explicit
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As
Single, Y As Single)
Dim temp As Single
temp = Command1.Top
Command1.Top = Command2.Top
Command2.Top = temp
End Sub
Håper det hjalp...
- jOWE
| |
Harald Staff (06-09-2001)
| Kommentar Fra : Harald Staff |
Dato : 06-09-01 08:44 |
|
Thomas
Private Sub Form_Load()
Command1.Caption = "Nej"
Command2.Caption = "Javel"
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim tTop As Integer, tLeft As Integer
'husk position
tTop = Command1.Top
tLeft = Command1.Left
'flyt
Command1.Top = Command2.Top
Command1.Left = Command2.Left
'flyt den andre
Command2.Top = tTop
Command2.Left = tLeft
End Sub
HTH. Beste hilsen Harald
Thomas Julø <tkj@image.dk> skrev i
news:3b967ae2$0$219$edfadb0f@dspool01.news.tele.dk...
> Halløjsa
>
> Jeg har fået en lille opgave i VB 6.0
>
> Opgaven består i at jeg skal have to knapper til at bytte plads, hvis man
> peger på den ene med musen. Lidt i stil med det funniprogram der florerede
> for et godt stykke tid siden omhandlende om man havde en lille tissemand,
> nemlig der hvor man kun kunne svare ja.
>
> Har fået at vide at jed skal bruge MouseMove til at løse opgaven, men jeg
> kan ikke lige gennemskue hvordan koden/syntaxen skal være. Har kiggeet i
> msdnhjælp.
>
> På forhånd tak
>
> Thomas Julø
>
>
| |
|
|