Discussion :

[damsmut]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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.

[smyley]

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

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[damsmut]

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