Hallo
Ich hab ein kleines problem, zwar weiss ich auch als greenhorn wie ich die getusername function benutze um den username anzeigen zu lassen, aber ich würde diese info gerne in einer textbox anstelle msgbox anzeigen lassen, so dass ich diese info in einem weiteren schritt in einer logdatei speichern kann.
folgenden code habe ich benuzt um die username anzeigen zu lassen:
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize _
As Long) As Long
Public Function RetrieveUserName() As String
Const MaxLen = 50
Dim strName As String
Dim lngRetVal As Long
strName = Space$(MaxLen)
lngRetVal = GetUserName(strName, MaxLen)
strName = Trim$(strName)
strName = Left$(strName, Len(strName) - 1)
RetrieveUserName = strName
End Function
Private Sub Command1_Click()
MsgBox RetrieveUserName
End Sub
Wie kann ich jetzt die funktion retrieveusername in einer textbox anstelle der (private sub command1_click())msgbox anzeigen lassen? ich steig einfach nicht dahinter.
danke fürs feedback und liebe grüsse
greenhorn
Ich hab ein kleines problem, zwar weiss ich auch als greenhorn wie ich die getusername function benutze um den username anzeigen zu lassen, aber ich würde diese info gerne in einer textbox anstelle msgbox anzeigen lassen, so dass ich diese info in einem weiteren schritt in einer logdatei speichern kann.
folgenden code habe ich benuzt um die username anzeigen zu lassen:
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize _
As Long) As Long
Public Function RetrieveUserName() As String
Const MaxLen = 50
Dim strName As String
Dim lngRetVal As Long
strName = Space$(MaxLen)
lngRetVal = GetUserName(strName, MaxLen)
strName = Trim$(strName)
strName = Left$(strName, Len(strName) - 1)
RetrieveUserName = strName
End Function
Private Sub Command1_Click()
MsgBox RetrieveUserName
End Sub
Wie kann ich jetzt die funktion retrieveusername in einer textbox anstelle der (private sub command1_click())msgbox anzeigen lassen? ich steig einfach nicht dahinter.
danke fürs feedback und liebe grüsse
greenhorn