Source

vlocity-vinstall-gambas / Vlocity / .svn / text-base / FrmUsrList.class.svn-base

' Gambas class file

PUBLIC SUB Run() AS Boolean

  RETURN NOT ME.ShowModal()

END

PUBLIC SUB btnOK_Click()

  ME.Close(TRUE)

END

PUBLIC SUB btnCancel_Click()

  ME.Close

END


PUBLIC SUB Form_Open()

  ME.List_Accounts()

END
PUBLIC SUB List_Accounts()
  
  DIM s AS String
  FOR EACH s IN Main.ImportUsers
    ME.ComboBox1.Add(s)
  NEXT 
  ME.ComboBox1.ReadOnly = TRUE
  
END

PUBLIC SUB ComboBox1_Click()

  Main.ImportUserName = Trim(LAST.Text)

END