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

Question

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

现在我希望它根据应用程序查找。用户名以确定按钮是否可见。

我当前的代码是：

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() 函数很重要，该函数执行控件初始化。