| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 896 人关注过本帖
标题:【求助】如何顺序打印改变后的列表框内容?
只看楼主 加入收藏
lidongcen
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-2-16
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:11 
【求助】如何顺序打印改变后的列表框内容?
假设列表框内容的初始排列顺序是a,b,c,d,e,现在我用列表框左侧的移动滑块把顺序排列成了c,b,a,d,e,那么如何按新的顺序,依次打印c,b,a,d,e?哈哈,不知道说清楚了没有?
搜索更多相关主题的帖子: 如何 移动 
2011-10-05 17:13
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:10 
CLEAR ALL
CLOSE DATABASES ALL
CLEAR

goForm = CREATEOBJECT("C_Form")
goForm.Show
READ EVENTS

CLOSE DATABASES ALL
CLEAR ALL
RETURN

DEFINE CLASS C_Form AS Form
    Caption = "测试例程"
    MinWidth = 800
    MinHeight = 600
    AutoCenter = .T.
    KeyPreview = .T.
   
    ADD OBJECT List1  AS my_ListBox
    ADD OBJECT Label1 AS Label WITH Caption = ""
   
    PROCEDURE Arrange
        WITH ThisForm.List1
            .Top = 5
            .Left = 5
            .Height = ThisForm.Height - .Top - 5
            .Width = ThisForm.Width / 2 - .Left - 5
        ENDWITH
        WITH ThisForm.Label1
            .Top = 5
            .Left = ThisForm.Width / 2 + 5
            .Height = ThisForm.Height - .Top - 5
            .Width = ThisForm.Width - .Left - 5
        ENDWITH
    ENDPROC
   
    PROCEDURE Activate
        ThisForm.Arrange
    ENDPROC
   
    PROCEDURE Resize
        ThisForm.Arrange
    ENDPROC
   
    #DEFINE K_ESC    27
    PROCEDURE KeyPress(tnKeyCode, tnShiftAltCtrl)
        IF tnKeyCode == K_ESC
            RELEASE ThisForm
        ENDIF
    ENDPROC
    #UNDEFINE K_ESC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
    PROCEDURE List1.Init
        DODEFAULT()
        WITH This
            .MoverBars = .T.
            DIMENSION .ItemArray[7]
            .ItemArray[1] = "AAA"
            .ItemArray[2] = "BBB"
            .ItemArray[3] = "CCC"
            .ItemArray[4] = "DDD"
            .ItemArray[5] = "EEE"
            .ItemArray[6] = "FFF"
            .ItemArray[7] = "GGG"
            .SetItems
        ENDWITH
    ENDPROC
   
    PROCEDURE List1.OnMoveItem(tnSource, tnShift, tnCurrentIndex, tnMoveBy)
        DODEFAULT(tnSource, tnShift, tnCurrentIndex, tnMoveBy)
        ThisForm.Label1.Refresh
    ENDPROC
   
    #DEFINE CR_LF    CHR(13)+CHR(10)
    PROCEDURE Label1.Refresh
        LOCAL lnIndex, lcText
        
        lcText = ""
        WITH ThisForm.List1
            IF .MoverBars
                FOR lnIndex = 1 TO .ListCount
                    lcText = lcText + .ItemArray[lnIndex]
                    IF lnIndex < .ListCount
                        lcText = lcText + CR_LF
                    ENDIF
                NEXT
            ENDIF
        ENDWITH
        This.Caption = lcText
        
    ENDPROC
    #UNDEFINE CR_LF
   
ENDDEFINE

