Er zijn 2 reacties in dit onderwerp

[VB6Dummy]

Thanks, ik denk wel dat dit op een eenvoudige wijze vrij voldoende men probleem oplost.

Mvg, DaVi

[VB6Dummy]

Davi,

probeer dit eens ;



Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()   Load Form2   Form2.ShowEnd Sub
Private Sub Form_Activate()    'KPD-Team 1998    'URL: http://www.allapi.ne...et/    'E-Mail: KPDTeam@Allapi.net    Dim Ret As Long    Do        'Get the handle of the foreground window        Ret = GetForegroundWindow()        'Get the foreground window's device context        Ret = GetDC(Ret)        'draw an ellipse        Ellipse Ret, 0, 0, 200, 200        DoEvents    LoopEnd Sub

[VB6Dummy]

Hi,
Ik heb een project dat bestaat uit een main form van waaruit andere forms worden opgeroepen die ook op hun beurt een form kunnen oproepen. Dus een klassiek project dacht ik zo. Nu heb ik een functie die de form handle (hWnd) nodig heeft van het op dat moment actieve form, (dus de hoogste form). De functie in kwestie kan natuurlijk niet alleen van uit een code snippet van een form opgeroepen worden, maar ook vanuit een een of andere functie die zich bijvoorbeeld in een module bevindt. In het eerste geval kan ik natuurlijk eenvoudig weg een parameter meegeven met de waarde van me.hWnd, maar in het tweede geval lijkt me dat niet zo eenvoudig. En daarom zoek ik een middel om via een (api) functie vertrekkend van me.hWnd van de main form te ontdekken wat de hWnd van de laatst aangeroepen form is.
Mvg, DaVi