teratail
回答率
85.37%
teratail 10th-anniversary
teratail 10th-anniversary
質問するログイン新規登録
トップに関する質問VBでComboboxで選択した後の書き込みと読み込みが出来ません。

編集履歴

質問編集履歴

2

誤字

2020/04/10 09:59

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -6,93 +6,59 @@
6
6
 
7
7
  ・3つ目(Combobox3～7（アイテム名：CCC01/CCC02)
8
8
 
9
- Combobox1でAAA01を選択
9
+ Combobox1がAAA01を選択した後、Combobox2から7個のコンボボックスを選択
10
10
 
11
- Combobox2、Combobox3～7を選択は出来ます。
11
+ その後、書き込みボタンを押すとCombobox2~7まで保存する。
12
12
 
13
+ Combobox1がAAA02を選択してCombobox2~7個選択し、書き込みボタンを押す。
14
+
15
+
16
+
13
- 選択し終えた後の書き込みと読み込みが出来ない状態でいます。
17
+ この２つを書き込みし終えたらCombobox1のindex＝０を選び
18
+
19
+ 「読み込むボタンを押す」とCombobox2~7個の選択された内容が表示される
20
+
21
+ プログラムを作っています。
14
22
 
15
23
 
16
24
 
17
25
  ###教えてほしいこと
18
26
 
19
- Combobox1でAAA01を選択するときに読み込むボタンを押すとCombobox2～7個に
27
+ Combobox1：index＝０（AAA01を選択）して読み込みボタンを押すと
20
28
 
21
- 選択済みの内容が表示させたい事です。
29
+ Combobox２～７個に選択された内容が表示されるようにしたい事です。
22
-
23
- ```FORM1
24
-
25
- '書き込む、読み込み
26
-
27
- Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
28
-
29
- If ComboBox1.SelectedIndex = 0 Then
30
-
31
- '"C:\test\1.txt"をShift-JISコードとして開く
32
-
33
- Dim sr As New System.IO.StreamReader(
34
-
35
- "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
36
-
37
- '内容を10文字ずつ読み込む
38
-
39
- While sr.Peek() > -1
40
-
41
- Dim c(9) As Char
42
-
43
- sr.ReadBlock(c, 0, c.Length)
44
-
45
- Console.Write(c)
46
-
47
- End While
48
-
49
- '閉じる
50
-
51
- sr.Close()
52
-
53
- End If
54
-
55
- End Sub
56
30
 
57
31
 
58
32
 
59
- Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
33
+ Combobox２～７を全てclearしてindex＝０を選択で読み込みボタンを押す時
60
34
 
61
-
35
+ Combobox２～７全て表示させる事は不可能でしょうか？
62
36
 
63
- Dim sr As New System.IO.StreamReader(
64
37
 
65
- "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
66
38
 
67
- '内容を一文字ずつ読み込む
39
+ 文章下手で申し訳ございません。
68
40
 
69
- While sr.Peek() > -1
70
41
 
71
- Console.Write(Convert.ToChar(sr.Read()))
72
42
 
73
- End While
43
+ 言いたいことは
74
44
 
75
- '閉じる
45
+ Index=０を書き込みした（Combobox２～７）のを読み込みボタンを押すと
76
46
 
77
- sr.Close()
47
+ Combobox２～７まで選択された内容が表示したい事です。
78
48
 
49
+
50
+
79
- End Sub
51
+ ```ここに言語を入力
52
+
53
+ My.settings.***.save
80
54
 
