谁能给个listview的分页显示的例子 ||||基本好了`非常感谢afan [已解决]

afan

快点审核吧``      能否把这个代码改为简单点的`` 这有点看不懂``
还有像这样的INI 能不能按名字查找？
...
410521a 发表于 2010-7-1 14:39

    先 $a = IniReadSection()
再_ArraySearch($a, '名字', 0, 0, 0, 1, 1, 1))

如果不是在ini文件中搜索，而在listview中搜索，可以用_GUICtrlListView_FindInText

131738

查找就到ini里面查找撒
afan 发表于 2010-6-30 20:25

不是梦话哦。。。。。

" 撒 "这不是武汉乡音么。。。。。。。。。。。。。。。。

410521a

谢谢师傅   马上试试

410521a

回复 46# afan


    如果搜索名字的同时``也能搜索关键子怎么做？  与下边的结合

Func _sou()
              $sodu=GUICtrlRead($Input5_1)
          $read = IniRead($udata,"数据库",$sodu,"")
           If $sodu="" Then
                   MsgBox(16,"错误","搜索框没有输入数据!")
            ElseIf not $read="" Then
            _GUICtrlListView_DeleteAllItems($ListView5_1)
                    $iindex=GUICtrlCreateListViewItem($read, $ListView5_1)
                   _GUICtrlListView_ClickItem($ListView5_1, $iIndex)
            Else
                  MsgBox(64,"提示",$sodu&"未找到!")
            EndIf
EndFunc

afan

不是梦话哦。。。。。

" 撒 "这不是武汉乡音么。。。。。。。。。。。。。。。。
131738 发表于 2010-7-1 17:46

    哦，这个，好多地方都有这个尾音吧~ 呵呵

afan

回复  afan


    如果搜索名字的同时``也能搜索关键子怎么做？  与下边的结合

Func _sou()
              ...
410521a 发表于 2010-7-1 17:51

Func _sou()
        Local $sodu = GUICtrlRead($Input5_1)
        If $sodu = "" Then Return MsgBox(16, "错误", "搜索框没有输入数据!")
        Local $read = IniRead($udata, "数据库", $sodu, "")
        If $read <> "" Then
                _GUICtrlListView_DeleteAllItems($ListView5_1)
                Local $iindex = GUICtrlCreateListViewItem($read, $ListView5_1)
                _GUICtrlListView_ClickItem($ListView5_1, $iindex)
        Else
                Local $sR = StringRegExp(FileRead($udata), '\=(' & $sodu & '\|.+)', 3)
                If Not @error Then
                        _GUICtrlListView_DeleteAllItems($ListView5_1)
                        Local $iindex = GUICtrlCreateListViewItem($sR[0], $ListView5_1)
                        _GUICtrlListView_ClickItem($ListView5_1, $iindex)
                Else
                        MsgBox(48, "提示", $sodu & "未找到!")
                EndIf
        EndIf
EndFunc   ;==>_sou

afan

好像存在着效率问题。
两位的代码中，Read函数在创新显示在新页中的数据时，总是会删除之前已经创建的数据 ...
pusofalse 发表于 2010-7-1 15:29

    有个问题，如果一开始即载入全部列表的话，如果数据量很大，会不会很慢？ 而相反的如果照现在的逐次按需载入会不会更快呢？

410521a

管用是管用`` 但你写的代码好迷茫``

Local $sR = StringRegExp(FileRead($udata), '\=(' & $sodu & '\|.+)', 3)
都不知道什么意思`` 哎`` 看不懂啊

afan

回复 53# 410521a


    看来你迷茫的是正则部分，那得补补，因为这个是增强效率，缩减代码的必须手段之一~

410521a

Case $Button[14]
                 _GUICtrlListView_DeleteAllItems($ListView5_1)
                    Go(1) ;首次读取

为什么刷新不管用了？  修改后的数据` 点刷新` 还是没修改之前的` 必须关下listview再打开才是新的`

afan

回复 55# 410521a


    刷新后要重新 $xxx = IniReadSection('x.ini', 'xxx') 读取ini的~ 不然有何用

410521a

回复 56# afan


    搞定`` 非常感谢`` `

还有个问题`` 如果狂点翻页` 翻到头` 再点的话`就会出错了``

afan

回复 57# 410521a


    那是你自己的问题了，自己看看和我的例子的区别吧，我的例子是翻到头就禁止按钮点击了，不管你怎么狂

410521a

。。。真郁闷` `不知道是为什么`` 好像到我的代码里边比你的代码运行反应快``

狂点的话` 来不急 禁用 button


D:\??\??\??01\????+1.au3 (488) : ==> ????????.:
GUICtrlCreateListViewItem($vas[$i][1], $ListView5_1)
GUICtrlCreateListViewItem($vas[^ ERROR

afan

。。。真郁闷` `都不知道是为什么`` 好像到我的代码里边比你的代码运行反应快``

狂点的话` 来不急 禁用  ...
410521a 发表于 2010-7-1 19:22

还有这事？快过电脑，高人啊