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

解决方案 »

  1.   

    '窗体申明部分
    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
      

  2.   

    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
      

  3.   

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