[代码]如何在选择画面中显示图片详解编程语言

REPORT ztest_pic_sel_screen. 
TYPE-POOLS cndp. 
*&---------------------------------------------------------------------* 
*& Data Declaration. 
*&---------------------------------------------------------------------* 
DATA: go_docking    TYPE REF TO cl_gui_docking_container, 
go_htmlviewer TYPE REF TO cl_gui_html_viewer, 
go_picture    TYPE REF TO cl_gui_picture. 
DATA g_url  TYPE cndp_url. 
*&---------------------------------------------------------------------* 
*& SELECTION SCREEN. 
*&---------------------------------------------------------------------* 
PARAMETERS: s_matnr TYPE mara-matnr. 
*&---------------------------------------------------------------------* 
*& AT SELECTION-SCREEN OUTPUT. 
*&---------------------------------------------------------------------* 
AT SELECTION-SCREEN OUTPUT. 
CALL FUNCTION 'DP_PUBLISH_WWW_URL' 
EXPORTING 
objid    =   'ZPIC' 
lifetime = cndp_lifetime_transaction 
IMPORTING 
url      = g_url 
EXCEPTIONS 
OTHERS   = 1. 
* Load the go_picture. 
IF sy-subrc = 0. 
PERFORM frm_build_htmlviewer. 
CALL METHOD go_picture->set_display_mode 
EXPORTING 
display_mode = cl_gui_picture=>display_mode_normal. 
CALL METHOD go_picture->load_picture_from_url_async 
EXPORTING 
url = g_url. 
ENDIF. 
*&---------------------------------------------------------------------* 
*&      Form  build_htmlviewer 
*&---------------------------------------------------------------------* 
FORM frm_build_htmlviewer . 
DATA: repid LIKE sy-repid. 
repid = sy-repid. 
IF go_docking IS INITIAL. 
CREATE OBJECT go_docking 
EXPORTING 
repid                       = repid 
dynnr                       = sy-dynnr 
side                        = cl_gui_docking_container=>dock_at_top 
extension                   = 80 
EXCEPTIONS 
cntl_error                  = 1 
cntl_system_error           = 2 
create_error                = 3 
lifetime_error              = 4 
lifetime_dynpro_dynpro_link = 5 
OTHERS                      = 6. 
IF go_htmlviewer IS INITIAL . 
CREATE OBJECT go_picture 
EXPORTING 
parent = go_docking. 
ENDIF . 
ENDIF . 
ENDFORM.