Xbasic

OBJECT.COMMAND Function

Syntax

.Command([C command])

Arguments

command

The command to send to the object.

Description

Send a command notification to an object that excepts commands.

Discussion

The <OBJECT>.COMMAND() method applies to:

Alpha Anywhere (for <OBJECT> use the keyword "A5")
Control Panel (for <OBJECT> use the keyword "CONTROLPANEL")
Browses (for <OBJECT> use either the <BROWSE> pointer or the normalized name of the browse)
Forms (for <OBJECT> use either the <FORM> pointer or the normalized name of the form)
Form Controls (for <OBJECT> use the <CONTROL> pointer or the address of the control)

The <OBJECT>.COMMAND() method sends a command notification to an object that accepts commands.

Example

The following example shows how to use the CONTROLPANEL.COMMAND() method to limit the number of records that a user can save in a demonstration application.

dim t as P
dim new_code as C
dim tables as C
dim i as N
dim count as N
new_code = <<%code% 
 t = table.current() 
 if (t.recno()> 30) then 
 cancel() 
 ui_msg_box("Notice","Using an evaluation version. Can't save more than 30 records.") 
 end if 
 %code% 
 tables = a5.Table_Enum() 

 count = line_count(tables) 
 for i = 1 to count 
 StatusBar.percent(i,count) 
 table_i = word(tables,i,crlf()) 
 table_name = table.name_normalize(table_i) 
 Xbasic_wait_for_idle() 
 controlPanel.SetFocus(table_i,"table") 
 Xbasic_wait_for_idle() 
 ControlPanel.command("fieldrules") 
 Xbasic_wait_for_idle() 

 cmd = "Rule_System:" + table_name + ".code.CanSaveRecord" 
 eval(cmd) = new_code 
 rule_system.command("FILE_SAVE") 
 Xbasic_wait_for_idle() 
 rule_system.close() 
 next i

Limitations

Desktop applications only.

See Also