Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7189286
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2008-07-30 16:33:29

 

PROGRAM z_barry_test_button_icon .

DATA: ok_code TYPE sy-ucomm,
      save_ok LIKE ok_code,
      output(8) TYPE c.
DATA: button1(50) ,flag .

START-OF-SELECTION.
  button1 = 'Start'.
  CALL SCREEN 100.

*----------------------------------------------------------------------*
*  MODULE user_command_0100 INPUT
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'BUTTON_EXIT'.
      LEAVE PROGRAM.
    WHEN 'BUTTON_1'.
      output = 'Button 1'(001).
    WHEN 'BUTTON_2'.
    WHEN OTHERS.
      output = save_ok.
  ENDCASE.
  IF flag = 'X'.
    button1 = text@测试'.
    flag = ''.
  ELSE.
    CALL FUNCTION 'ICON_CREATE'
      EXPORTING
        name                  = 'ICON_DISPLAY'
        text                  = 'TEST'
        info                  = 'Display text'
        add_stdinf            = 'X'
      IMPORTING
        RESULT                = button1
      EXCEPTIONS
        icon_not_found        = 1
        outputfield_too_short = 2
        OTHERS                = 3.
    flag = 'X'.
  ENDIF.
ENDMODULE.                    "user_command_0100 INPUT


*PROCESS BEFORE OUTPUT.
*
*PROCESS AFTER INPUT.
*  MODULE USER_COMMAND_0100.

阅读(5365) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2009-08-28 15:27:53

补充一下,屏幕0100上名为button1的按钮的属性中必须勾上“输出字段”。