質問編集履歴
1
ソースコードを見やすく改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,9 +26,9 @@
|
|
|
26
26
|
|
|
27
27
|
### 該当のソースコード
|
|
28
28
|
|
|
29
|
+
```lang-VB.NET
|
|
29
30
|
|
|
30
31
|
|
|
31
|
-
'VB.NET
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
|
|
38
38
|
|
|
39
|
-
' 同じ数字のコンボボックスAとBの値が片方0、片方0以外であればFalseを返す
|
|
39
|
+
' 同じ数字のコンボボックスAとBの値が片方0、片方0以外であればFalseを返す '
|
|
40
40
|
|
|
41
41
|
If ((ComboA_1.SelectedValue = 0) And (ComboB_1.SelectedValue <> 0)) OrElse ((ComboA_1.SelectedValue <> 0) And (ComboB_1.SelectedValue = 0)) Then
|
|
42
42
|
|
|
@@ -122,7 +122,7 @@
|
|
|
122
122
|
|
|
123
123
|
|
|
124
124
|
|
|
125
|
-
' 入力OK
|
|
125
|
+
' 入力OK '
|
|
126
126
|
|
|
127
127
|
Return True
|
|
128
128
|
|
|
@@ -132,7 +132,7 @@
|
|
|
132
132
|
|
|
133
133
|
|
|
134
134
|
|
|
135
|
-
' エラー
|
|
135
|
+
' エラー '
|
|
136
136
|
|
|
137
137
|
Return False
|
|
138
138
|
|
|
@@ -142,6 +142,8 @@
|
|
|
142
142
|
|
|
143
143
|
|
|
144
144
|
|
|
145
|
+
```
|
|
146
|
+
|
|
145
147
|
### 補足情報（FW/ツールのバージョンなど）
|
|
146
148
|
|
|
147
149
|
|