| |
▼もものき さん：
▼ichinose さん：
横から失礼します
>やっぱりマウス操作でビジュアル処理は無理でしょうか？
現状の物の何処が不満なのか、どのような処理がしたいのかを
示さないと対応のしようがありませんよ。
>>>ですが、実際はスクロールバーが表示されず
>>>ウインドウの長さも制限があると知りました。
>>>ツールボックスにスクロールバーのアイテムがあるので
>>>これを利用すればできるのだろうと推測はできますが
>>>ビジュアル操作で簡単に設置できるのでしょうか？
私がichinose さんの回答を参考に作るとしたらこんな感じです。
UserFormのプロパティで
ScrollBarsを 2 - fmScrollBarsVertical （縦方向スクロールバーを表示する）
ScrollHeightを 1050 （スクロール領域の高さを指定する）
UserFormにTextBoxを30個自分で準備する。（ichinose さんのは高度すぎて自分には扱いきれませんでした。イベントが発生しない？）
UserFormのHeightを 350。（１度に表示されるのが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
|
|
SS
- 09/2/10(火) 10:20 -
