[已解决]同一窗口点击按钮重设置滚动条,请高手指教!
本帖最后由 jevonleen 于 2012-5-31 19:49 编辑自己解决了滚动控制条自动居上的问题,在帮助文档看到了这个函数:_GUIScrollBars_SetScrollInfoPos($hWnd, $fnBar, $nPos).同时谢谢user3000!
利用分页标签切换页面,但各标签垂直高度不同,如何通过点击按钮重设置滚动控制条高度,并让滚动条居上?
例如以下代码,我想在显示TAB1的时候,滚动控制条高度为62,在显示TAB2的时候,滚动控制条高度为31,并且切换到不同标签页面时,让滚动控制和自动居上!
我不是申手党,在论坛搜了很久,也百度了很长时间,但始终解决不了!请高手帮我修正一下代码,谢谢!#include <ScrollBarConstants.au3>
#include <WindowsConstants.au3>
#include <GUIScrollBars.au3>
#include <GUIListBox.au3>
Dim $a = 31
$Form1 = GUICreate("Scrollbars", 500, 300)
GUISetBkColor(0xF4F5F7,$Form1)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
_GUIScrollBars_Init($Form1, 0, $a)
;-----------------------------------------------------------------------------------------------
GUICtrlCreateTab(0, 0, 300, 200)
$tab1 = GUICtrlCreateTabItem("tab1")
$tabpic1 = GUICtrlCreatePic(@ScriptDir & '\img4.jpg',0,22,0,0);62
$tab2 = GUICtrlCreateTabItem("tab2")
$tabpic2 = GUICtrlCreatePic(@ScriptDir & '\img5.jpg',0,22,0,0);31
GUICtrlCreateTabItem("")
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $tab1
$a = 62
Case $tab2
$a = 31
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 回复 1# jevonleen
很多时候, 其实帮助文件就是我们最好的学习助手!
我没做过这方面的东西, 但花了一点时间借鉴帮助文件里的例子,稍稍改进了你的代码.
改的东西并不多,请自己对比下吧.
我未理解"让滚动控制和自动居上"的意思是什么?
;-----------------------------------------------------------------------------------------------
$tab = GUICtrlCreateTab(0, 0, 300, 200)
GUICtrlCreateTabItem("tab1")
$tabpic1 = GUICtrlCreatePic(@ScriptDir & '\img4.jpg', 0, 22, 0, 0);62
GUICtrlCreateTabItem("tab2")
$tabpic2 = GUICtrlCreatePic(@ScriptDir & '\img5.jpg', 0, 22, 0, 0);31
GUICtrlCreateTabItem("")
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $tab
If GUICtrlRead($tab) = 'tab1' Then
$a = 62
Else
$a = 31
EndIf
_GUIScrollBars_SetScrollRange($Form1, $SB_VERT, 1, $a)
EndSwitch
WEnd 回复 2# user3000
谢谢user！不同标签滚动控制条不同高度已经解决，我的意思是说：比如我将TAB1的滚动控制条拉到中间，当我点击TAB2的时候，让滚动控制自动居上，也就是靠在最顶端，谢谢！第一次涉及滚动条，很菜，请各位指教！ 自己再顶顶，请帮帮忙，还是搞不定，顺便祝各位晚安！ 回复user3000
谢谢user！不同标签滚动控制条不同高度已经解决，我的意思是说：比如我将TAB1的滚 ...
jevonleen 发表于 2012-5-19 22:53 http://www.autoitx.com/images/common/back.gif
这种？
回复 5# happytc
应该是了, 老大放上代码, 让我等学习学习吧!
'自动居上' 我还做得出来, 但拉动滚动条时, 无法做到像您这般地让'TAB' 标题保持原位不动! 回复 5# happytc
对，就是这样，老大能否贴出源码？谢谢！
谢谢user的关注！ 看了happytc 回复的图片，总算看出了点门道，是在TAB上创建子窗口吧。
页:
[1]