/
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
[VB] hWnd
Fra :
Johnny E Jensen
Dato :
18-05-03 19:48
Hej gruppe
Næsten (hvis ikke) alle kontroller får tildelt et nummer (ID) et hWnd.
Vedhæftet eks. aflæser kontrollens wHnd der ligger under musen. Hvad referer
dette nummer til - og kan man finde oplysninger om hvilken kontrol (TextBox,
Label ect.)??
/Johnny
Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long,
ByVal yPoint As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Timer1_Timer()
Dim ptMouse As POINTAPI
GetCursorPos ptMouse
Label1.Caption = WindowFromPoint(ptMouse.X, ptMouse.Y)
End Sub
__________________________________________________________________ Johnny
Jensen IT Manager ICQ#: 179719734 Current ICQ status: ( Home Tel#: +45
46369401 ( Work Tel#: +45 22293296 + More ways to contact me
__________________________________________________________________
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.