OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

コードでオブジェクトを最前面に

  • すぐに回答を!
  • 質問No.181893
  • 閲覧数856
  • ありがとう数3
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 47% (9/19)

小4のKunpaです。
 前はレースゲームと言っていたのに今度はRPGと来て・・
いろんなジャンルに変えてスミマセン。
 ところで、オブジェクトを常に最前面に出すことは
出来ますが、コードに書くと、どうなるのでしょうか。
その前に、コードにかけるのですか。
教えて下さい。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル7

ベストアンサー率 57% (8/14)

オブジェクトの ZOrderメソッドを使うとデザイン画面の
「最前面へ移動」「最背面へ移動」ができるようです。

(例) テキストボックス
Text1.ZOrder (0) '前方移動
Text1.ZOrder (1) '後方移動
お礼コメント
kunpa

お礼率 47% (9/19)

どうもお忙しい中簡単なことに回答していただいてありがとうございます。
すぐに試してみます。
投稿日時 - 2001-12-09 08:50:39
-PR-
-PR-

その他の回答 (全1件)

  • 回答No.2
レベル12

ベストアンサー率 65% (276/422)

フォームの中の各コントロールオブジェクトの[前面/背面]制御は、#1の発言通りです。 もしフォームを最前面固定にしたいのであれば。API関数が必要です。 フォームの先頭で以下を宣言 Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As ...続きを読む
フォームの中の各コントロールオブジェクトの[前面/背面]制御は、#1の発言通りです。

もしフォームを最前面固定にしたいのであれば。API関数が必要です。

フォームの先頭で以下を宣言
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1&
Private Const SWP_NOMOVE = &H2&


最前面固定にしたいタイミングで、以下のコードを実行
Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)


このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