找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 如何让软件菜单分上下页且指定数量显示！ ...
返回列表 发新帖
查看: 5609|回复: 9

[系统综合] 如何让软件菜单分上下页且指定数量显示！

 火 [复制链接]
那片叶子
发表于 2014-9-26 09:17:33 | 显示全部楼层 |阅读模式


如图，如何让其指定数量分成上下页读取！例：只能显示2个，我按下一页读下2个，我按上一页读上2个！
如何, 软件

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
shqf
发表于 2014-9-26 13:52:30 | 显示全部楼层
本帖最后由 shqf 于 2014-9-26 13:55 编辑

方法很多，以下是我常用的一种。
game.ini配置要如下:
[QQ]
path=D:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe
page=1
[Q11Q]
path=D:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe
page=1
[Q21Q]
path=D:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe
page=2
[Q432Q]
path=D:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe
page=2
[Q786Q]
path=D:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe
page=3
[5627427Q]
path=D:\Program Files\Tencent\QQ\QQProtect\Bin\QQProtect.exe
page=3
脚本代码如下：
#NoTrayIcon
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

If Not FileExists(@ScriptDir & "\game.ini") Then
        MsgBox(0, "", "缺少本文件game.ini文件有误")
        Exit
Else
        Global $var = IniReadSectionNames(@ScriptDir & "\game.ini") ;读取文件信息
        If @error Then 
                MsgBox(4096, "提示", "读取INI文件出错！")
                Exit
        EndIf
EndIf

Local $page = 1
$Form1_1 = GUICreate("菜单", 782, 560, 192, 114, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SYSMENU, $WS_CAPTION, _
                $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS))
$ListView1 = GUICtrlCreateListView("", 0, 0, 500, 400)
GUICtrlSetBkColor(-1, 0x008000)
GUICtrlSetStyle(-1, $LVS_ICON)
$PageUp = GUICtrlCreateButton("上一页", 600, 56, 80, 25)
$PageDown = GUICtrlCreateButton("下一页", 600, 100, 80, 25)
GUISetState(@SW_SHOW)

_Load(1) ;listview显示第一页项目

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $PageUp
                        If $page = 1 Then
                                MsgBox(0, "", "已到第一页")
                        Else
                                $page -= 1
                                _Load($page)
                        EndIf
                Case $PageDown
                        If $page = 3 Then
                                MsgBox(0, "", "已到最后一页")
                        Else
                                $page += 1
                                _Load($page)
                        EndIf
        EndSwitch
WEnd

Func _Load($npage);
        _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
        For $i = 1 To $var[0]
                $path = IniReadSection(@ScriptDir & "\game.ini", String($var[$i]));读取配置
                If $path[2][1] = $npage Then
                        If FileExists($path[1][1]) Then;检查路径是否正确
                                $hImage = _GUIImageList_Create(32, 32, 5, 1) ;图标显示大小
                                _GUIImageList_AddIcon($hImage, $path[1][1], 0, True) ;$himage为包含所需图像的图标
                                _GUICtrlListView_SetImageList($ListView1, $hImage, 0);将控件的图像列表
                                _GUICtrlListView_InsertItem($ListView1, $var[$i], -1, 0) ;列表的末尾添加一个新的项目
                        Else
                                MsgBox(0, "警警!!", "ini文件有误");路径不正确时提示
                                Exit
                        EndIf
                EndIf
        Next        
EndFunc   ;==>_Load
回复

举报

那片叶子
 楼主| 发表于 2014-9-26 14:59:32 | 显示全部楼层
回复 2# shqf


    这个思路非常不错！
回复

举报

那片叶子
 楼主| 发表于 2014-9-26 15:07:18 | 显示全部楼层
回复 2# shqf


    那顺便问句，我如何获取到ini中 page=1   ，=1的数量有多少，等于2的数量有多少？？
回复

举报

