fpreview.class

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

' Gambas class file

PUBLIC SUB Form_Open()
  ME.center
END

PUBLIC SUB Form_Resize()
  label4.Move(0, 0, ME.ClientWidth, 32)
  webbrowser1.Move(0, 36, ME.ClientWidth, ME.ClientHeight - 70)
  button2.Move(ME.clientwidth - 88, ME.ClientHeight - 32, 88, 32)
END

PUBLIC SUB Button2_Click()
  ME.close
END

PUBLIC SUB SetPath(sPath AS String)

  WebBrowser1.Path = sPath

END