bjr suis je vous demandez de l'aide svp
j'utilise GetUserName à fin d'avoir l'utilisateur de l'application mais j'ai une erreur du genre
LA référence d'objet n'est pas défini a une instance d'un objet
juste aprés l'instruction
Call GetUserName(sBuffer, lSize)
voilà tout mon code
1 2 3 4 5 6 7 8 9 10 11 12 13
| dans module
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String,ByVal nSize As Long) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sBuffer As String
Dim vutilisateur As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
vutilisateur = Trim(Microsoft.VisualBasic.Left$(sBuffer, lSize - 1))
end sub |
merci
Partager