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

編集履歴

質問編集履歴

2

誤字

2020/04/10 09:59

投稿

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

1

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

2020/04/10 09:59

投稿

退会済みユーザー
title CHANGED
@@ -1,1 +1,1 @@
1
- Comboboxで書き込む、読み込みが出来ません。
1
+ VBでComboboxで選択した後の書き込みと読み込みが出来ません。
body CHANGED
@@ -1,114 +1,51 @@
1
- ### 前提・実現したいこと
1
+ ### やりたい事
2
- コンボボックスを選択された時、書き込むボタンを押した後
3
- コンボボックスを再度読み込むボタンを押したら選択された内容を表示させたい。
2
+ ・1つ目Combobox1（アイテム名：AAA01/AAA02）
3
+ ・2つ目(Combobox2（アイテム名：BBB01/BBB02)
4
+ ・3つ目(Combobox3～7（アイテム名：CCC01/CCC02)
5
+ Combobox1でAAA01を選択
6
+ Combobox2、Combobox3～7を選択は出来ます。
7
+ 選択し終えた後の書き込みと読み込みが出来ない状態でいます。
4
8
 
5
- Combobox1～7個あります。
9
+ ###教えてほしいこと
6
-
7
- Combobox1の選択された時に他のCombobox２～７も選択された時、
8
-
9
- 「文字列コレクションエディター」から文字を入れています。
10
- Combobox1（アイテム名：AAA01)
11
- Combobox1（アイテム名：AAA02)
12
-
13
- Combobox2（アイテム名：BBB1)
14
- Combobox2（アイテム名：BBB2)
15
-
16
- Combobox3（アイテム名：CCC1)
17
- Combobox3（アイテム名：CCC2)
18
-
19
- Combobox4（アイテム名：CCC1)
20
- Combobox4（アイテム名：CCC2)
21
-
22
- Combobox5（アイテム名：CCC1)
23
- Combobox5（アイテム名：CCC2)
24
-
25
- Combobox6（アイテム名：CCC1)
26
- Combobox6（アイテム名：CCC2)
27
-
28
- Combobox7（アイテム名：CCC1)
29
- Combobox7（アイテム名：CCC2)
30
-
31
- Combobox1=AAA01を選択して他のCombobox2～７を選択します。
10
+ Combobox1でAAA01を選択するときに読み込むボタンを押すとCombobox2～7個に
32
- 書き込むボタンを押したらテキストファイルに保存する。
33
- 再度AAA01を選択してテキストファイルから読み込みボタンを押したら
34
- Combobox２～７の内容が表示されるようにしたい事です。
11
+ 選択済みの内容が表示させたい事です。
35
- ### 該当のソースコード
36
-
37
- ```From1
12
+ ```FORM1
13
+ '書き込む、読み込み
38
- Private Sub Rset_Click(sender As Object, e As EventArgs) Handles Rset.Click
14
+ Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
39
- Reset_All()’モジュールから
40
-
41
- End Sub
42
- 'Combobox1から７まで
43
- Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
44
-
45
- '「文字列コレクションエディター」から文字を入れています。
46
- 'Combobox1（アイテム名：AAA01)
47
- 'Combobox1（アイテム名：AAA02)
48
-
49
- If ComboBox1.SelectedIndex = 0 Then
15
+ If ComboBox1.SelectedIndex = 0 Then
16
+ '"C:\test\1.txt"をShift-JISコードとして開く
17
+ Dim sr As New System.IO.StreamReader(
18
+ "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
19
+ '内容を10文字ずつ読み込む
20
+ While sr.Peek() > -1
21
+ Dim c(9) As Char
22
+ sr.ReadBlock(c, 0, c.Length)
23
+ Console.Write(c)
24
+ End While
50
- 'AAA01
25
+ '閉じる
26
+ sr.Close()
51
27
  End If
52
- If ComboBox1.SelectedIndex = 1 Then
53
- 'AAA02
54
- End If
55
28
  End Sub
56
29
 
57
- Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
58
- TextBox1.Text = ComboBox2.SelectedItem
59
- End Sub
60
-
61
- Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
62
- TextBox2.Text = ComboBox3.SelectedItem
63
- End Sub
64
-
65
- Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
66
- TextBox3.Text = ComboBox4.SelectedItem
67
- End Sub
68
-
69
- Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
70
- TextBox4.Text = ComboBox5.SelectedItem
71
- End Sub
72
- Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
73
- TextBox5.Text = ComboBox6.SelectedItem
74
- End Sub
75
- Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
76
- TextBox6.Text = ComboBox7.SelectedItem
77
- End Sub
78
- '書き込む、読み込み
79
- Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
80
- 'Combobox1=AAA1を選択された
81
- 'Combobox1=AAA2を選択された
82
- End Sub
83
-
84
30
  Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
31
+
32
+ Dim sr As New System.IO.StreamReader(
33
+ "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
34
+ '内容を一文字ずつ読み込む
35
+ While sr.Peek() > -1
85
- ’Combobox1=AAA1を選択されたらCombobox２～７を読み込みして表示される
36
+ Console.Write(Convert.ToChar(sr.Read()))
37
+ End While
86
- ’Combobox1=AAA2を選択されたらCombobox2～７を読み込みして表示される
38
+ '閉じる
39
+ sr.Close()
87
40
  End Sub
88
-
89
41
  ```
90
- ```Module1
42
+ ###ソースコードの試した事
91
- Form1.ComboBox1.SelectedIndex = -1
92
- Form1.ComboBox2.SelectedIndex = -1
43
+ Combobox2のアイテムがテキストファイルに保存されますが。
93
- Form1.ComboBox3.SelectedIndex = -1
94
- Form1.ComboBox4.SelectedIndex = -1
95
- Form1.ComboBox5.SelectedIndex = -1
96
- Form1.ComboBox6.SelectedIndex = -1
97
- Form1.ComboBox7.SelectedIndex = -1
98
- 'テキストボックスクリアー
44
+ 読み込む時にコンボボックスに表示しませんでした。
99
- Form1.TextBox1.Clear()
100
- Form1.TextBox2.Clear()
101
- Form1.TextBox3.Clear()
102
- Form1.TextBox4.Clear()
103
- Form1.TextBox5.Clear()
104
- Form1.TextBox6.Clear()
105
45
 
106
- end sub
107
- ```
108
- ### 試したこと
109
- 書き込み、読み込むボタンの実行するコードが出来ずにいます。
46
+ 書き込み、読み込みした場合のコンボボックスに表示させるにはどうしたら
110
- いろいろ調べましたがわかりませんでした。
47
+ いいのでしょうか？
111
- ご迷惑をおかけしますが回答よろしくお願いいたします。
48
+ 教えてください。
112
49
 
113
50
  ### 補足情報（FW/ツールのバージョンなど）
114
51