moyi20 发表于 2013-1-13 11:40:43

滚动条相关

下边的代码是从 "_GUIScrollBars_Init" 这个函数例子里边取出来的,本来是按照
"_GUIScrollBars_Init" 格式所写滚动条的, 结果是滚动条出来了,拖不动,,然后就尝试照搬的方式把下边的代码另存为了UDF
,加入到我的源代码中,滚动条正常可行.




疑问:为啥按照说明上使用函数无法正常运作, 添加了如下UDF即可运行? 是我的方法不对,还是什么?



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)

      

      ; Retrieve the dimensions of the client area.

      $xClient = BitAND($lParam, 0x0000FFFF)

      $yClient = BitShift($lParam, 16)

      $aSB_WindowInfo[$index] = $xClient

      $aSB_WindowInfo[$index] = $yClient

      

      ; Set the vertical scrolling range and page size

      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)

      

      ; Set the horizontal scrolling range and page size

      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   ;==>WM_SIZE



Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)

      #forceref $Msg, $lParam

      Local $nScrollCode = BitAND($wParam, 0x0000FFFF)



      Local $index = -1, $xChar, $xPos

      Local $Min, $Max, $Page, $Pos, $TrackPos



      For $x = 0 To UBound($aSB_WindowInfo) - 1

                If $aSB_WindowInfo[$x] = $hWnd Then

                        $index = $x

                        $xChar = $aSB_WindowInfo[$index]

                        ExitLoop

                EndIf

      Next

      If $index = -1 Then Return 0

      

;~         ; Get all the horizontal scroll bar information

      Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)

      $Min = DllStructGetData($tSCROLLINFO, "nMin")

      $Max = DllStructGetData($tSCROLLINFO, "nMax")

      $Page = DllStructGetData($tSCROLLINFO, "nPage")

      ; Save the position for comparison later on

      $xPos = DllStructGetData($tSCROLLINFO, "nPos")

      $Pos = $xPos

      $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

      #forceref $Min, $Max

      Switch $nScrollCode



                Case $SB_LINELEFT ; user clicked left arrow

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)



                Case $SB_LINERIGHT ; user clicked right arrow

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)



                Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)



                Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)



                Case $SB_THUMBTRACK ; user dragged the scroll box

                        DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)

      EndSwitch



;~    // Set the position and then retrieve it.Due to adjustments

;~    //   by Windows it may not be the same as the value set.



      DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)

      _GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)

      _GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)

      ;// If the position has changed, scroll the window and update it

      $Pos = DllStructGetData($tSCROLLINFO, "nPos")

      If ($Pos <> $xPos) Then _GUIScrollBars_ScrollWindow($hWnd, $xChar * ($xPos - $Pos), 0)

      Return $GUI_RUNDEFMSG

EndFunc   ;==>WM_HSCROLL



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





      ; Get all the vertial scroll bar information

      Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)

      $Min = DllStructGetData($tSCROLLINFO, "nMin")

      $Max = DllStructGetData($tSCROLLINFO, "nMax")

      $Page = DllStructGetData($tSCROLLINFO, "nPage")

      ; Save the position for comparison later on

      $yPos = DllStructGetData($tSCROLLINFO, "nPos")

      $Pos = $yPos

      $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")



      Switch $nScrollCode

                Case $SB_TOP ; user clicked the HOME keyboard key

                        DllStructSetData($tSCROLLINFO, "nPos", $Min)



                Case $SB_BOTTOM ; user clicked the END keyboard key

                        DllStructSetData($tSCROLLINFO, "nPos", $Max)



                Case $SB_LINEUP ; user clicked the top arrow

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)



                Case $SB_LINEDOWN ; user clicked the bottom arrow

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)



                Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)



                Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box

                        DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)



                Case $SB_THUMBTRACK ; user dragged the scroll box

                        DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)

      EndSwitch

      

;~    // Set the position and then retrieve it.Due to adjustments

;~    //   by Windows it may not be the same as the value set.



      DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)

      _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

      _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

      ;// If the position has changed, scroll the window and update it

      $Pos = DllStructGetData($tSCROLLINFO, "nPos")



      If ($Pos <> $yPos) Then

                _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))

                $yPos = $Pos

      EndIf



      Return $GUI_RUNDEFMSG



EndFunc   ;==>WM_VSCROLL
页: [1]
查看完整版本: 滚动条相关