Visual Basic 6 - nome user pc

Forum - Visual Basic 6 - nome user pc

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 14:26
Giovedì, 11/10/2007

ciao a tutti .
Come vedete non i dimentico di voi.
Ho un piccolo quesito da porvi :
ho fatto un piccolo programmino di calcolo termotecnico con relativa stampa dei dati ottenuti .
Il Pc usato e' da piu' persone , con accesso diverso per ognuna , ovvero ogni utente ha il suo nome e la sua password .
Vorrei che nella stampa dei dati (stampo un form),
in una textbox comparisse il nome dell'utente che ha calcolato/stampato il documento. E' possibile farlo ?
Ah , il sistema operativo e' XP.

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 15:06
Giovedì, 11/10/2007

Creai un nuovo modulo e ci inserisci questo:

Codice sorgente - presumibilmente VB.NET

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Public Function GetUserN() As String
    Dim x As String * 50
    GetUserName x, Len(x)
    GetUserN = x
End Function

Poi inserisci questo per inserire il nome dell'utente nella textbox:

Codice sorgente - presumibilmente Plain Text

Text1.Text = GetUserN

Spero di essere stato chiaro.
Ciao

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 15:37
Giovedì, 11/10/2007

F A N T A S T I C O !!!!!!!!
Funziona che e' una meraviglia.
Mille grazie

albertking82 (Member)
Pro

Messaggi: 112
Iscritto: 14/08/2006

Postato alle 14:42
Venerdì, 12/10/2007

Usa la funzione di sistema environ

lbluser.Caption = "Utente = " & Environ$("USERNAME")