投稿日 | : 2005/01/26(Wed) 15:32 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^2: 画面が背面に |
> 宣言部分を下記のように変更して試して見て下さい。
検証のため、VB2とWin3.1をダウンロードしてきて、Virtual PC上に
構築して確認してみましたが、残念ながらエラーになってしまいました。
# VB2は、VB4以降と比べると、文法的な違いが結構あります。
# "Private Declare" も、"行継続文字" もサポートされていません。
せっかくなので、この
》花ちゃん 01/25-12:19 No.1736
で提供されたコードを、VB2向けに書き換えてみました。
下記の「VERSION 2.00」から下の行を、"FORM1.FRM"というファイル名で保存して、
プロジェクトに追加してみてください。
VERSION 2.00
Begin Form Form1
Caption = "Form1"
Height = 3855
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 3450
ScaleWidth = 7965
Top = 1275
Width = 8085
End
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