编程论坛 → VB6论坛

如何在 Labe 控件中显示当前用户名请代码

admin73896 发布于 2014-05-26 11:33， 499 次点击

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

4 回复

wxflw2014-05-26 13:19

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

yangfrancis2014-05-26 21:55

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

yqn1342014-06-02 22:58

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

yuk_yu2014-06-03 11:44

回复楼主 admin73896

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