Oppure

Loading
11/10/07 12:26
mash_mash
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.
aaa
11/10/07 13:06
iGuLy
Creai un nuovo modulo e ci inserisci questo:
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:
Text1.Text = GetUserN

Spero di essere stato chiaro.
Ciao
aaa
11/10/07 13:37
mash_mash
F A N T A S T I C O !!!!!!!!
Funziona che e' una meraviglia.
Mille grazie
aaa
12/10/07 12:42
albertking82

Usa la funzione di sistema environ

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