ABAP ALV TOOLBAR 自定义按钮的类型以及listmenu按钮
3.添加自定义的按钮和响应命令
我们在ALV的工具条上增加一些按钮来增加我们自定义的功能,当然也可以在GUI状态中增加,2种的处理方式是不一样的.
我们通过toolbar事件来增加按钮,然后通过user_command事件来实现我们自定义的功能.
在TOOLBAR事件里,我们把自定义的按钮加到参数"e_object"的表属性"mt_toolbar"中可以了.下面是一段示例代码:
FORM. handle_toolbar USING i_object TYPE REF TO cl_alv_event_toolbar_set.
DATA: ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type.
APPEND ls_toolbar TO i_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'PER' TO ls_toolbar-function.
MOVE icon_display_text TO ls_toolbar-icon.
MOVE 'Passenger Info'(201) TO ls_toolbar-quickinfo.
MOVE 'Passenger Info'(201) TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO i_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 'EXCH' TO ls_toolbar-function.
MOVE 2 TO ls_toolbar-butn_type.
MOVE icon_calculation TO ls_toolbar-icon.
MOVE 'Payment in other Curencies'(202) TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disapbled.
APPEND ls_toolbar TO i_object->mt_toolbar.
ENDFORM.
增加自定义按钮的结构如下:
|
Field
|
Description
|
|
FUNCTION
|
功能代码
|
|
BUTN_TYPE
|
按钮类型
可用的按钮类型:
0 Button(normal)
1 Menu and default button
2 Menu
3 分割符
4 Radio button
5 Checkbox
6 Menu entry
|
|
ICON
|
按钮图标(可选)
|
|
TEXT
|
按钮文本(可选)
|
|
QUICKINFO
|
按钮的悬停文本(可选)
|
|
DISABLED
|
灰化
|
在上面的代码例子里，我们增加了一个常规的按钮和一个含有菜单的按钮.通过把按钮的类型设置为1或者2,我们可以增加一个含有菜单的按钮,在事件menu_button还可以实现子菜单:
FORM. handle_menu_button USING i_object TYPE REF TO cl_ctmenu
I_ucomm TYPE syucomm..
CASE i_ucomm.
WHEN ‘EXCH’.
CALL METHOD i_object->add_function
EXPORTING
Fcode = ‘EU’
Text = ‘Euro’.
CALL METHOD i_object->add_function
EXPORTING
Fcode = ‘TRL’
Text = ‘Turkish Lira’.
ENDCASE.
ENDFORM.
为了实现这些自定义的按钮的功能,我们使用USER_COMMAND事件来处理.
FORM. handle_user_command USING i_ucomm TYPE syucomm.
DATA lt_selected_rows TYPE lvc_t_rowid.
DATA ls_selected_row TYPE lvc_s_roid.
CALL METHOD gr_alvgrid->get_selected_rows
IMPORTING
Et_row_no = lt_selected_rows.
READ TABLE lt_selected_rows INTO ls_selected_row INDEX 1.
If sy-subrc ne 0.
MESSAGE S000(su) WITH 'Select a row'(203).
ENDIF.
CASE i_ucomm.
WHEN 'CAR'.
READ TABLE gt_list INDEX ls_selected_row-row_id.
IF sy-subrc = 0.
CALL FUNCTION 'ZDISPLAY_CARRIER_INFO'
EXPORTING carrid = gt_list-carrid
EXCEPTIONS carrier_not_found = 1
Oters = 2.
ENDIF.
WHEN 'EU'.
READ TABLE gt_list INDEX ls_selected_row-row_id.
IF sy-subrc = 0.
CALL FUNCTION 'ZPOPUP_CONV_CURR_ADD_DISPLAY'
EXPORTING monun = 'EU'
Quant = gt_list-paymentsum.
ENDIF.
ENDCASE.
ENDFORM.
我们通过方法get_selected_rows来获取选择的行.功能EXCH有2个子功能,所以我们不需要实现它.为了能显示ALV附加的一些功能,可以在ALV实例创建的时候调用set_toolbar_interactive方法.
CALL METHOD gr_alv_grid->set_toolbar_interactive.
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/17204926/viewspace-614960/，如需转载，请注明出处，否则将追究法律责任。
转载于:http://blog.itpub.net/17204926/viewspace-614960/