fpassword.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file

STATIC PRIVATE $sKey AS String

STATIC PUBLIC FUNCTION Run() AS String

  IF FPassword.ShowModal() THEN RETURN $sKey

END

PUBLIC SUB btnOK_Click()

  $sKey = Trim(txtPassword.Text)
  IF Len($sKey) < 8 THEN
    Message(("Please enter at least eight characters."))
    RETURN
  ENDIF
  ME.Close(TRUE)

END

PUBLIC SUB btnCancel_Click()

  ME.Close

END