回答編集履歴
2
<code>修正
answer
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
1
|
OriginalSizeがないなら宣言すればよい モジュール化するならパブリックで
|
|
2
|
-
|
|
2
|
+
```vb.net
|
|
3
3
|
フォーム
|
|
4
|
+
Public Class Form1
|
|
4
5
|
Public OriginalSize As Size
|
|
5
6
|
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
6
7
|
OriginalSize = Me.ClientSize 'クライアントサイズ初期値を代入
|
|
@@ -29,4 +30,6 @@
|
|
|
29
30
|
sender.originalSize = originalSize_bin
|
|
30
31
|
End If
|
|
31
32
|
End Sub
|
|
32
|
-
End Module
|
|
33
|
+
End Module
|
|
34
|
+
コード
|
|
35
|
+
```
|
1
修正
answer
CHANGED
|
@@ -1,10 +1,11 @@
|
|
|
1
1
|
OriginalSizeがないなら宣言すればよい モジュール化するならパブリックで
|
|
2
2
|
|
|
3
|
+
フォーム
|
|
3
4
|
Public OriginalSize As Size
|
|
4
5
|
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
5
|
-
OriginalSize = Me.ClientSize
|
|
6
|
+
OriginalSize = Me.ClientSize 'クライアントサイズ初期値を代入
|
|
6
|
-
Me.WindowState = FormWindowState.Maximized
|
|
7
|
+
Me.WindowState = FormWindowState.Maximized'クライアントサイズ最大化
|
|
7
|
-
'Form2.Show()
|
|
8
|
+
'Form2.Show()'動作チェック用
|
|
8
9
|
End Sub
|
|
9
10
|
|
|
10
11
|
どっちにしろSizeChangedはハンドルする必要がある。
|
|
@@ -14,6 +15,8 @@
|
|
|
14
15
|
End Sub
|
|
15
16
|
End Class
|
|
16
17
|
|
|
18
|
+
|
|
19
|
+
モジュール
|
|
17
20
|
Module resolution
|
|
18
21
|
Private originalSize_bin As Size ' -- コントロール・スケーリング用オリジナルサイズ
|
|
19
22
|
Public Sub FormScaling(sender As Object)
|