如何在Labe控件中显示当前用户名请代码~~有数据库

先在数据库中找到需要显示的数据，然后再label.caption  =  查找到的数据  就可以了啊

如果是数据库中的某项数据还好弄。不过可能楼主说的是当前电脑的用户名吧。

电脑当前用户名就只有用API了。

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserName() As String
    Dim buffer As String * 512, Length As Long
    If GetUserName(buffer, Len(buffer)) Then
        Length = InStr(buffer, vbNullChar) - 1
        ComputerUserName = Left$(buffer, Length)
    End If
End Function