回答編集履歴
3
コード修正
test
CHANGED
|
@@ -370,6 +370,14 @@
|
|
|
370
370
|
|
|
371
371
|
|
|
372
372
|
|
|
373
|
+
If ListBox2.Items.Count = 0 Or ListBox2.SelectedIndex = -1 Then
|
|
374
|
+
|
|
375
|
+
Exit Sub
|
|
376
|
+
|
|
377
|
+
End If
|
|
378
|
+
|
|
379
|
+
|
|
380
|
+
|
|
373
381
|
If ListBox2.Items.Count >= ListBox2.SelectedIndex + 1 Then
|
|
374
382
|
|
|
375
383
|
ListBox2.SelectedIndex -= 1
|
2
コメント追加
test
CHANGED
|
@@ -130,8 +130,12 @@
|
|
|
130
130
|
|
|
131
131
|
End Sub
|
|
132
132
|
|
|
133
|
+
'! 変更部分
|
|
134
|
+
|
|
133
135
|
Dim Open00a() As String
|
|
134
136
|
|
|
137
|
+
'Dim Open00a As String()
|
|
138
|
+
|
|
135
139
|
Dim file As String()
|
|
136
140
|
|
|
137
141
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
@@ -154,6 +158,10 @@
|
|
|
154
158
|
|
|
155
159
|
file = OpenFileDialog1.SafeFileNames
|
|
156
160
|
|
|
161
|
+
|
|
162
|
+
|
|
163
|
+
'! 変更部分
|
|
164
|
+
|
|
157
165
|
Dim s As Integer
|
|
158
166
|
|
|
159
167
|
If Not Open00a Is Nothing Then
|
|
@@ -356,7 +364,7 @@
|
|
|
356
364
|
|
|
357
365
|
|
|
358
366
|
|
|
359
|
-
|
|
367
|
+
'! 変更部分
|
|
360
368
|
|
|
361
369
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
362
370
|
|
1
コードミス
test
CHANGED
|
@@ -356,11 +356,13 @@
|
|
|
356
356
|
|
|
357
357
|
|
|
358
358
|
|
|
359
|
+
|
|
360
|
+
|
|
359
361
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
360
362
|
|
|
361
363
|
|
|
362
364
|
|
|
363
|
-
If ListBox2.Items.Count
|
|
365
|
+
If ListBox2.Items.Count >= ListBox2.SelectedIndex + 1 Then
|
|
364
366
|
|
|
365
367
|
ListBox2.SelectedIndex -= 1
|
|
366
368
|
|