Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juil. 2007 à 22:55
ca fonctionne, mais ca risque de coincer sur d'autres ordinateurs...
Psychotronic
Messages postés21Date d'inscriptionmardi 17 juillet 2007StatutMembreDernière intervention17 décembre 2008 18 juil. 2007 à 17:25
Mais sa marche à la perfection...j'suis un débutant en VB, j'ai commencé pour la première fois il y a deux jours !
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juil. 2007 à 17:15
aïe...
je te files une fonction toute faite
tu n'avais rien a faire, juste (j'aime toujours pas cet event mais bon) :
Private Sub Label6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged
Label6.Text = GetUserName
End Sub
tu as introduit un bug potentiel... tu ne vérifie pas si tu as bien DOMAIN\USERNAME
et tu prend d'office l'element #1 d'un tableau qui n'en est peut etre pas un...
Psychotronic
Messages postés21Date d'inscriptionmardi 17 juillet 2007StatutMembreDernière intervention17 décembre 2008 18 juil. 2007 à 16:38
C'était pas exactement ce que j'espérais trouver mais ça a quand même marché avec quelques modifications :
Private Sub Label6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Label6.Text = username
End Sub
Merci RenField ;)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juil. 2007 à 16:11
Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' The application is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Return username
Else
' The application is using custom authentication.
Return My.User.Name
End If
End Function
Psychotronic
Messages postés21Date d'inscriptionmardi 17 juillet 2007StatutMembreDernière intervention17 décembre 2008 18 juil. 2007 à 15:48
L'inconvénient avec mon code, c'est que le nom d'utilisateur s'affiche toujours avec le nom du domaine (le nom du PC). IL y aurait t-il un moyen de l'afficher sans le nom de domaine ? (n'oubliez pas que je suis avec Visual Basic 2005)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 18 juil. 2007 à 07:41
malin, de changer le texte du Label dans cet evenement...
heureusement que .Net est plus malin, sinon, bonjour les boucles sans fin ^^
Psychotronic
Messages postés21Date d'inscriptionmardi 17 juillet 2007StatutMembreDernière intervention17 décembre 2008 18 juil. 2007 à 05:12
Avec Visual Basic 2005, il suffit d'écrire My.User.Name
Pour l'inscrire dans unelabel existante, faites :
Private Sub NomDuLabel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NomDuLabel.TextChanged
NomDuLabel.Text = "Bienvenue " & My.User.Name
End Sub
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 15 mai 2007 à 19:12
18 juil. 2007 à 22:55
18 juil. 2007 à 17:25
18 juil. 2007 à 17:15
je te files une fonction toute faite
tu n'avais rien a faire, juste (j'aime toujours pas cet event mais bon) :
Private Sub Label6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged
Label6.Text = GetUserName
End Sub
tu as introduit un bug potentiel... tu ne vérifie pas si tu as bien DOMAIN\USERNAME
et tu prend d'office l'element #1 d'un tableau qui n'en est peut etre pas un...
18 juil. 2007 à 16:38
Private Sub Label6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.TextChanged
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Label6.Text = username
End Sub
Merci RenField ;)
18 juil. 2007 à 16:11
en effet, on trouve ici : http://msdn2.microsoft.com/fr-fr/library/ms172997(VS.80).aspx
un code en VB2005 :
Function GetUserName() As String
If TypeOf My.User.CurrentPrincipal Is _
Security.Principal.WindowsPrincipal Then
' The application is using Windows authentication.
' The name format is DOMAIN\USERNAME.
Dim parts() As String = Split(My.User.Name, "")
Dim username As String = parts(1)
Return username
Else
' The application is using custom authentication.
Return My.User.Name
End If
End Function
18 juil. 2007 à 15:48
18 juil. 2007 à 07:41
heureusement que .Net est plus malin, sinon, bonjour les boucles sans fin ^^
18 juil. 2007 à 05:12
Pour l'inscrire dans unelabel existante, faites :
Private Sub NomDuLabel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NomDuLabel.TextChanged
NomDuLabel.Text = "Bienvenue " & My.User.Name
End Sub
15 mai 2007 à 19:12
15 mai 2007 à 13:18
8 déc. 2004 à 14:18
jte mé 10/10
7 déc. 2004 à 23:09
Private Sub Form_Load()
Dim Ch As String
Dim a As Long
Dim b As Long
Dim Utilisateur As String
a = 199
Ch = String$(200, 0)
b = GetUserName(Ch, a)
If b <> 0 Then Utilisateur Left$(Ch, a - 1) Else Utilisateur ""
MsgBox ("Utilisateur loggé : " & Utilisateur & "Hello")
End Sub
Maintenant, si tu trouves pas le code suivant plus simple....
Private Sub Form_Load()
Dim Utilisateur As String
Utilisateur = Environ$("username")
MsgBox ("Utilisateur loggé : " & Utilisateur & "Hello")
End Sub
7 déc. 2004 à 21:15
a = 199
Ch = String$(200, 0)
b = GetUserName(Ch, a)
If b <> 0 Then utilisateur Left$(Ch, b) Else Utilisateur ""
MsgBox utilisateur
parceque si je fait ça j'ai juste la premier lettre du nom d'utilisateur et si je met juste
If b <> 0 Then utilisateur Left$(Ch, b) Else Utilisateur ""
je n'est rien du tout
7 déc. 2004 à 20:46
sinon, fais simplement
If b <> 0 Then Utilisateur Left$(Ch, b) Else Utilisateur ""
7 déc. 2004 à 19:42
utilisateur = utilisateur + "Ajout"
msgbox utilisateur
resultat : juste le nom de l'utilisateur
merci si vous avez une solution
27 août 2004 à 11:35
la fonction environ s'en charge :
MsgBox environ$("username")
1 févr. 2004 à 02:07
1 sept. 2003 à 18:21