/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
Cursor location
Fra :
Søren
Dato :
29-07-03 12:02
Har lavet en Form hvorpå jeg har lavet en Pictur Box. I Picture Boxen har
jeg defineret et koordinatsysem.
Jeg vil gerne have at når jeg bevæger musen rundt over koordinatsystemet, så
kan jeg aflæse koordinaterne i to Label på Formen.
De koordinater jeg kan aflæse er bare ikke dem fra koordinatsystemet, men
min skærmsetting (1152x864). Hvad gør jeg forkert ???
****Module******
Option Explicit
Type POINTAPI 'Declare types
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'Declare API
*****Form*****(på formen er der insat en Timer1 med interval sat til 1)
Private Sub Timer1_Timer()
GetCursorPos z 'Get Co-ordinets
FrmMap.Label1.Caption = "x: " & z.x 'Get x co-ordinets
FrmMap.Label2.Caption = "y: " & z.y 'Get y co-ordinets
End Sub
Søren (
29-07-2003
)
Kommentar
Fra :
Søren
Dato :
29-07-03 12:36
Uha, fandt selv ud af det. Det var faktisk simpelt:
Private Sub PicMap_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Label1 = X
Label2 = Y
End Sub
"Søren" <skrammelpost@hotmail.com> wrote in message
news:3f2654b7$0$32540$edfadb0f@dread16.news.tele.dk...
> Har lavet en Form hvorpå jeg har lavet en Pictur Box. I Picture Boxen har
> jeg defineret et koordinatsysem.
>
> Jeg vil gerne have at når jeg bevæger musen rundt over koordinatsystemet,
så
> kan jeg aflæse koordinaterne i to Label på Formen.
>
> De koordinater jeg kan aflæse er bare ikke dem fra koordinatsystemet, men
> min skærmsetting (1152x864). Hvad gør jeg forkert ???
>
>
> ****Module******
> Option Explicit
> Type POINTAPI 'Declare types
> x As Long
> y As Long
> End Type
> Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
> 'Declare API
>
>
> *****Form*****(på formen er der insat en Timer1 med interval sat til 1)
> Private Sub Timer1_Timer()
> GetCursorPos z 'Get Co-ordinets
> FrmMap.Label1.Caption = "x: " & z.x 'Get x co-ordinets
> FrmMap.Label2.Caption = "y: " & z.y 'Get y co-ordinets
> End Sub
>
>
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177496
Tips :
31968
Nyheder :
719565
Indlæg :
6408491
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.