回答編集履歴
1
検証コードを追加
answer
CHANGED
|
@@ -1,1 +1,20 @@
|
|
|
1
|
-
Panelの AutoScroll が true で AutoSize が False でいけると思うのですが。
|
|
1
|
+
Panelの AutoScroll が true で AutoSize が False でいけると思うのですが。
|
|
2
|
+
|
|
3
|
+
追記
|
|
4
|
+
|
|
5
|
+
以下コードを動かしてみて何かヒントになりますか？
|
|
6
|
+
素のProjectでForm1にPanel1を貼って、Panel1上にButton1を１つ置いて、
|
|
7
|
+
"Panelの AutoScroll が true で AutoSize が False"の設定のみして実行。
|
|
8
|
+
Button1 をClickするたび横幅が伸びて、Form1幅を越えたら水平スクロールバーが自動的に出る。
|
|
9
|
+
|
|
10
|
+
```VB
|
|
11
|
+
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
12
|
+
Dim btnX As New Button
|
|
13
|
+
btnX.Size = sender.Size
|
|
14
|
+
btnX.Top = sender.Top
|
|
15
|
+
btnX.Left = sender.Width * Panel1.Controls.Count + Panel1.Controls(0).Left
|
|
16
|
+
btnX.Text = sender.Text
|
|
17
|
+
AddHandler btnX.Click, AddressOf Button1_Click
|
|
18
|
+
Panel1.Controls.Add(btnX)
|
|
19
|
+
End Sub
|
|
20
|
+
```
|