3

VB6 で、いくつかのテキスト ボックス、リスト ボックス、およびコマンド ボタンを含むフォームを作成しました。次のようなものを使用して、これらすべてのコントロールの XY 位置を設定します

control2.Top = form.Height * 0.50   'sets the Y-position
control2.Left = form.Width * 0.35   'sets the X-position

control3.Top = form.Height * 0.50
control3.Left = form.Width * 0.45

ただし、アプリの最大化ボタンをクリックすると、すべてのコントロールが同じ場所にとどまりますが、フォームの左上隅に向かって少し移動します。それまでの間、最大化をクリックすると、フォームの右下隅に向かって多くの空白スペースも作成されます。

最大化ボタン (右上隅にある空の正方形のように見えるボタン) をクリックすると、form.Height と form.Weight が変更され、すべてを再描画する必要があることがプログラムに通知されるようにするにはどうすればよいですか?

または、すべてのコントロールを左上隅に移動させず、右下隅に新しい空白スペースを作成しないようにする別の方法はありますか? よろしくお願いします。

4

1 に答える 1

9

フォームには「サイズ変更」というイベントがあります。そのイベントは、フォームのサイズが変更されるたびにトリガーされます。

Private Sub Form_Resize()
    'Insert your code here
End Sub
于 2012-04-03T15:29:06.383 に答える