Récupérer le nom du user
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 833 fois - Téléchargée 48 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
- Recuperer le nom d'une feuille excel en vba - Forum - Visual Basic
- Récupérer numéro de la feuille...(vba) - Forum - Visual Basic
- Visual Basic / VB.NET : Récupérer le nom de l'ordinateur - CodeS SourceS - Guide
- Récupérer le nom du fichier avec lequel l'appli doit s'ouvrir.lorsqu'on double clique depuis l'explo - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
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.