combox选择的索引没有在picturebox上工作

时间:2016-05-19 06:28:53

标签: vb.net combobox visual-studio-2015 picturebox

现在我正在做的是当我点击按钮组框1并且组框2将显示我想要选择组合框项目而不是图片框项目将加载 这可以多次使用,比如当按钮5点击时,组合框项目名称会改变,图片也会改变。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

    GroupBox1.Show()
    GroupBox2.Show()

    comboboxselectdiffrent.Items.Add("pizza_ChickenSupreme")
    comboboxselectdiffrent.Items.Add("pizza_CockadoodleBacon")

    If comboboxselectdiffrent.SelectedIndex = 0 Then
        PictureBox1.Image = PIZZA_HUT_SYSTEM_NEW_VER.My.Resources.Resources.pizza_ChickenSupreme
    ElseIf comboboxselectdiffrent.SelectedIndex = 1 Then
        PictureBox1.Image = PIZZA_HUT_SYSTEM_NEW_VER.My.Resources.Resources.pizza_CockadoodleBacon
    End If

End Sub

谁能告诉我我做错了什么?我不知道为什么它不会工作

1 个答案:

答案 0 :(得分:0)

在查看你的代码个性后,我会从组合框点击中获得事件触发器,这样它将保存用户必须首先点击组合选择他们的披萨,然后必须单击按钮才能加载图片&安培;细节。
尽管如此。

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ComboBox1.Items.Add("pizza_ChickenSupreme")
    ComboBox1.Items.Add("pizza_CockadoodleBacon")
    ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

End Sub

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

    GroupBox1.Show()
    GroupBox2.Show()

    Select Case ComboBox1.SelectedItem
        Case Is = "pizza_ChickenSupreme"
            PictureBox1.ImageLocation = "Pictures/mypic.jpg"
        Case Is = "pizza_CockadoodleBacon"
            PictureBox1.ImageLocation = "Pictures/mypic1.jpg"

    End Select
    End Sub
    End Class

在解决方案资源管理器中使用自定义文件夹将比使用设置资源更好。创建一个文件夹并将图片拖入其中,然后根据需要更改图像位置的名称。

另外我认为使用项目名称比项目索引更好,因为如果有人认为索引项目从1更改为5会发生什么,您将不得不重新编码,但是通过使用项目名称,它具有关于要寻找什么的更多细节。

如果您有任何问题,请发表评论,我会尽力帮您解决。
快乐编码!