我正在为照片浏览器做一些应用 . 但我有两个问题：

  • 现在我看到了所有文件，但是ComboBox1上应该只有一个名字的文件 . 如何修改我的代码来实现这一目标 .

  • 第二：ListBox中文件的名称是相同的，文件的数量是corect但nema是同样的：lbxPliki，我该如何更改？

我为Button和ListBox创建了这个代码：

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim dlgOtworz As New FolderBrowserDialog
    dlgOtworz.ShowNewFolderButton = False
    lbxPliki.Items.Clear()
    Me.Text = "Przeglądarka"
    If dlgOtworz.ShowDialog = Windows.Forms.DialogResult.OK Then
        Folder = dlgOtworz.SelectedPath
        Dim plik As FileInfo
        Dim katalog As New DirectoryInfo(dlgOtworz.SelectedPath)
        listaP = katalog.GetFiles("*.jpg")
        If listaP.Length < 1 Then
            MessageBox.Show("W wybranym folderze brak JPG", "Uwaga", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            For Each plik In listaP
                lbxPliki.Items.Add(lbxPliki.Name)
            Next
        End If
    End If
End Sub

Private Sub lbxPliki_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxPliki.SelectedIndexChanged
    If lbxPliki.Items.Count > 0 Then
        Dim PlikO As String
        PlikO = listaP(lbxPliki.SelectedIndex).ToString
        Try
            pbxObraz.Image = Image.FromFile(Folder & "\" & listaP(lbxPliki.SelectedIndex).ToString)
            Me.Text = "Przeglądarka - " & PlikO
        Catch blad As Exception
            MessageBox.Show("Błąd", "Bą'ad", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
    End If

    For i = 1 To 2
        lbxPliki.SelectedIndex = 0
        If lbxPliki.SelectedIndex = ComboBox1.Text Then
            MsgBox("OK")
        Else : MsgBox("B")
        End If
    Next
End Sub

结束类

vb.net