请教软件管理器多页切换的做法-『提问交流』-AUTOIT CN

872777825 发表于 2013-6-26 14:38:36

请教软件管理器多页切换的做法

代码如下#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <StaticConstants.au3>
Local $B1box, $boxlis = 1, $boxspaceY = 80, $boxbjX = 10, $boxbjY = 30
Local $B1TXT, $txtlis = 1, $txtspaceY = 80, $txtbjx = 100, $txtbjy = 15

$Form1 = GUICreate("Form1", 620, 440)
$Button1 = GUICtrlCreateButton("网络软件", 16, 32, 97, 25)
$Button2 = GUICtrlCreateButton("系统工具", 136, 32, 105, 25)
$Button3 = GUICtrlCreateButton("影音视听", 264, 32, 97, 25)
$Checkbox1 = GUICtrlCreateCheckbox("全选 / 不选", 376, 32, 100, 25)
$Button4 = GUICtrlCreateButton("一键安装", 504, 32, 97, 25)
GUISetState()
$Form2 = GUICreate("", 600, 340, 10,100,$WS_POPUP, $WS_EX_MDICHILD,$Form1)

For $i = 0 To UBound($B1box) - 1
$B1box[$i] = GUICtrlCreateCheckbox('', Mod($i, $boxlis) + $boxbjX, $boxspaceY * Floor($i / $boxlis) + $boxbjY, 13, 13)
Next

For $i = 0 To UBound($B1TXT) - 1
$B1TXT[$i] = GUICtrlCreateLabel(IniRead("instdata.ini", "网络软件", "name" & $i, ""), Mod($i, $txtlis) + $txtbjx, $txtspaceY * Floor($i / $txtlis) + $txtbjy, 160, 35)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x2f2f2f)
GUICtrlSetBkColor(-1, -2)

Next
_GUIScrollBars_Init($Form2, 0, 58)
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUISetState()

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)                      ;设置垂直滚动条
   #forceref $Msg, $wParam, $lParam
   Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
   Local $index = -1, $yChar, $yPos
   Local $Min, $Max, $Page, $Pos, $TrackPos

   For $x = 0 To UBound($aSB_WindowInfo) - 1
            If $aSB_WindowInfo[$x] = $hWnd Then
                     $index = $x
                     $yChar = $aSB_WindowInfo[$index]
                     ExitLoop
            EndIf
   Next
   If $index = -1 Then Return 0

   ;获取所有垂直滚动条信息
   Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
   $Min = DllStructGetData($tSCROLLINFO, "nMin")
   $Max = DllStructGetData($tSCROLLINFO, "nMax")
   $Page = DllStructGetData($tSCROLLINFO, "nPage")
   ;为稍后进行比较保存位置
   $yPos = DllStructGetData($tSCROLLINFO, "nPos")
   $Pos = $yPos
   $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

   Switch $nScrollCode
   Case $SB_TOP ;点击HOME键盘键
            DllStructSetData($tSCROLLINFO, "nPos", $Min)

   Case $SB_BOTTOM ;点击END键盘键
            DllStructSetData($tSCROLLINFO, "nPos", $Max)

         Case $SB_LINEUP ;点击顶端箭头
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

   Case $SB_LINEDOWN ;点击底部箭头
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

   Case $SB_PAGEUP ;点击滚动箱上端的快速滚动
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

   Case $SB_PAGEDOWN ;点击滚动箱上端的快速滚动
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

   Case $SB_THUMBTRACK ;拖动滚动箱
            DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
   EndSwitch

   ;~ // 设置位置然后修正它. 由于窗口的调整可能会和设置的值不同.

   DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
   _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
   _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
   ;// 如果位置改变, 滚动窗口并升级
   $Pos = DllStructGetData($tSCROLLINFO, "nPos")

   If ($Pos <> $yPos) Then
            _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
            $yPos = $Pos
   EndIf

   Return $GUI_RUNDEFMSG
