投稿日 | : 2005/01/25(Tue) 10:16 |
投稿者 | : TERU |
URL | : |
タイトル | : Re^6: 画面が背面に |
> > VB2.0のアプリでUSER32.DLLは読めるのでしょうか?
> > Win95,WinXP両方のOSで実行してみましたら「ファイルが見つかりません」でエラーと
> > なってしまいます。
>
> 私には貴方が何を、いつ、どのようにされているのかが見えません。
> もう少し順を追って説明願います。特にエラーの原因究明となると1文字書き違えて
> いただけでもエラーがおきますので。
>
> 又、開発環境等も詳しく書かないとVB2.0となると余計かと思いますよ。
大変申し訳ございません。
以下のとおり私なりの説明をさせていただきます。
<環境>
開発環境:Win95
VB2.0
<実行環境>
メニュー VB2.0
(FORMにボタンを配置しボタンクリックイベントでSHELLで下位業務アプリケーション起動)
業務アプリケーション VB2.0
稼動OS 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では使用できないのかと思い、先の質問をさせていただきました。
大変お恥ずかしいのですがお付き合い頂けるとうれしいです。
まだ不足があればご指摘ください。