label_list.dlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· DLG 代码 · 共 31 行

/*
   label list

*!  VERSION 1.1.0  28mar2005

*/

VERSION 9.0

INCLUDE _std_small
INCLUDE header

HELP hlp1, view("help label")
RESET res1

DIALOG main, label("label list - List value labels") tabtitle("Main")
BEGIN
  TEXT     tx_lab    _lft      _top      _iwd      .,		/*
		*/ label("Labels to list: (leave empty for all)")

  COMBOBOX cb_lab    @         _ss       @         _ht13,	/*
		*/ append					/*
		*/ contents(valuelabels)			/*
		*/ label("Label")
END

PROGRAM command
BEGIN
	put "label list " main.cb_lab
END