Springen naar inhoud


Form Handle opsporen


  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5387 berichten
    Laatst bezocht 13 Feb 2012 08:37

Geplaatst op 06 May 2011 - 19:17


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

Mvg, DaVi

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5387 berichten
    Laatst bezocht 13 Feb 2012 08:37

Geplaatst op 06 May 2011 - 19:17

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

#3 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5387 berichten
    Laatst bezocht 13 Feb 2012 08:37

Geplaatst op 06 May 2011 - 19:16

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




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Hosting provided by Combell
Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be