ab.com コミュニティ

コード: 全て選択

Dim tst As DWord 
Do 
    GetExitCodeThread(hSecondThread,ByVal VarPtr(tst)) 
    If tst=STILL_ACTIVE then 
        Sleep(10) 
    Else 
        Exit Do 
    End If 
Loop

コード: 全て選択

style=style Or (定数)

コード: 全て選択

style=style And Not (定数)

コード: 全て選択

	Sub GetPixelBits( hBmp As HBITMAP )
		Dim hDC As HDC
		Dim hMemDC As HDC
		Dim hMemDC2 As HDC
		Dim hBmp2 As HBITMAP
		Dim w As Long
		Dim h As Long
		Dim n As Long


		'前回のスレッドの終了を待つ。
		If( hSecondThread<>NULL )Then
			If( WAIT_TIMEOUT=WaitForSingleObject(hSecondThread, 0) )Then '念のためスレッド動作中かを確認。
				n = 0
				While FALSE=TerminateThread( hSecondThread, 1 )
					'3回までリトライする。
					If n<3 Then
						n++
					Else
						MessageBox(hTargetWnd, "前回のピクセル情報の取得スレッドの停止（破棄）に失敗。", "エラー", MB_OK Or MB_ICONSTOP)
						Exit While
					End If
				Wend
			End If
			CloseHandle( hSecondThread )
			hSecondThread = NULL
		EndIf

		If nCpuSleepLevel<0 THen
			'負の値が設定されたときは、ピクセル情報の取得を行わない。
			Exit Function
		End If

		'スレッド用にビットマップを複製。hBmp→hBmp2
		/*
			「1つのビットマップオブジェクトを同時に複数の
			　デバイスコンテキストで選択することはできない．」
			http://ls-al.jp/blog/archives/2006/03/post_288.html
		*/
		w = GetWidth()
		h = GetHeight()
		hDC = GetDC( hTargetWnd )
		hMemDC = CreateCompatibleDC( hDC )
		hMemDC2 = CreateCompatibleDC( hDC )
			hBmp2 = CreateCompatibleBitmap( hDC, w, h )
			If( NULL=SelectObject( hMemDC, hBmp ) )Then
				'結合に失敗。
				MessageBox(hTargetWnd, "ピクセル情報の取得に失敗。与えられたHBITMAPが新規DCに結合できない。", "エラー", MB_OK Or MB_ICONSTOP)
				/* そのまま抜けるか、一応最後まで走らせるか･･･。迷うところ。ピクセル有無の無限待機関数の存在を考慮。
				DeleteDC( hMemDC )
				DeleteDC( hMemDC2 )
				ReleaseDC( hTargetWnd ,hDC )
				ExitSub
				*/
			End If
			SelectObject( hMemDC2, hBmp2 )
			BitBlt( hMemDC2, 0, 0, w, h, hMemDC, 0, 0, SRCCOPY )
		DeleteDC( hMemDC )
		DeleteDC( hMemDC2 )
		ReleaseDC( hTargetWnd ,hDC )

		'複製したビットマップからピクセル情報を得る＠別スレッドGetPixelBitsA()を作成。
		'※複製したビットマップhBmp2はスレッド側で終了時に破棄される。
		SetAnyThreadParam( hBmp2 As DWord )
		hSecondThread = CreateThread( ByVal NULL, NULL, AddressOf(WsEasyBmp_Static_GetPixelBitsA), VarPtr(This), NULL, VarPtr(tID) )
	EndSub