0

伺いたいことがあります(内容変更)。

ComboBox1のリストを選択しても、Form1からForm2に初期値の値しか渡りませんでした。

MessageBox.Show(idx)を実施したところ、数字に変化がありませんでした。

Me.ComboBox1.SelectedIndex = 0

この部分を1,2に変化させコンパイルすると、Form2で正しく動きました。ComboBox1のリストで選択した際に、idxも0~2に変化し、その結果、nsf値が1~3に変化させたいのですが、初期値の0のまま動きません。

どのようにすれば成功するかご知見を頂けますと有難く存じます。

①Form1

Public Class Form1

    Public nsf As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

        With Me.ComboBox1

            .Items.Add("1:A")
            .Items.Add("2:B")
            .Items.Add("3:C")

        End With

        Me.ComboBox1.SelectedIndex = 0

        Dim idx As Integer = Me.ComboBox1.SelectedIndex

        nsf = idx + 1

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim f2 As New Form2

        f2.nsf = Me.nsf

        f2.Show()

    End Sub

End Class
9
  • そのコード正しいですか? Form2 にあるボタンのクリックで Form2 を表示するのは変だと思うのですが。Form1 にあるボタンのクリックで Form2 を表示するのではないのですか?
    – WebSurfer
    Commented 2023年4月7日 22:43
  • ご指摘のとおり記載ミスでした。ボタンはForm1の下にありForm2は未記載です。新たに分かった問題として、 MessageBox.Show(idx)を実施したところ、数字に変化がありませんでした。 ' 1番目の項目を選択する Me.ComboBox1.SelectedIndex = 0 この部分を1,2に変化させコンパイルすると、Form2で正しく動きました。 問題点が変わりましたが、ComboBox1のリストで選択した際に、idxも0~2に変化し、その結果、nsf値が1~3に変化させたいのですが、初期値の0のまま動きません。
    – shiro
    Commented 2023年4月7日 23:35
  • 質問を編集して正しく書き直してください。
    – WebSurfer
    Commented 2023年4月7日 23:54
  • ちなみに更新された後の内容であっても、何が問題なのか・どうすれば状況が再現出来るか、といったことへの説明やソースコードが十分では無いように見えます。こちらのヘルプ記事を参考に、質問内容をブラッシュアップしてみてください。良い質問をするには?, 再現可能な短いサンプルコードの書き方 あるいはもしかして本当にソースコードがこれだけならば、コンボボックスの値を変化させる操作を行った際にnsf変数の値を更新するイベント処理が無いからでは?
    – kunif
    Commented 2023年4月8日 8:26

0

この質問に回答するには、ログインする必要があります。

のタグが付いた他の質問を参照する。