命令按钮可见性基于 Application.Username

Question

我正在考虑在我的用户表单上创建一个管理按钮。

现在我希望它对照 application.Username 来确定按钮是否可见。

我当前的代码是：

Private Sub AdminBtn()

If Application.Username = "Peter.Mogford" Then
AdminCmd.Visible = False
Else
AdminCmd.Visible = True
End If

End Sub

我已经投入测试并要求可见性为假，但由于某种原因它仍然显示。

我不确定这是否与我在用户表单而不是模块或类似的东西中编写代码有关。

请哪位大神给点建议。

提前致谢

Answer 1

如果您只需要在显示表单后更新可见性，这里的良好做法是使用表单 constructor。

这样使用：

Public Class Form1

Public Sub New()
    InitializeComponent() 
    If Application.Username = "Peter.Mogford" Then
    AdminCmd.Visible = False
    Else
    AdminCmd.Visible = True
    End If
End Sub

End Class

编写自定义表单构造函数时，在调用任何控件之前调用 InitializeComponent() 函数很重要，该函数会执行控件初始化。

命令按钮可见性基于 Application.Username

Command Button Visibitly based on Application.Username

excel

vba

command

admin

button