81
55
  ```
82
56
 
83
- ###ソースコードの試した事
57
+ このmy.settings使ってやってみましたが出来ませんでした。
84
58
 
85
- Combobox2のアイテムがテキストファイルに保存されますが。
86
-
87
- 読み込む時にコンボボックスに表示しませんでした。
59
+ 内容不足していて申し訳ございません。
88
60
 
89
61
 
90
-
91
- 書き込み、読み込みした場合のコンボボックスに表示させるにはどうしたら
92
-
93
- いいのでしょうか？
94
-
95
- 教えてください。
96
62
 
97
63
 
98
64
 

1

文字の修正内容を書きました。

2020/04/10 09:59

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- Comboboxで書き込む、読み込みが出来ません。
1
+ VBでComboboxで選択した後の書き込みと読み込みが出来ません。
test CHANGED
@@ -1,108 +1,54 @@
1
- ### 前提・実現したいこと
1
+ ### やりたい事
2
2
 
3
- コンボボックスを選択された時、書き込むボタンを押した後
3
+ ・1つ目Combobox1（アイテム名：AAA01/AAA02）
4
4
 
5
- コンボボックスを再度読み込むボタンを押したら選択された内容を表示させたい。
5
+ ・2つ目(Combobox2（アイテム名：BBB01/BBB02)
6
+
7
+ ・3つ目(Combobox3～7（アイテム名：CCC01/CCC02)
8
+
9
+ Combobox1でAAA01を選択
10
+
11
+ Combobox2、Combobox3～7を選択は出来ます。
12
+
13
+ 選択し終えた後の書き込みと読み込みが出来ない状態でいます。
6
14
 
7
15
 
8
16
 
9
- Combobox1～7個あります。
17
+ ###教えてほしいこと
10
18
 
19
+ Combobox1でAAA01を選択するときに読み込むボタンを押すとCombobox2～7個に
11
20
 
21
+ 選択済みの内容が表示させたい事です。
12
22
 
13
- Combobox1の選択された時に他のCombobox２～７も選択された時、
23
+ ```FORM1
14
24
 
25
+ '書き込む、読み込み
15
26
 
27
+ Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
16
28
 
17
- 「文字列コレクションエディター」から文字を入れています。
29
+ If ComboBox1.SelectedIndex = 0 Then
18
30
 
19
- Combobox1（アイテム名：AAA01)
31
+ '"C:\test\1.txt"をShift-JISコードとして開く
20
32
 
21
- Combobox1（アイテム名：AAA02)
33
+ Dim sr As New System.IO.StreamReader(
22
34
 
35
+ "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
23
36
 
37
+ '内容を10文字ずつ読み込む
24
38
 
25
- Combobox2（アイテム名：BBB1)
39
+ While sr.Peek() > -1
26
40
 
27
- Combobox2（アイテム名：BBB2)
41
+ Dim c(9) As Char
28
42
 
43
+ sr.ReadBlock(c, 0, c.Length)
29
44
 
45
+ Console.Write(c)
30
46
 
31
- Combobox3（アイテム名：CCC1)
47
+ End While
32
48
 
33
- Combobox3（アイテム名：CCC2)
49
+ '閉じる
34
50
 
35
-
36
-
37
- Combobox4（アイテム名：CCC1)
38
-
39
- Combobox4（アイテム名：CCC2)
40
-
41
-
42
-
43
- Combobox5（アイテム名：CCC1)
44
-
45
- Combobox5（アイテム名：CCC2)
46
-
47
-
48
-
49
- Combobox6（アイテム名：CCC1)
50
-
51
- Combobox6（アイテム名：CCC2)
52
-
53
-
54
-
55
- Combobox7（アイテム名：CCC1)
56
-
57
- Combobox7（アイテム名：CCC2)
58
-
59
-
60
-
61
- Combobox1=AAA01を選択して他のCombobox2～７を選択します。
62
-
63
- 書き込むボタンを押したらテキストファイルに保存する。
64
-
65
- 再度AAA01を選択してテキストファイルから読み込みボタンを押したら
66
-
67
- Combobox２～７の内容が表示されるようにしたい事です。
68
-
69
- ### 該当のソースコード
70
-
71
-
72
-
73
- ```From1
51
+ sr.Close()
74
-
75
- Private Sub Rset_Click(sender As Object, e As EventArgs) Handles Rset.Click
76
-
77
- Reset_All()’モジュールから
78
-
79
-
80
-
81
- End Sub
82
-
83
- 'Combobox1から７まで
84
-
85
- Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
86
-
87
-
88
-
89
- '「文字列コレクションエディター」から文字を入れています。
90
-
91
- 'Combobox1（アイテム名：AAA01)
92
-
93
- 'Combobox1（アイテム名：AAA02)
94
-
95
-
96
-
97
- If ComboBox1.SelectedIndex = 0 Then
98
-
99
- 'AAA01
100
-
101
- End If
102
-
103
- If ComboBox1.SelectedIndex = 1 Then
104
-
105
- 'AAA02
106
52
 
107
53
  End If
108
54
 
@@ -110,115 +56,43 @@
110
56
 
111
57
 
112
58
 
113
- Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
59
+ Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
114
60
 
61
+
62
+
63
+ Dim sr As New System.IO.StreamReader(
64
+
65
+ "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
66
+
67
+ '内容を一文字ずつ読み込む
68
+
69
+ While sr.Peek() > -1
70
+
115
- TextBox1.Text = ComboBox2.SelectedItem
71
+ Console.Write(Convert.ToChar(sr.Read()))
72
+
73
+ End While
74
+
75
+ '閉じる
76
+
77
+ sr.Close()
116
78
 
117
79
  End Sub
118
80
 
81
+ ```
119
82
 