shenrenba
发表于 2014-9-30 15:26:25 | 显示全部楼层 
#include <Array.au3>
#include <WinAPI.au3>
#include <GDIPlus.au3>
#include "GUICtrlOnHover.au3"
Opt("GUIOnEventMode", 1)
Local $PicPath = @WindowsDir & "\Web\Wallpaper"
Local $dqpage = 1, $zjpage = 1, $pic[1], $comboread, $ctrlidgraphic, $ctrlid, $hGUI
#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Form1", 600, 400, -1, -1, -1, -1, WinGetHandle(AutoItWinGetTitle()))
GUISetOnEvent(-3, "GuiClick")
Local $Button1 = GUICtrlCreateButton("上一页", 20, 360, 130, 30)
GUICtrlSetOnEvent(-1, "GuiClick")
GUICtrlSetState(-1, 128)
Local $Button2 = GUICtrlCreateButton("下一页", 180, 360, 130, 30)
GUICtrlSetOnEvent(-1, "GuiClick")
GUICtrlSetState(-1, 128)
Local $Label1 = GUICtrlCreateLabel("当前是第" & $dqpage & "页，共计" & $zjpage & "页，每页显示", 340, 370, 200, 17)
GUICtrlSetOnEvent(-1, "GuiClick")
Local $Combo1 = GUICtrlCreateCombo("", 540, 365, 40, 20, 0x0003)
GUICtrlSetData(-1, "1|4|9|16|100", 9)
GUICtrlSetOnEvent(-1, "GuiClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $PicList = PicRead($PicPath)
;~ $PicList[0] = 30
;~ ReDim $PicList[30]
If Not @error Then
        PicCreate()
        PicShow()
EndIf

While 1
        Sleep(100)
WEnd

Func GuiClick()
        Switch @GUI_CtrlId
                Case -3
                        Exit
                Case $Button1
                        $dqpage -= 1
                        GUICtrlSetState($Button1, 128)
                        GUICtrlSetState($Button2, 128)
                        PicShow()
                Case $Button2
                        $dqpage += 1
                        GUICtrlSetState($Button1, 128)
                        GUICtrlSetState($Button2, 128)
                        PicShow()
                Case $Combo1
                        PicCreate()
                        PicShow()
        EndSwitch
EndFunc   ;==>GuiClick

Func PicRead($sDir)
        If StringInStr(FileGetAttrib($sDir), "D") = 0 Then Return SetError(1, 0, "")
        Local $oFSO = ObjCreate("Scripting.FileSystemObject")
        Local $objDir
        Local $aDir = StringSplit($sDir, "|", 2)
        Local $iCnt = 0
        Local $sFiles = ""
        Do
                $objDir = $oFSO.GetFolder($aDir[$iCnt])
                For $aItem In $objDir.SubFolders
                        $sDir &= "|" & $aItem.Path
                Next
                For $aItem In $objDir.Files
                        If StringRight($aItem.Path, 3) = "jpg" Then $sFiles &= $aItem.Path & "|"
                Next
                $iCnt += 1
                If UBound($aDir) <= $iCnt Then $aDir = StringSplit($sDir, "|", 2)
        Until UBound($aDir) <= $iCnt
        Return StringSplit(StringTrimRight($sFiles, 1), "|")
EndFunc   ;==>PicRead

Func PicCreate()
        If $comboread = GUICtrlRead($Combo1) Then Return
        $comboread = GUICtrlRead($Combo1)
        For $i = 0 To UBound($pic) - 1
                GUICtrlDelete($pic[$i])
        Next
        ReDim $pic[1]
        ReDim $pic[$comboread]
        $dqpage = 1
        $zjpage = Ceiling($PicList[0] / $comboread)
        For $i = 0 To $comboread - 1
                $pic[$i] = GUICtrlCreatePic("", 20 * (Mod($i, Sqrt($comboread)) + 1) + Mod($i, Sqrt($comboread)) * (560 - 20 * Sqrt($comboread)) / Sqrt($comboread), 20 * (Floor($i / Sqrt($comboread)) + 1) + Floor($i / Sqrt($comboread)) * (330 - 20 * Sqrt($comboread)) / Sqrt($comboread), (560 - 20 * Sqrt($comboread)) / Sqrt($comboread), (330 - 20 * Sqrt($comboread)) / Sqrt($comboread))
                GUICtrlSetOnHover(-1, "_Hover_Func", "_Hover_Func")
        Next
EndFunc   ;==>PicCreate

Func PicShow()
        GUICtrlSetData($Label1, "当前是第" & $dqpage & "页，共计" & $zjpage & "页，每页显示")
        For $i = 0 To $comboread - 1
                If $i + 1 + ($dqpage - 1) * $comboread < $PicList[0] Then
                        GUICtrlSetImage($pic[$i], $PicList[$i + 1 + ($dqpage - 1) * $comboread])
                Else
                        GUICtrlDelete($pic[$i])
                        $pic[$i] = GUICtrlCreatePic("", 20 * (Mod($i, Sqrt($comboread)) + 1) + Mod($i, Sqrt($comboread)) * (560 - 20 * Sqrt($comboread)) / Sqrt($comboread), 20 * (Floor($i / Sqrt($comboread)) + 1) + Floor($i / Sqrt($comboread)) * (330 - 20 * Sqrt($comboread)) / Sqrt($comboread), (560 - 20 * Sqrt($comboread)) / Sqrt($comboread), (330 - 20 * Sqrt($comboread)) / Sqrt($comboread))
                        GUICtrlSetOnHover(-1, "_Hover_Func", "_Hover_Func")
                EndIf
        Next
        If $dqpage = 1 Then
                GUICtrlSetState($Button1, 128)
                If $zjpage = 1 Then
                        GUICtrlSetState($Button2, 128)
                Else
                        GUICtrlSetState($Button2, 64)
                EndIf
        ElseIf $dqpage >= $zjpage Then
                $dqpage = $zjpage
                GUICtrlSetState($Button2, 128)
        ElseIf $dqpage < 1 Then
                $dqpage = 1
                GUICtrlSetState($Button2, 64)
                Return
        Else
                GUICtrlSetState($Button1, 64)
                GUICtrlSetState($Button2, 64)
        EndIf
EndFunc   ;==>PicShow

Func _Hover_Func($iCtrlID, $iParam)
        Local $ctrlidpos, $hStatic, $aPos, $iwidth, $iheight
        If $ctrlid <> $iCtrlID Then
                GUICtrlDelete($ctrlidgraphic)
                If $PicList[0] < $iCtrlID + $comboread * ($dqpage - 1) - 5 Then Return $ctrlid = ""
                $ctrlid = $iCtrlID
                $ctrlidpos = ControlGetPos($Form1, "", $iCtrlID)
                $ctrlidgraphic = GUICtrlCreateGraphic($ctrlidpos[0] - 1, $ctrlidpos[1] - 1, $ctrlidpos[2] + 2, $ctrlidpos[3] + 2)
                GUICtrlSetColor(-1, 0x00000FF)
                $aPos = WinGetPos($Form1, "")
                _GDIPlus_Startup()
                $hImage = _GDIPlus_ImageLoadFromFile($PicList[$iCtrlID + $comboread * ($dqpage - 1) - 6])
                $hHeight = _GDIPlus_ImageGetHeight($hImage)
                $hWidth = _GDIPlus_ImageGetWidth($hImage)
                _GDIPlus_ImageDispose($hImage)
                _GDIPlus_Shutdown()
                If $aPos[0] + 1010 > @DesktopWidth Then
                        $iwidth = $aPos[0] - 505
                Else
                        $iwidth = $aPos[0] + 610
                EndIf
                If $aPos[1] + $hHeight * (500 / $hWidth) >= @DesktopHeight Then
                        Local $wpos = WinGetPos("[class:Shell_TrayWnd]")
                        $iheight = @DesktopHeight - $hHeight * (500 / $hWidth) - $wpos[3]
                Else
                        $iheight = $aPos[1]
                EndIf
                $hGUI = GUICreate("Test", 500, $hHeight * (500 / $hWidth), $iwidth, $iheight, 0x00800000 + 0x80000000, BitOR(0x00000080, 0x00000008))
                GUICtrlCreatePic("", 0, 0, 500, $hHeight * (500 / $hWidth))
                GUICtrlSetImage(-1, $PicList[$iCtrlID + $comboread * ($dqpage - 1) - 6])
                GUISetState(@SW_DISABLE, $hGUI)
                GUISetState(@SW_SHOWNOACTIVATE, $hGUI)
        ElseIf $iParam = 2 Then
                GUIDelete($hGUI)
                GUICtrlDelete($ctrlidgraphic)
                $ctrlid = ""
        EndIf
EndFunc   ;==>_Hover_Func
回复

举报

chzj589
发表于 2014-10-1 11:04:28 | 显示全部楼层
回复 5# shenrenba
没有　GUICtrlOnHover.au3　文件
回复

举报

cheng8457
发表于 2014-10-1 15:39:01 | 显示全部楼层
这个思路非常不错！
回复

举报

wangms
发表于 2014-10-2 17:10:05 | 显示全部楼层
回复 5# shenrenba


    不错，谢谢分享！！
回复

举报

wangms
发表于 2014-10-6 15:52:00 | 显示全部楼层
前来学习。。。。。。。。。。。。。。。。。
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 16:01 , Processed in 0.078819 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表