DEFINE CLASS my_ListBox AS ListBox
   
    PROCEDURE Init
        WITH This
            IF .MoverBars .AND. (.RowSourceType <= 1) .AND. (VARTYPE(.ItemArray) == "U")
                .AddProperty("ItemArray[1]")
                .ItemArray[1] = Null
            ENDIF
        ENDWITH
    ENDPROC
   
    PROCEDURE MoverBars_Assign(tlOn)
        WITH This
            IF .RowSourceType <= 1
                .MoverBars = tlOn
                IF .MoverBars
                    .AddProperty("ItemArray[1]")
                    .ItemArray[1] = Null
                ENDIF
            ELSE
                MESSAGEBOX("ListBox类型控件" + .Name + "使用MoverBars属性必须设置.RowSourceType = 0 或 1", 64, This.Class)
                .MoverBars = .F.
            ENDIF
        ENDWITH
    ENDPROC
   
    PROCEDURE SetItems
        LOCAL lnIndex
        
        WITH This
            IF .MoverBars .AND. (.RowSourceType <= 1) .AND. (VARTYPE(.ItemArray) != "U")
                .Clear
                FOR lnIndex = 1 TO ALEN(.ItemArray,1)
                    IF !ISNULL(.ItemArray[lnIndex])
                        .AddItem(.ItemArray[lnIndex])
                    ELSE
                        ADEL(.ItemArray, lnIndex)
                    ENDIF
                NEXT
            ENDIF
        ENDWITH
        
    ENDPROC
   
    PROCEDURE OnMoveItem(tnSource, tnShift, tnCurrentIndex, tnMoveBy)
        LOCAL lcItem
        
        WITH This
            IF .MoverBars .AND. (.RowSourceType <= 1) .AND. (VARTYPE(.ItemArray) != "U")
                lcItem = .ItemArray[tnCurrentIndex]
                .ItemArray[tnCurrentIndex] = .ItemArray[tnCurrentIndex + tnMoveBy]
                .ItemArray[tnCurrentIndex + tnMoveBy] = lcItem
            ENDIF
        ENDWITH
    ENDPROC
   
ENDDEFINE

[ 本帖最后由 TonyDeng 于 2011-10-5 21:39 编辑 ]

授人以渔,不授人以鱼。
2011-10-05 21:17
lidongcen
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-2-16
收藏
得分:0 
高手。我慢慢研究。谢谢!
2011-10-05 21:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
发现问题告诉我,这个自定义类完善了我自己也留着用。

授人以渔,不授人以鱼。
2011-10-05 21:37
lidongcen
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-2-16
收藏
得分:0 
受你的启发,我用以下办法解决了:
FOR i=1 TO THISFORM.list1.LISTCOUNT
    ? THISFORM.list1.LIST(i)
NEXT
2011-10-05 22:51
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
噫,list是等效于我那个数组的么?没留意,以为它是跟着ListItem走的。

授人以渔,不授人以鱼。
2011-10-05 23:09
GUNTER
Rank: 1
等 级:新手上路
帖 子:12
专家分:9
注 册:2011-10-6
收藏
得分:0 
SELE XXXX
SET FILTER TO LEFT(字段名,1)=LISTITEM
2011-10-06 18:25
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
上述一段代码中
PROCEDURE List1.Init
        DODEFAULT()
        WITH This
            .MoverBars = .T.
            DIMENSION .ItemArray[7]
            .ItemArray[1] = "AAA"
            .ItemArray[2] = "BBB"
            .ItemArray[3] = "CCC"
            .ItemArray[4] = "DDD"
            .ItemArray[5] = "EEE"
            .ItemArray[6] = "FFF"
            .ItemArray[7] = "GGG"
            .SetItems    **此句是什么意思?好象没有此句代码运行时不显示列表框中的AAA,BBB,CCC,等内容
        ENDWITH
    ENDPROC
2011-12-11 16:00
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
.SetItems
是自定义类my_ListBox中的自定义方法,你看看那个代码就知道。

授人以渔,不授人以鱼。
2011-12-11 22:16
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1547
专家分:184
注 册:2006-6-3
收藏
得分:0 
再一次请教一下:

PROCEDURE MoverBars_Assign(tlOn)  &&这是什么过程?里面的参数啥含义?
        WITH This
            IF .RowSourceType <= 1
                .MoverBars = tlOn   &&表示何义
                IF .MoverBars
                    .AddProperty("ItemArray[1]")
                    .ItemArray[1] = Null
                ENDIF
            ELSE
                MESSAGEBOX("ListBox类型控件" + .Name + "使用MoverBars属性必须设置.RowSourceType = 0 或 1", 64, This.Class)
                .MoverBars = .F.
            ENDIF
        ENDWITH
    ENDPROC
2011-12-12 09:17
快速回复:【求助】如何顺序打印改变后的列表框内容?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016786 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved