Bonjour,
Plusieurs jours que je cherche en vain sans résultat, j'en appelle à vos lumières.
Sous VB2008 (Vista), je n'arrive à rien avec les API.
Il m'est toujours retourné des valeurs incorrectes.
Avec le code ci-dessous par exemple:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Imports Microsoft.Win32
Imports System.Runtime.InteropServices
Public Class Test
 
<Runtime.InteropServices.DllImport( "user32" )> _
Private Shared Function GetFocus() As IntPtr
End Function 
 
Public Shared Sub Main()
Dim L1 As IntPtr 
L1 = GetFocus()
 
MsgBox(Hex(L1), MsgBoxStyle.Information) 
 
End Sub
End Class
Tout à l'air bon... et pourtant que nenni, GetFocus me renvoie toujours 0.
J'ai testé avec GetActiveWindow(): pareil.
Pareil en compilé, pareil en C#.

Je vous remercie de vous pencher sur ce truc, qui j'en suis sur, tient d'une erreur évidente... mais où?