Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21800 / 76734 ←次へ | 前へ→

【60323】Re:スクロールについて質問
発言  もものき  - 09/2/10(火) 9:06 -

引用なし
パスワード
   ▼ichinose さん:
>▼もものき さん:
>こんばんは。
>
>こんなイメージですか?
>
>新規ブックにて、試してください。
>
>ユーザーフォームを一つ作成してください(UserForm1)
>
>コントロールはコードで作成しますから、何も配置しないでください。
>
>UserForm1のモジュールに
>
>'=============================================================
>Private Sub UserForm_Initialize()
>  Dim g0 As Long
>  With Me
>    .Width = 250
>    .Height = 250
>    .ScrollBars = fmScrollBarsVertical
>    .ScrollHeight = 1000
>    For g0 = 1 To 30
>     With .Controls.Add("Forms.TextBox.1", , True)
>       .Left = 20
>       .Width = 100
>       .Top = 30 * g0
>     End With
>    Next
>  End With
>End Sub
>
>
>標準モジュールに
>
>'=======================================================
>Sub sample()
>  UserForm1.Show
>End Sub
>
>
>これでsampleを実行してみてください。
>
>30個のテキストボックスがスクロールして入力可能になると思います。
>
>
>実際には、UserForm_Initializeで行っていることは
>全て、事前設定が可能です。
>
>キーポイントは、
>
>    .Height = 250
>    .ScrollBars = fmScrollBarsVertical
>    .ScrollHeight = 1000
>
>この辺りのコードです。
>
>調べてみてください。


ありがとうございます。
意味わからないまま、指示通りにやればスクロールバー付きの
窓が現れました。

ですがサッパリ意味わからないです><

やっぱりマウス操作でビジュアル処理は無理でしょうか?
1 hits

【60320】スクロールについて質問 もものき 09/2/9(月) 18:55 質問
【60321】Re:スクロールについて質問 ichinose 09/2/9(月) 19:37 発言
【60323】Re:スクロールについて質問 もものき 09/2/10(火) 9:06 発言
【60325】Re:スクロールについて質問 SS 09/2/10(火) 10:20 発言
【60328】Re:スクロールについて質問 neptune 09/2/10(火) 11:06 発言
【60335】Re:スクロールについて質問 SS 09/2/10(火) 19:06 発言
【60333】Re:スクロールについて質問 もものき 09/2/10(火) 15:49 発言
【60334】Re:スクロールについて質問 SS 09/2/10(火) 18:48 発言
【60338】Re:スクロールについて質問 neptune 09/2/10(火) 21:45 発言

21800 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free