Problème avec API FindWindow sous "Microsoft Visual Basic 2008 Express"

Bonjour,

... en fait je ne sais même pas si je suis dans le bon forum...:aie:

Jusqu'à présent, je programmais toujours en VBA dans Excel... ça va je me débrouille...

Pour aller un peu plus loin, je souhaitais tester "Microsoft Visual Basic 2008 Express"... Par contre là je galère un peu...


J'ai un programme qui fonctionne très bien sous VBA, mais pas avec "Microsoft Visual Basic 2008 Express"...

Voici mon code, qui permet via les api de récupérer le Handle de la calculatrice Windows XP, puis de la fermer (c'est un exemple)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Module Module1 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long   Private Const WM_CLOSE = &H10 Sub test() Dim m_hWnd As Long   m_hWnd = FindWindow(vbNullString, "Calculatrice") Call PostMessage(m_hWnd, WM_CLOSE, 0, vbNull)   End Sub   End Module

---

En fait avec VBA la calculatrice se ferme bien... mais pas avec "Microsoft Visual Basic 2008 Express".

Quelqu'un peut-il m'aider !? (je souhaite une solution via l'api)



PS : D'ailleurs c'est quoi comme type de "Visual Basic " avec "Microsoft Visual Basic 2008 Express"... du VB.net ? c'est bien ça ???


Merci
a+

Damsmut

Citation:

---

Envoyé par damsmut

Bonjour,
........
PS : D'ailleurs c'est quoi comme type de "Visual Basic " avec "Microsoft Visual Basic 2008 Express"... du VB.net ? c'est bien ça ???
........

---

Oui d'où le déplacement.

Peut être en utilisant les déclarations "correctes" ?

Code:

---

1 2 3 4 5 6 7 8 9 10

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Private Shared Function FindWindow( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As IntPtr End Function   <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean End Function

---

C'est bon j'ai trouvé.
En fait il faut changer tous les "Long" en "Integer", car les Integer sont sur 32 bits en VB .Net.

A+
Damsmut