Récupérer le nom du user
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 692 fois - Téléchargée 47 fois
Contenu du snippet
A voir également
- Récupérer le nom du user
- Visual Basic / VB.NET : Comment récupérer le nom du user connecté à wind - Guide
- Récupérer le nom des colonnes d'une table sql ✓ - Forum - SQL
- Vba récupérer le nom du bouton cliqué ✓ - Forum - Visual Basic 6
- Recuperer le nom d'une feuille excel en vba - Forum - Visual Basic
- Visual Basic / VB.NET : Récupérer le nom de l'ordinateur - CodeS SourceS - Guide
Commentaires
le code de Microsoft (a mettre dans un module)
' Makes sure all variables are dimensioned in each subroutine.
Option Explicit
' Access the GetUserNameA function in advapi32.dll and
' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
' Main routine to Dimension variables, retrieve user name
' and display answer.
Sub Get_User_Name()
' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
' Display the User Name
MsgBox UserName
End Sub
tu l'appelle avec "Get_User_Name" dans ta form
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.