質問編集履歴
2
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
|
1
|
+
消すので見ないようにお願いします。
|
test
CHANGED
@@ -1,31 +1,3 @@
|
|
1
|
-
|
1
|
+
同じ質問を別でしています。
|
2
2
|
|
3
|
-
リフトボックス1に表示されている値全てをボタンを押したら、リストボックス2に移動させるプログラムを作成しています。
|
4
|
-
|
5
|
-
そのため、このプログラムを完成させる為にはどうすればいいかアドバイスを頂けるとありがたいです。
|
6
|
-
|
7
|
-
|
8
|
-
|
9
|
-
提示のコードは、リフトボックス1の値を全合計して、リストボックス2に表示されます。
|
10
|
-
|
11
|
-
例えば、1~8まで12345678と最初から入っていた場合には、その合計である36という数字がリストボックス2に移動します。
|
12
|
-
|
13
|
-
私がここでしたいのは、リストボックス1に入った1~8までの数字を合算せず12345678と分けられた状態で、そのままリストボックス2に表示したいと言うことです。
|
14
|
-
|
15
|
-
|
3
|
+
そちらの方で回答の方よろしくお願いいたします。
|
16
|
-
|
17
|
-
|
18
|
-
|
19
|
-
今は以下のコードになっています。
|
20
|
-
|
21
|
-
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
22
|
-
|
23
|
-
Dim X As integer
|
24
|
-
|
25
|
-
For X = 0 To ListBox1.Items.Count
|
26
|
-
|
27
|
-
K += X
|
28
|
-
|
29
|
-
Next
|
30
|
-
|
31
|
-
ListBox2.Items.Add(K)
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -3,6 +3,18 @@
|
|
3
3
|
リフトボックス1に表示されている値全てをボタンを押したら、リストボックス2に移動させるプログラムを作成しています。
|
4
4
|
|
5
5
|
そのため、このプログラムを完成させる為にはどうすればいいかアドバイスを頂けるとありがたいです。
|
6
|
+
|
7
|
+
|
8
|
+
|
9
|
+
提示のコードは、リフトボックス1の値を全合計して、リストボックス2に表示されます。
|
10
|
+
|
11
|
+
例えば、1~8まで12345678と最初から入っていた場合には、その合計である36という数字がリストボックス2に移動します。
|
12
|
+
|
13
|
+
私がここでしたいのは、リストボックス1に入った1~8までの数字を合算せず12345678と分けられた状態で、そのままリストボックス2に表示したいと言うことです。
|
14
|
+
|
15
|
+
説明が分かりにくくて、申し訳ないです。
|
16
|
+
|
17
|
+
|
6
18
|
|
7
19
|
今は以下のコードになっています。
|
8
20
|
|