「VB6.0_ウィンドウの表示状態を制御する」の編集履歴（バックアップ）一覧はこちら

「VB6.0_ウィンドウの表示状態を制御する」(2009/01/15 (木) 13:21:20) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

**ウィンドウの表示状態を制御する

１、WindowsAPI-[[SetWindowPos]]を宣言します。
	'指定したウィンドウの位置、サイズ、および表示状態設定API
	Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, ByVal Cy As Long, ByVal wFlags As Long) As Long

２、

*ウィンドウの表示状態を制御する

１、WindowsAPI-[[SetWindowPos]]を宣言します。
	'指定したウィンドウの位置、サイズ、および表示状態設定API
	Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, ByVal Cy As Long, ByVal wFlags As Long) As Long

**ウィンドウを常に手前に表示／解除

	Public Enum ENUM_HWIA
	    HWND_TOPMOST    = -1
	    HWND_TOP        = 0 
	    HWND_BOTTOM     = 1
	    HWND_NOTTOPMOST = 2
	End Enum

	Public Sub TopWindowKeep(Optional ByVal veHwia As ENUM_HWIA = ENUM_HWIA.HWND_NOTTOPMOST)
	    Call SetWindowPos( _
		Form1.hWnd, _
		veHwia, _
	        Form1.Left / Screen.TwipsPerPixelX, _
	        Form1.Top / Screen.TwipsPerPixelY, _
	        Form1.Width / Screen.TwipsPerPixelX, _
	        Form1.Height / Screen.TwipsPerPixelY, 0
	End Sub