Pictureboxで新しいFoamに表示されるようにしたい

Question

##分からない事、試した事

新規作成から

Imports System.ComponentModel
Imports System.Globalization
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

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

        If ListBox1.SelectedIndex = 0 Then
            Form2.Show()
        End If
    End Sub
End Class

Imports System.ComponentModel
Imports System.Globalization
Public Class Form2
    Private ReadOnly list As New Dictionary(Of String, Integer)
    Private ReadOnly list1 As New Dictionary(Of String, Integer)
    Private ReadOnly list2 As New Dictionary(Of String, Integer)
 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        TextBox1.Text = ComboBox1.SelectedItem.ToString

    End Sub
 Private Sub R00_CheckedChanged(sender As Object, e As EventArgs) Handles R00.CheckedChanged
        If R00.Checked = True Then
            ComboBox1.DataSource = New BindingSource(list, Nothing)
        End If
    End Sub

    Private Sub R01_CheckedChanged(sender As Object, e As EventArgs) Handles R01.CheckedChanged
        If R01.Checked = True Then
            ComboBox1.DataSource = New BindingSource(list1, Nothing)
        End If
    End Sub

    Private Sub R02_CheckedChanged(sender As Object, e As EventArgs) Handles R02.CheckedChanged
        If R02.Checked = True Then
            ComboBox1.DataSource = New BindingSource(list2, Nothing)
        End If
    End Sub

 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       
             list.Add("a", 0)
        list1.Add("b", 0)
        list2.Add("c", 0)
        ComboBox1.DisplayMember = "key"
        ComboBox1.ValueMember = "value"
        ComboBox1.DataSource = New BindingSource(list, Nothing)
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
end sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Form3.Show()
    End Sub
End Class

Public Class Form3
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Form2.ComboBox1.SelectedIndex = 0 Then
            PictureBox1.Image = My.Resources.A00
        End If
        If Form2.ComboBox1.SelectedIndex = 1 Then
            PictureBox1.Image = My.Resources.A01
        End If
    End Sub
End Class

新規で試した結果画像表示されました。
ブレークモードも確認しましたが何も問題なく、一つずつすべてのコードを確認
しました。
##バージョンなど
Vistual studio2017

Answer 1

ブレークポイントで確認しましたら何も問題なかったです。
ちょっと気になる点が一つありました。
もう一度全体のコードを確認しました。
Form１が原因でした。

Dim ○○ As New Form2
button1
○○.show

これが原因でした。

Answer 2

デバッガでどのように動作しているか確認しましたか？
foam1.ComboBox1.SelectedIndexの値が実際に何になっていたか確認しましたか？
Form1ではないのですか？

提示されたコードではfoam1.ComboBox1.SelectedIndexの値が0と1以外の場合は
Imageプロパティには何もセットされませんので画像は表示されないかと

Form2で使っているForm1のインスタンスが、表示しているForm1のインスタンスとは別のインスタンスになっていたりしませんか？

Comments

[退会済みユーザー]

回答ありがとうございます
デバッガでForm2からだと出来ます。
PictureBox1.Image = My.Resources.A00
PictureBox1.Image = My.Resources.A01
でIfを付けた場合？画像が表示されません。
すいません修正しましたので確認の方よろしくお願いします。

[YAmaGNZ]

デバッガで
Form2.PictureBox1.Image = My.Resources.A00
もしくは
Form2.PictureBox1.Image = My.Resources.A01
が実行されているのか確認したのですか？
と聞いています。
ブレークポイントを置くなり、ステップ実行するなりすれば簡単に確認できます。
プログラムの作成にはデバッガで動作確認するのは必須ですから、使い方を覚えてください。

また、
>Form2で画像表示と一緒にIndex=0とA00
>もう一回押すとIndex=1とA01がForm2にPicturebox
>に画像表示したいんです。
これでは意味が分かりません。
ボタンを押した場合、
Form1のComboboxの選択されている項目のIndexが0の場合はリソースのA00という画像を表示する
Indexが１の場合はA01という画像を表示するということですか？
それとも、ボタンを押したときにForm1のComboboxの選択項目を変更し、なおかつ画像を変化させるのですか？

条件をつけずに、ボタンが押されたら、A00を表示するということは出来ますか？

[YAmaGNZ]

それで、Form2でボタンを押したときの
Form1.ComboBox1.SelectedIndexの値は何でしたか？
PictureBox1.Image = My.Resources.A00
もしくは
PictureBox1.Image = My.Resources.A01
がブレイクポイントやステップ実行などで確実に実行されているのか確認しましたか？
修正された質問から読み取れません。
「こうソースを書いているから実行されているはず」ではダメです。