|
▼もものき さん:
▼ichinose さん:
横から失礼します
>やっぱりマウス操作でビジュアル処理は無理でしょうか?
現状の物の何処が不満なのか、どのような処理がしたいのかを
示さないと対応のしようがありませんよ。
>>>ですが、実際はスクロールバーが表示されず
>>>ウインドウの長さも制限があると知りました。
>>>ツールボックスにスクロールバーのアイテムがあるので
>>>これを利用すればできるのだろうと推測はできますが
>>>ビジュアル操作で簡単に設置できるのでしょうか?
私がichinose さんの回答を参考に作るとしたらこんな感じです。
UserFormのプロパティで
ScrollBarsを 2 - fmScrollBarsVertical (縦方向スクロールバーを表示する)
ScrollHeightを 1050 (スクロール領域の高さを指定する)
UserFormにTextBoxを30個自分で準備する。(ichinose さんのは高度すぎて自分には扱いきれませんでした。イベントが発生しない?)
UserFormのHeightを 350。(1度に表示されるのが10個に調整)
切替操作は、UserForm1のモジュールに以下を記述
Private Sub UserForm_Initialize()
'特に記述無し
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ScrollTop = 350
End Sub
Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ScrollTop = 700
End Sub
|
|