/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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ø
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste