ABAP中的三控件

1. 下拉列表

PARAMETER: p_lang(20) as listbox visible length 22.
AT SELECTION-SCREEN OUTPUT.

PERFORM setlist.

FORM setlist.
	type-pools vrm.
	DATA values TYPE vrm_values with header line.

	values-key = 'CHINESE'. values-text = '中国人'. APPEND values.
	values-key = 'AMERICAN'. values-text = '美国人'. APPEND values.
	values-key = 'ENGLISH'. values-text = '英国人'. APPEND values.
	values-key = 'FRENCH'. values-text = '法国人'. APPEND values.

	call FUNCTION 'VRM_SET_VALUES'
		EXPORTING
			id = 'P_LANG'
			values = values[]
		EXCEPTIONS
			id_illegal_name = 1
			OTHERS = 2.
ENDFORM.

2. 单选按钮

PARAMETER: p_rad1 RADIOBUTTON GROUP g1.
		   p_rad2 RADIOBUTTON GROUP g1.

3. 复选框

PARAMETER: p_box as CHECKBOX USER-COMMAND comm1.

AT SELECTION-SCREEN.

IF sy-ucomm = 'COMM1'.
	MESSAGE i001(00) WITH '单击复选框'.
ENDIF.