fserver.class

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

' Gambas class file

PUBLIC FUNCTION Run() AS Boolean
  
  RETURN NOT ME.ShowModal()
  
END


PUBLIC SUB btnCancel_Click()

  ME.Close

END

PUBLIC SUB btnOK_Click()

  DIM hServer AS CServer
  
  hServer = NEW CServer(Trim(LCase(cmbType.Text)), Trim(txtHost.Text), Trim(txtUser.Text), Trim(txtPassword.Text))

  ME.Close(TRUE)
  
CATCH

  Message.Error(Error.Text)

END