frmmain.bis

用VB实现的编译器的源代码

class frmMain

  <definitions>

  variable form
    MetaVariable
    [""]
  end variable

  variable lblInfo
    Control <controlling ctlLblInfo>
    [""]
  end variable

  variable txtFile
    Control <controlling ctlTxtFile>
    [""]
  end variable

  variable cmdOpen
    Control <controlling ctlCmdOpen>
    [""]
  end variable

  variable txtView
    Control <controlling ctlTxtView>
    [""]
  end variable

  <methods>

  method void show
    assignForm fixed ["Text Viewer"] [@521] [@404]
    //setFormIcon ["C:\Path\Icon.Ico"]
    addControl Label ctlLblInfo
    addControl TextBox ctlTxtFile
    addControl CommandButton ctlCmdOpen
    addControl TextArea ctlTxtView

    set this.form [?R:Form]
    set this.lblInfo [?R:ctlLblInfo]
    set this.txtFile [?R:ctlTxtFile]
    set this.cmdOpen [?R:ctlCmdOpen]
    set this.txtView [?R:ctlTxtView]

    set this.lblInfo.visible [!true]
    set this.lblInfo.left [@0]
    set this.lblInfo.top [@0]
    set this.lblInfo.width [@289]
    set this.lblInfo.height [@41]
    set this.lblInfo.autoSize [!true]
    set this.lblInfo.caption ["Please enter the name of the file you want to read and click 'Open'."]

    set this.txtFile.visible [!true]
    set this.txtFile.left [@0]
    set this.txtFile.top [@16]
    set this.txtFile.width [@449]
    set this.txtFile.height [@25]
    set this.txtFile.text [""]

    set this.cmdOpen.visible [!true]
    set this.cmdOpen.left [@448]
    set this.cmdOpen.top [@16]
    set this.cmdOpen.width [@65]
    set this.cmdOpen.height [@25]
    set this.cmdOpen.caption ["Open"]
    > this.cmdOpen.zOrder 1 [@0]

    set this.txtView.visible [!true]
    set this.txtView.left [@0]
    set this.txtView.top [@48]
    set this.txtView.width [@513]
    set this.txtView.height [@329]
    set this.txtView.text ["No file opened yet."]
    set this.txtView.fontName ["Courier New"]

    windowLoop
  end method

  method void event_Form_Unload
    leave
  end method

  method void event_ctlCmdOpen_Click
    > AppMain.loadFile
  end method

end class