在VB中怎样得到当前登录用户的用户名??

[Nirvana0]

在VB中怎样得到当前登录用户的用户名??最好有个例子

[hhjjhjhj]

登录月球吗？

[3661512]

'窗体申明部分
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
'具体实现部分
Private Sub Form_Load()
On Error Resume Next
Dim sBuffer As String
Dim lSize As Long


sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub

[kimurakenshin]

学习....

[rainstormmaster]

GetUserName

[online]

Public Function NetworkUserName() As String
Dim lpBuff As String * 25
Dim retval As Long

retval = GetUserName(lpBuff, 25)
' trim off any trailing spaces found in the name
NetworkUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Function

[online]

Private Sub Form_Load()
TxtValue.text = NetworkUserName()
End Sub