'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。
'
Dim worldYV=200 As Long
Dim screenYV=200 As Long

' スクロール用変数定義
Dim hVScrollBar1 As HWND
Dim vertSi As SCROLLINFO

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	ScrollBar_AppearenceTest_DestroyObjects()
	PostQuitMessage(0)
End Sub

'
'●クリエイト・イベント
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)

'スクロールバーの位置と大きさを補正

 hVScrollBar1=GetDlgItem(hMainWnd,VScrollBar1)
 MoveWindow(hVScrollBar1,64,32, 32,screenYV,FALSE)     

 vertSi.cbSize = SizeOf(SCROLLINFO)
 vertSi.fMask = SIF_POS Or SIF_RANGE Or SIF_PAGE Or SIF_DISABLENOSCROLL
 vertSi.nMin = 0
 vertSi.nMax = worldYV
 vertSi.nPos = 0
 vertSi.nPage = screenYV+1
 SetScrollInfo(hVScrollBar1, SB_CTL, vertSi, TRUE)

End Sub

'
'●ボタン1クリック・イベント
'
Sub MainWnd_CommandButton1_Click()

 SetScrollInfo(hVScrollBar1, SB_CTL, vertSi, TRUE)

End Sub