VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/01/25(Tue) 12:19
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: 画面が背面に

宣言部分を下記のように変更して試して見て下さい。

Private Declare Function SetWindowPos Lib "user" _
　　(ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, _
　　ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, _
　　ByVal cy As Integer, ByVal wFlags As Integer) As Integer

Const HWND_TOPMOST = (-1)
'ウインドウの現在のサイズを保持する
Const SWP_NOSIZE = 1
'ウインドウの現在位置を保持する
Const SWP_NOMOVE = 2

Sub Form_Load()
　　Dim retValue As Integer
　　'現在の位置とサイズでウインドウリストの一番上に配置する
　　retValue = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -