Just Messing Around With Security Concerns

mmieher

Active Member
Licensed User
Longtime User
B4X:
Private Sub B4XPage_Created (Root1 As B4XView)
    LogSub("B4XPage_Created")
    Root = Root1
    Root.LoadLayout("AdminPage")
    cs.Initialize.color(xui.Color_White).Append("admin").PopAll
    B4XPages.SetTitle(Me, cs)

    bxDialog.Initialize(Root)
    Dim Input As B4XInputTemplate
    Input.Initialize
    Input.lblTitle.Text = "Password:"
    Input.RegexPattern = ".+" 'require at least one character
    Wait For (bxDialog.ShowTemplate(Input, "OK", "", "")) Complete (whoCares As Int)
    If whoCares <> DialogResponse.POSITIVE Then Return
    '    this is not actually how you get in, just keep waiting
    
End Sub
 
Top