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

投稿日： 2005/01/25(Tue) 10:16
投稿者： TERU
ＵＲＬ：
タイトル： Re^6: 画面が背面に

> > VB2.0のアプリでUSER32.DLLは読めるのでしょうか？
> > Win95,WinXP両方のOSで実行してみましたら「ファイルが見つかりません」でエラーと
> > なってしまいます。
>
> 私には貴方が何を、いつ、どのようにされているのかが見えません。
> もう少し順を追って説明願います。特にエラーの原因究明となると１文字書き違えて
> いただけでもエラーがおきますので。
>
> 又、開発環境等も詳しく書かないとVB2.0となると余計かと思いますよ。

大変申し訳ございません。
以下のとおり私なりの説明をさせていただきます。

＜環境＞
開発環境：Win95
          VB2.0

＜実行環境＞
メニュー VB2.0
（ＦＯＲＭにボタンを配置しボタンクリックイベントでSHELLで下位業務アプリケーション起動）
業務アプリケーション VB2.0
稼動ＯＳ Win95とWinXP

1.上記の環境でボタンをクリックしたら業務アプリが一旦表示されるものの
　直ぐに、または数秒たつとメニューの背面に隠れてしまう現象が起こる。
2.この掲示板に問合せさせていただきました。
3.くだらない質問をいたしましたが最終的には
　サンプルのSetWindowPosとGetForegroundWindowを業務アプリケーションの
　FORM LOADに記述し実行してみました。

<記述したCode>
Option Explicit
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAft
er As
Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As
Long) As Long
'ウインドウをウインドウリストの一番上に配置する
Const HWND_TOPMOST = (-1)
'ウインドウの現在のサイズを保持する
Const SWP_NOSIZE = &H1&
'ウインドウの現在位置を保持する
Const SWP_NOMOVE = &H2&

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

4.[3]のFORM LOADで「ファイルが見つかりません。 53」でエラーとなりました。

説明下手、スキル不足により正しくお伝えできなかったり、
くだらない質問になってしまいますが上記から
USER32がVB2.0では使用できないのかと思い、先の質問をさせていただきました。

大変お恥ずかしいのですがお付き合い頂けるとうれしいです。
まだ不足があればご指摘ください。

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

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