Source

vlocity-vinstall-gambas / Vlocity / FrmUsrList.class

' Gambas class file

PUBLIC SUB Run() AS Boolean
  '#ME.Show()
  '# RETURN ME.ComboBox1.Text
  RETURN ME.ShowModal()

END

PUBLIC SUB btnOK_Click() 
 'RETURN ME.ComboBox1.Text
 'ME.Close()
 Main.ImportUserName = ME.ComboBox1.Current.Text
  ME.Close(1)

END

PUBLIC SUB btnCancel_Click()

  ME.Close(0)

END


PUBLIC SUB Form_Open()
  'ME.ComboBox1.Clear()
  ME.List_Accounts()

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