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

投稿日： 2005/01/26(Wed) 15:32
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： 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

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

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