VB 2800 & API... y a une astuce?

Question

Bonjour, Plusieurs jours que je cherche en vain sans résultat, j'en appelle à vos lumières. Sous VB2008, je n'arrive à rien avec les API. Il m'est toujours retourné des valeurs incorrectes. Avec le code ci-dessous par exemple:

Public Class Test Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" ( ByVal hwnd As Long , ByVal lpString As String ) As Long Private Declare Function GetFocus Lib "user32.dll" () As Long Public Shared Sub Main() Dim L1 As Long L1 = GetFocus() SetWindowText(L1, "Test" & Chr(0)) MsgBox(Hex(L1), MsgBoxStyle.Information) End Sub End Class

GetFocus me retourne &h77100F3400000000 (8579374006153510912), et ce, quel que soit la fenêtre active. J'ai essayé en C#, même topo, j'ai essayé avec pas mal d'API, itoo, à chaque fois, les valeurs qui me sont retournées sont inutilisables. J'suis sous vista. J'ai comme la sensation qu'il est une astuce énorme, grosse comme mon pif sur ma tronche. De là où vous êtes, vous voyez pas? Merci d'avance de vos bonnes volontés.

cs_slysylvestre · Answer

Public
Class Test 



Private
Declare
Function GetFocus Lib"user32.dll" () AsLong





Public
Shared
Sub Main()
Dim L1 AsLong




L1 = GetFocus()





End



Sub
End



Class






<hr />


Ayant foiré le copiécollé, je remet le code exemple.

Merci d'avance de vos bonnes volontés.

cs_Jack · Answer

Salut
C'est parce que le nom des types de variables désignent des types différents d'avec la syntaxe API fournie pour VB6.
  VB6         Net
Long    --> Integer
Integer --> Short

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Renfield · Answer

mentionné quotidiennement sur le forum...

Utilisateur anonyme · Answer

Salut,

La vrai déclaration en dotnet :
<Runtime.InteropServices.DllImport("user32")> _
Private Function GetFocus() As IntPtr
End Function

__________
  Kenji

cs_slysylvestre · Answer

voui, j'ai bien tenter de remplacer Long par Integer, mais en ce cas, il m'est renvoyé 0.
J'ai tenté de remplacer la déclaration par:
<Runtime.InteropServices.DllImport("user32")> _
Private Function GetFocus() As IntPtr
End Function

Mais il me mets:
Erreur 1 'System.Runtime.InteropServices.DllImportAttribute' ne peut pas être appliqué à une méthode d'instance. 

Je sèche, déssèche et tourne en rond...

Utilisateur anonyme · Answer

Ajoute le mot clé Shared :
<Runtime.InteropServices.DllImport("user32")> _
Private Shared Function GetFocus() As IntPtr
End Function

__________
  Kenji

mortalino · Answer

encore hier Casy le [re]mentionnait dans un topic

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

cs_slysylvestre · Answer

Imports Microsoft.Win32 Imports System.Runtime.InteropServices Public Class Test _ Private Shared Function GetFocus() As IntPtr End Function Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" ( ByVal hwnd As Long , ByVal lpString As String ) As Long Public Shared Sub Main() Dim L1 As IntPtrL1 = GetFocus() SetWindowText(L1, "Test" & Chr(0)) MsgBox(Hex(L1), MsgBoxStyle.Information) End Sub EndClass

Tout à l'air bon... et pourtant que nenni, GetFocus me renvoie toujours 0. J'ai testé avec GetActiveWindow(): pareil. Pareil en compilé... Je vous remercie de vous pencher sur ce truc, qui j'en suis sur, tient d'une erreur évidente... mais où?

cs_slysylvestre · Answer

Imports Microsoft.Win32 Imports System.Runtime.InteropServices Public Class Test _ 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 EndClass

Reposté épuré Tout à l'air bon... et pourtant que nenni, GetFocus me renvoie toujours 0. J'ai testé avec GetActiveWindow(): pareil. Pareil en compilé... Je vous remercie de vous pencher sur ce truc, qui j'en suis sur, tient d'une erreur évidente... mais où?

VB 2800 & API... y a une astuce?

9 réponses

Votre réponse

Discussions similaires