EndFunc

Func WM_SIZE($hWnd, $Msg, $wParam, $lParam)                            ;设置窗口尺寸
   #forceref $Msg, $wParam
   Local $index = -1, $yChar, $xChar, $xClientMax, $xClient, $yClient, $ivMax
   For $x = 0 To UBound($aSB_WindowInfo) - 1
   If $aSB_WindowInfo[$x] = $hWnd Then
            $index = $x
            $xClientMax = $aSB_WindowInfo[$index]
            $xChar = $aSB_WindowInfo[$index]
            $yChar = $aSB_WindowInfo[$index]
            $ivMax = $aSB_WindowInfo[$index]
            ExitLoop
   EndIf
   Next
   If $index = -1 Then Return 0

   Local $tSCROLLINFO = DllStructCreate($tagSCROLLINFO)

   ;修正客户区域尺寸
   $xClient = BitAND($lParam, 0x0000FFFF)
   $yClient = BitShift($lParam, 16)
   $aSB_WindowInfo[$index] = $xClient
   $aSB_WindowInfo[$index] = $yClient

   ;设置垂直滚动范围和页面大小
   DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
   DllStructSetData($tSCROLLINFO, "nMin", 0)
   DllStructSetData($tSCROLLINFO, "nMax", $ivMax)
   DllStructSetData($tSCROLLINFO, "nPage", $yClient / $yChar)
   _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

   ;设置水平滚动范围和页面大小
   DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
   DllStructSetData($tSCROLLINFO, "nMin", 0)
   DllStructSetData($tSCROLLINFO, "nMax", 2 + $xClientMax / $xChar)
   DllStructSetData($tSCROLLINFO, "nPage", $xClient / $xChar)
   _GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)

   Return $GUI_RUNDEFMSG
EndFunc调用的ini配置文件[网络软件]

name0=2345浏览器官方正式版

name1=迅雷7 官方正式版

name2=腾讯QQ2013 官方正式版

name3=Office2003 精简三合一

name4=PPS网络电视官方正式版

name5=多米音乐盒官方正式版

name6=360安全卫士官方正式版

name7=金山卫士官方正式版

name8=暴风影音官方正式版

name9=搜狗拼音官方正式版

name10=极点五笔官方正式版

name11=925一键备份官方正式版

name12=好压官方正式版

name13=PPTV网络电视官方正式版

name14=看图王官方正式版

name15=系统美化主题官方正式版

name16=看图王官方正式版

name17=系统美化主题官方正式版

[系统工具]

name0=Winrar4.2

name1=VBVC运行库

name2=DX2011

name3=酷我音乐盒

name4=创建快带连接

name5=

name6=

name7=

name8=

[影音视听]

name0=Winrar4.2

name1=VBVC运行库

name2=DX2011

name3=酷我音乐盒

name4=创建快带连接

name5=

name6=

name7=

name8=

如上图小弟想通过按图中三个按钮读取ini配置文件里相应的配置

现在问题是不知道怎么做切换读取ini配置

点全选的时候可以把三个按钮的页面的复选框都选上

一键安装通过判断复选框来进行安装

第一次玩这样的不知道怎么搞了

哪位大大有时间的麻烦指点一下感激不尽

872777825 发表于 2013-6-26 17:00:07

没人可以帮帮我么?

jsgh1983 发表于 2013-6-26 18:08:13

一般情况大家都是用 GUICtrlCreateTab(2, 82, 485, 277)
GUICtrlSetFont(-1, 9, 800, 0, "微软雅黑")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TABTEM1 = GUICtrlCreateTabItem("常用软件")选项卡切换操作，这个也是最简单实用的方法！

872777825 发表于 2013-6-26 22:45:02

回复 3# jsgh1983

这个知道了不过过于局限性不够强大
谢谢您的回复

页: [1]

AUTOIT CN's Archiver

请教软件管理器多页切换的做法