This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

Paste #598

Posted by:
Posted on: 2026-02-24 06:11:16
Age: 22 hrs ago
Views: 4

' Возвращаемое имя
Public AddedUser As String

Private Sub Form_Activate()
    txtUsername.Text = ""
    txtUsername.SetFocus
    AddedUser = ""
End Sub

Private Sub cmdOK_Click()

    Dim user As String
    user = Trim(txtUsername.Text)
    
    If user = "" Then
        MsgBox "Enter username.", vbExclamation
        Exit Sub
    End If
    
    AddedUser = user
    Me.Hide   ' НЕ Unload!

End Sub

Private Sub cmdCancel_Click()
    AddedUser = ""
    Me.Hide
End Sub

Private Sub txtUsername_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        cmdOK_Click
    End If
End Sub

Download raw | Create new paste

Recent Posts

Paste #598