83
+ ###ソースコードの試した事
120
84
 
121
- Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
85
+ Combobox2のアイテムがテキストファイルに保存されますが。
122
86
 
123
- TextBox2.Text = ComboBox3.SelectedItem
87
+ 読み込む時にコンボボックスに表示しませんでした。
124
-
125
- End Sub
126
88
 
127
89
 
128
90
 
129
- Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
91
+ 書き込み、読み込みした場合のコンボボックスに表示させるにはどうしたら
130
92
 
131
- TextBox3.Text = ComboBox4.SelectedItem
93
+ いいのでしょうか？
132
94
 
133
- End Sub
134
-
135
-
136
-
137
- Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
138
-
139
- TextBox4.Text = ComboBox5.SelectedItem
140
-
141
- End Sub
142
-
143
- Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
144
-
145
- TextBox5.Text = ComboBox6.SelectedItem
146
-
147
- End Sub
148
-
149
- Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
150
-
151
- TextBox6.Text = ComboBox7.SelectedItem
152
-
153
- End Sub
154
-
155
- '書き込む、読み込み
156
-
157
- Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
158
-
159
- 'Combobox1=AAA1を選択された
160
-
161
- 'Combobox1=AAA2を選択された
162
-
163
- End Sub
164
-
165
-
166
-
167
- Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
168
-
169
- ’Combobox1=AAA1を選択されたらCombobox２～７を読み込みして表示される
170
-
171
- ’Combobox1=AAA2を選択されたらCombobox2～７を読み込みして表示される
172
-
173
- End Sub
174
-
175
-
176
-
177
- ```
178
-
179
- ```Module1
180
-
181
- Form1.ComboBox1.SelectedIndex = -1
182
-
183
- Form1.ComboBox2.SelectedIndex = -1
184
-
185
- Form1.ComboBox3.SelectedIndex = -1
186
-
187
- Form1.ComboBox4.SelectedIndex = -1
188
-
189
- Form1.ComboBox5.SelectedIndex = -1
190
-
191
- Form1.ComboBox6.SelectedIndex = -1
192
-
193
- Form1.ComboBox7.SelectedIndex = -1
194
-
195
- 'テキストボックスクリアー
196
-
197
- Form1.TextBox1.Clear()
198
-
199
- Form1.TextBox2.Clear()
200
-
201
- Form1.TextBox3.Clear()
202
-
203
- Form1.TextBox4.Clear()
204
-
205
- Form1.TextBox5.Clear()
206
-
207
- Form1.TextBox6.Clear()
208
-
209
-
210
-
211
- end sub
212
-
213
- ```
214
-
215
- ### 試したこと
95
+ 教えてください。
216
-
217
- 書き込み、読み込むボタンの実行するコードが出来ずにいます。
218
-
219
- いろいろ調べましたがわかりませんでした。
220
-
221
- ご迷惑をおかけしますが回答よろしくお願いいたします。
222
96
 
223
97
 
224
98