Коробка ввода с двумя значениями в качестве входов

Question

У меня есть этот код, который запрашивает ключ для открытия определенной формы окна. Если количество недопустимых ключей больше 3, приложение заканчивается.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 




     Dim clave As String, attempts As Integer, intentoclave As String 

     'This is the key 

     clave = "UNI" 
     attempts = 0 


     For attempts = 1 To 4 


      If attempts < 4 Then 
       intentoclave = InputBox("Write the key") 

       If intentoclave = clave Then 
        Exit For 

        Me.Show() 
       End If 
      Else 
       End 
      End If 

     Next 



    End Sub 

Работает нормально, но я хотел бы ввести имя пользователя, а также в поле ввода. Как я могу это сделать?

Answer 1

InputBox function имеет дополнительные значения:

Public Function InputBox(_ 
    ByVal Prompt As String, _ 
    Optional ByVal Title As String = "", _ 
    Optional ByVal DefaultResponse As String = "", _ 
    Optional ByVal Xpos As Integer = -1, _ 
    Optional ByVal YPos As Integer = -1 _ 
) As String 

Вы не указали, как извлекается имя пользователя, ни где вы хотите отобразить его, но если вы хотите, чтобы отобразить его в качестве значения по умолчанию в поле ввода, все вам нужно сделать, это передать, что имя для третьего параметра (DefaultResponse) функции InputBox:

intentoclave = InputBox("Write the key", "Any title", "Your username goes here!")