窗口垂直滚动条显示问题，窗口尺寸改变后就不显示了，怎么回事呢（已解决）

qsy666888

窗口垂直滚动条显示问题，窗口尺寸改变后就不显示了，怎么回事呢？
还有数目增加后，拉动滚动条显示不完
   

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
Global  $p =35
_Main()
Func _Main()
 Local $nFileMenu,$nExititem, $GUIMsg,$Form1,$h_cGUI
$Form1 = GUICreate("Form1", 543, 661, -1, -1)
 GUISetBkColor(0x88AABB)
  $h_cGUI = GUICreate("Child GUI", 500, 600, 30, 20, $WS_CHILD, $WS_EX_CLIENTEDGE, $Form1);如果300改为500或者600的时候，就不显示了
        $k = 5
  
        For $i = 1 To $p
   Global $Label[$i+1]
      $Label[$i] = GUICtrlCreateLabel("Label"&$i, 160, $k, 244, 24)
         GUICtrlSetBkColor(-1, 0xEEC591)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            GUICtrlSetColor(-1, 0x808000)
    $k += 30    
     Next
        GUISetBkColor(0X006400)
        GUISetState()
        GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
        GUISwitch($Form1)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
        _GUIScrollBars_Init($h_cGUI)
GUISetState()
While 1
 $nMsg = GUIGetMsg(1)
 Switch $nMsg[0]
                Case -3
                        Exit
    EndSwitch
WEnd
EndFunc
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($__g_aSB_WindowInfo) - 1
   
                If $__g_aSB_WindowInfo[$x][0] = $hWnd Then
                        $index = $x
                        $yChar = $__g_aSB_WindowInfo[$index][3]
                        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 ; 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 ; 用户单击滚动框下方的滚动条轴
                        DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
                Case $SB_THUMBTRACK ; user dragged the scroll box
                        DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
        EndSwitch
        
;~    // 设置位置，然后检索它。由于调整
;~    //   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)
        ;// 如果位置已经改变，请滚动窗口并更新它
        $Pos = DllStructGetData($tSCROLLINFO, "nPos")
        If ($Pos <> $yPos) Then
                _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
                $yPos = $Pos
        EndIf
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL

chzj589

        _GUIScrollBars_Init($h_cGUI)
        _GUIScrollBars_SetScrollRange($h_cGUI, $SB_VERT, 0, 220 * 0.30) ;设置垂直滚动条参数

qsy666888

chzj589 发表于 2018-6-25 12:19
_GUIScrollBars_Init($h_cGUI)
        _GUIScrollBars_SetScrollRange($h_cGUI, $SB_VERT, 0, 220 * 0.30) ;设 ...

感谢感谢，大佬，