VB 2008 & API, y a une astuce?
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:
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ù?
