分裂容器

把一個容器分爲N×M格子的形式

把一個容器分爲很多個,每個顯示不同的圖片<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

**分裂容器

DATA ref_splitter TYPE REF TO cl_gui_splitter_container.

DATA:ref_pic_left TYPE REF TO cl_gui_picture,

     ref_pic_right TYPE REF TO cl_gui_picture.

DATA:cell_1_1 TYPE REF TO cl_gui_container,

     cell_1_2 TYPE REF TO cl_gui_container.

DATA:l_url1 TYPE cndp_url, " URL地址

     l_url2 TYPE cndp_url. " URL地址

 

PBO裏的代碼:

  IF my_container IS INITIAL.

    CREATE OBJECT my_container

        EXPORTING

            container_name = 'CONTROL_AREA1'

        EXCEPTIONS

            OTHERS = 1.

*****分裂容器

把容器分爲2×3的6個小格子

    CREATE OBJECT ref_splitter

    EXPORTING

      parent = my_container

      rows = 2

      columns = 3

    EXCEPTIONS

      OTHERS = 1.

* 第一個

    CALL METHOD ref_splitter->get_container

      EXPORTING

        row       = 1

        column    = 1

      RECEIVING

        container = cell_1_1.

* 第二個

    CALL METHOD ref_splitter->get_container

      EXPORTING

        row       = 1

        column    = 2

      RECEIVING

        container = cell_1_2.

*配置第一個

    CREATE OBJECT ref_pic_left

    EXPORTING

      parent = cell_1_1

    EXCEPTIONS

      OTHERS = 1.

*第二個

    CREATE OBJECT ref_pic_right

    EXPORTING

    parent = cell_1_2

    EXCEPTIONS

    OTHERS = 1.

 

*定義圖片地址

 

l_url1 = 'http://t3.baidu.com/it/u=3399704954,2909084794&fm=3&gp=41.jpg'

.

    CALL METHOD ref_pic_left->load_picture_from_url

      EXPORTING

        url    = l_url1

      EXCEPTIONS

        OTHERS = 1.

l_url2 = 'http://t10.baidu.com/it/u=2954044487,1626568478&fm=3&gp=1.jpg'

.

    CALL METHOD ref_pic_right->load_picture_from_url

      EXPORTING

        url    = l_url2

      EXCEPTIONS

        OTHERS = 1.

 

 
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章