質問編集履歴

誤字

2020/04/10 09:59

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -6,93 +6,59 @@
 ・3つ目(Combobox3～7（アイテム名：CCC01/CCC02)
-Combobox1でAAA01を選択
+Combobox1がAAA01を選択した後、Combobox2から7個のコンボボックスを選択
-Combobox2、Combobox3～7を選択は出来ます。
+その後、書き込みボタンを押すとCombobox2~7まで保存する。
+Combobox1がAAA02を選択してCombobox2~7個選択し、書き込みボタンを押す。
-選択し終えた後の書き込みと読み込みが出来ない状態でいます。
+この２つを書き込みし終えたらCombobox1のindex＝０を選び
+「読み込むボタンを押す」とCombobox2~7個の選択された内容が表示される
+プログラムを作っています。
 ###教えてほしいこと
-Combobox1でAAA01を選択するときに読み込むボタンを押すとCombobox2～7個に
+Combobox1：index＝０（AAA01を選択）して読み込みボタンを押すと
-選択済みの内容が表示させたい事です。
+Combobox２～７個に選択された内容が表示されるようにしたい事です。
-```FORM1
- '書き込む、読み込み
-    Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
-        If ComboBox1.SelectedIndex = 0 Then
-            '"C:\test\1.txt"をShift-JISコードとして開く
-            Dim sr As New System.IO.StreamReader(
-                "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
-            '内容を10文字ずつ読み込む
-            While sr.Peek() > -1
-                Dim c(9) As Char
-                sr.ReadBlock(c, 0, c.Length)
-                Console.Write(c)
-            End While
-            '閉じる
-            sr.Close()
-        End If
-    End Sub
-    Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
+Combobox２～７を全てclearしてindex＝０を選択で読み込みボタンを押す時
+Combobox２～７全て表示させる事は不可能でしょうか？
-        Dim sr As New System.IO.StreamReader(
-            "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
-        '内容を一文字ずつ読み込む
+文章下手で申し訳ございません。
-        While sr.Peek() > -1
-            Console.Write(Convert.ToChar(sr.Read()))
-        End While
+言いたいことは
-        '閉じる
+Index=０を書き込みした（Combobox２～７）のを読み込みボタンを押すと
-        sr.Close()
+Combobox２～７まで選択された内容が表示したい事です。
-    End Sub
+```ここに言語を入力
+My.settings.***.save
 ```
-###ソースコードの試した事
+このmy.settings使ってやってみましたが出来ませんでした。
-Combobox2のアイテムがテキストファイルに保存されますが。
-読み込む時にコンボボックスに表示しませんでした。
+内容不足していて申し訳ございません。
-書き込み、読み込みした場合のコンボボックスに表示させるにはどうしたら
-いいのでしょうか？
-教えてください。

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

2020/04/10 09:59

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

	@@ -1 +1 @@
1	- Comboboxで書き込む、読み込みが出来ません。
1	+ VBでComboboxで選択した後の書き込みと読み込みが出来ません。

test CHANGED Viewed

@@ -1,108 +1,54 @@
-### 前提・実現したいこと
+### やりたい事
-コンボボックスを選択された時、書き込むボタンを押した後
+・1つ目Combobox1（アイテム名：AAA01/AAA02）
-コンボボックスを再度読み込むボタンを押したら選択された内容を表示させたい。
+・2つ目(Combobox2（アイテム名：BBB01/BBB02)
+・3つ目(Combobox3～7（アイテム名：CCC01/CCC02)
+Combobox1でAAA01を選択
+Combobox2、Combobox3～7を選択は出来ます。
+選択し終えた後の書き込みと読み込みが出来ない状態でいます。
-Combobox1～7個あります。
+###教えてほしいこと
+Combobox1でAAA01を選択するときに読み込むボタンを押すとCombobox2～7個に
+選択済みの内容が表示させたい事です。
-Combobox1の選択された時に他のCombobox２～７も選択された時、
+```FORM1
+ '書き込む、読み込み
+    Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
-「文字列コレクションエディター」から文字を入れています。
+        If ComboBox1.SelectedIndex = 0 Then
-Combobox1（アイテム名：AAA01)
+            '"C:\test\1.txt"をShift-JISコードとして開く
-Combobox1（アイテム名：AAA02)
+            Dim sr As New System.IO.StreamReader(
+                "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
+            '内容を10文字ずつ読み込む
-Combobox2（アイテム名：BBB1)
+            While sr.Peek() > -1
-Combobox2（アイテム名：BBB2)
+                Dim c(9) As Char
+                sr.ReadBlock(c, 0, c.Length)
+                Console.Write(c)
-Combobox3（アイテム名：CCC1)
+            End While
-Combobox3（アイテム名：CCC2)
+            '閉じる
-Combobox4（アイテム名：CCC1)
-Combobox4（アイテム名：CCC2)
-Combobox5（アイテム名：CCC1)
-Combobox5（アイテム名：CCC2)
-Combobox6（アイテム名：CCC1)
-Combobox6（アイテム名：CCC2)
-Combobox7（アイテム名：CCC1)
-Combobox7（アイテム名：CCC2)
-Combobox1=AAA01を選択して他のCombobox2～７を選択します。
-書き込むボタンを押したらテキストファイルに保存する。
-再度AAA01を選択してテキストファイルから読み込みボタンを押したら
-Combobox２～７の内容が表示されるようにしたい事です。
-### 該当のソースコード
-```From1
+            sr.Close()
-Private Sub Rset_Click(sender As Object, e As EventArgs) Handles Rset.Click
-        Reset_All()’モジュールから
-    End Sub
-'Combobox1から７まで
-Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
-'「文字列コレクションエディター」から文字を入れています。
-'Combobox1（アイテム名：AAA01)
-'Combobox1（アイテム名：AAA02)
-If ComboBox1.SelectedIndex = 0 Then
-'AAA01
-        End If
-        If ComboBox1.SelectedIndex = 1 Then
-'AAA02
         End If
@@ -110,115 +56,43 @@
-    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
+    Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
+        Dim sr As New System.IO.StreamReader(
+            "0.txt", System.Text.Encoding.GetEncoding("shift_jis"))
+        '内容を一文字ずつ読み込む
+        While sr.Peek() > -1
-        TextBox1.Text = ComboBox2.SelectedItem
+            Console.Write(Convert.ToChar(sr.Read()))
+        End While
+        '閉じる
+        sr.Close()
     End Sub
+```
+###ソースコードの試した事
-    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
+Combobox2のアイテムがテキストファイルに保存されますが。
-        TextBox2.Text = ComboBox3.SelectedItem
+読み込む時にコンボボックスに表示しませんでした。
-    End Sub
-    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
+書き込み、読み込みした場合のコンボボックスに表示させるにはどうしたら
-        TextBox3.Text = ComboBox4.SelectedItem
+いいのでしょうか？
-    End Sub
-    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
-        TextBox4.Text = ComboBox5.SelectedItem
-    End Sub
-    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
-        TextBox5.Text = ComboBox6.SelectedItem
-    End Sub
-    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
-        TextBox6.Text = ComboBox7.SelectedItem
-    End Sub
-'書き込む、読み込み
-    Private Sub SAVE01_Click(sender As Object, e As EventArgs) Handles SAVE01.Click
-'Combobox1=AAA1を選択された
-'Combobox1=AAA2を選択された
-    End Sub
-    Private Sub LOAD01_Click(sender As Object, e As EventArgs) Handles LOAD01.Click
-’Combobox1=AAA1を選択されたらCombobox２～７を読み込みして表示される
-’Combobox1=AAA2を選択されたらCombobox2～７を読み込みして表示される
-    End Sub
-```
-```Module1
-Form1.ComboBox1.SelectedIndex = -1
-        Form1.ComboBox2.SelectedIndex = -1
-        Form1.ComboBox3.SelectedIndex = -1
-        Form1.ComboBox4.SelectedIndex = -1
-        Form1.ComboBox5.SelectedIndex = -1
-        Form1.ComboBox6.SelectedIndex = -1
-        Form1.ComboBox7.SelectedIndex = -1
-        'テキストボックスクリアー
-        Form1.TextBox1.Clear()
-        Form1.TextBox2.Clear()
-        Form1.TextBox3.Clear()
-        Form1.TextBox4.Clear()
-        Form1.TextBox5.Clear()
-        Form1.TextBox6.Clear()
-end sub
-```
-### 試したこと
+教えてください。
-書き込み、読み込むボタンの実行するコードが出来ずにいます。
-いろいろ調べましたがわかりませんでした。
-ご迷惑をおかけしますが回答よろしくお願いいたします。