回答編集履歴
3
メインフォームのコードを整理
test
CHANGED
|
@@ -149,6 +149,16 @@
|
|
|
149
149
|
ClearImage()
|
|
150
150
|
End Sub
|
|
151
151
|
|
|
152
|
+
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
153
|
+
DetermineImage()
|
|
154
|
+
PasteImage()
|
|
155
|
+
End Sub
|
|
156
|
+
|
|
157
|
+
Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) _
|
|
158
|
+
Handles PictureBox1.MouseDown
|
|
159
|
+
DetermineImage()
|
|
160
|
+
End Sub
|
|
161
|
+
|
|
152
162
|
Private Sub ClearImage()
|
|
153
163
|
Using g = Graphics.FromImage(PictureBox1.Image)
|
|
154
164
|
g.Clear(Color.White)
|
|
@@ -157,11 +167,6 @@
|
|
|
157
167
|
End Sub
|
|
158
168
|
|
|
159
169
|
Private Sub PasteImage()
|
|
160
|
-
If PictureBox1.Controls.Count > 0 Then
|
|
161
|
-
For Each p As PasteForm In PictureBox1.Controls
|
|
162
|
-
DetermineImage(p)
|
|
163
|
-
Next
|
|
164
|
-
End If
|
|
165
170
|
If Clipboard.ContainsImage() Then
|
|
166
171
|
Dim img = Clipboard.GetImage()
|
|
167
172
|
Dim p As New PasteForm(img)
|
|
@@ -172,8 +177,7 @@
|
|
|
172
177
|
End If
|
|
173
178
|
End Sub
|
|
174
179
|
|
|
175
|
-
Private Sub picCanvas_MouseDown(sender As Object, e As MouseEventArgs) _
|
|
176
|
-
|
|
180
|
+
Private Sub DetermineImage()
|
|
177
181
|
If PictureBox1.Controls.Count > 0 Then
|
|
178
182
|
For Each p As PasteForm In PictureBox1.Controls
|
|
179
183
|
DetermineImage(p)
|
|
@@ -191,10 +195,6 @@
|
|
|
191
195
|
PictureBox1.Invalidate()
|
|
192
196
|
End Sub
|
|
193
197
|
|
|
194
|
-
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
195
|
-
PasteImage()
|
|
196
|
-
End Sub
|
|
197
|
-
|
|
198
198
|
End Class
|
|
199
199
|
```
|
|
200
200
|
|
2
動画にしてみた
test
CHANGED
|
@@ -198,5 +198,4 @@
|
|
|
198
198
|
End Class
|
|
199
199
|
```
|
|
200
200
|
|
|
201
|
-
|
|
202
|
-
|
1
画像追加
test
CHANGED
|
@@ -198,5 +198,5 @@
|
|
|
198
198
|
End Class
|
|
199
199
|
```
|
|
200
200
|
|
|
201
|
-
|
|
201
|
+
|
|
202
|
-
|
|
202
|
+
|