[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/02/13(Mon) 10:29
投稿者名:gt
URL :
タイトル:
ボタン動的に配置
お世話になっています。gtです。

hhttp://72.14.207.104/search?q=cache:oYCF6PdMQLoJ:www2.plala.or.jp/k-
を参考にして、動画の画面を表示しています。
再生ボタンを追加しています。
動的に配置の仕方がわかりませんでした。
例:
フォームのサイズ
                Call SetWindowPos(mlnghParent, 0, 0, 0, _
                        .DestinationWidth, .DestinationHeight+70, _
                        SWP_NOMOVE Or SWP_NOZORDER)
問題1.
(+70はフォームの高さが画面より大きい、その余分部分はボタン配置の場所です。
+Form1.Command1.Heightを入れるとフォームのサイズ大きすぎる。
そういうことで、一応固定の数値(+70)です、
動的にボタンサイズ(高さ)を含むフォームサイズ(高さ)がほしいです)

問題2.
再生ボタンは表示している画面下に配置したいのですが、
Form1.Command1のハンドルの取得仕方がわかりません。
               Call SetWindowPos(??, 0, 0, 0, _
                        0, .DestinationHeight, _
                        SWP_NOMOVE Or SWP_NOZORDER)
ここで、??はハンドルです。

よろしくお願いします。

投稿時間:2006/02/13(Mon) 10:39
投稿者名:ダンボ
URL :
タイトル:
Re: ボタン動的に配置
> 問題2.
> Form1.Command1のハンドルの取得仕方がわかりません。

Form1.Command1.hWndでいい筈。(Command1がボタンコントロールなら)

投稿時間:2006/02/13(Mon) 13:58
投稿者名:gt
URL :
タイトル:
Re^2: ボタン動的に配置
> Form1.Command1.hWndでいい筈。(Command1がボタンコントロールなら)

そうですね、これが忘れました。
問題2が解決しました。

ありがとうございました。

投稿時間:2006/02/21(Tue) 12:02
投稿者名:これ
URL :
タイトル:
Re: ボタン動的に配置
> 問題1.
> (+70はフォームの高さが画面より大きい、その余分部分はボタン配置の場所です。
> +Form1.Command1.Heightを入れるとフォームのサイズ大きすぎる。
> そういうことで、一応固定の数値(+70)です、
> 動的にボタンサイズ(高さ)を含むフォームサイズ(高さ)がほしいです)
ではこっちも

Form のScaleMode が 1 - Twip になっていませんか?
3 - ピクセル にするとどうでしょう?

あと、+70 というのは ボタンの高さ + タイトルバーや枠線等の高さ
だと思うのですが、タイトルバー等の高さは
GetSystemMetrics API で取れますので 調べてみてください

投稿時間:2006/02/28(Tue) 07:47
投稿者名:gt
URL :
タイトル:
Re^2: ボタン動的に配置
これさん
ごへんじありがとう。

> Form のScaleMode が 1 - Twip になっていませんか?
> 3 - ピクセル にするとどうでしょう?
>
> あと、+70 というのは ボタンの高さ + タイトルバーや枠線等の高さ
> だと思うのですが、タイトルバー等の高さは
> GetSystemMetrics API で取れますので 調べてみてください
やってみます。