Командная кнопка Visibitly на основе 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(), которая выполняет инициализацию элементов управления, перед вызовом любого из них.