スクロールバーに連動してフォームサイズを変えるには？

解決

Delta 2001-04-18 22:44:58 No: 74154

あるソフトを開発中なのですが、事情がでてきたので標題の件について
お尋ねしたいと思い、書かせていただきます。

1つのフォームで、2つのイベントを起こそうと思っています。
フォーム上のOKボタンの認識により、残りの部分を見せる方法を考え
それを、スクロールバーで記述しようと思いました。

Form1.ScaleHeight=1890+(4890-1890)*VScroll1.Value

の方法で実行しようとしたのですがうまくいきませんでした。

何かいいアイデアがありましたら教えていただけないでしょうか？

Delta 2001-04-19 00:11:15 No: 74155

すみません、ソースが間違ってました。

Form1.ScaleHeight=1890+(4890-1890)/100*VScroll1.Value

で、0〜100の間でVScroll1.Valueを動かします。

α 2001-04-19 03:36:29 No: 74156

もしかしたら違うかも・・・

Private Sub Command1_Click()

    For u = 8910 To 10395 Step 0.01

        form1.Height = u
        DoEvents

    Next u

End Sub

こんな具合に

Delta 2001-04-19 22:57:44 No: 74157

実際動かしてみたらうまくいきました。
こんな方法があったんですね。
どうもありがとうございました。