实现ListBox选中项关联同名前缀图片并在PictureBox加载展示

没问题，这需求我熟！咱们一步步来实现ListBox选中项后，在PictureBox里展示所有对应前缀的图片：

核心思路 #

• 监听ListBox的SelectedIndexChanged事件，用户选中项时立刻触发搜索逻辑
• 提取选中项的文本作为匹配前缀
• 遍历指定目录下的图片文件，筛选出文件名（不含扩展名）以该前缀开头的所有图片
• 根据需求将图片展示到PictureBox（单张显示或多张缩略图列表）

完整代码示例 #

假设你的图片和txt文件在同一个目录（可自行修改imageDir路径），直接把这段代码加到你的窗体类里：

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    ' 先判断有没有选中项，避免空指针
    If ListBox1.SelectedItem Is Nothing Then Return

    ' 获取用户选中的前缀文本
    Dim selectedPrefix As String = ListBox1.SelectedItem.ToString()
    ' 图片所在目录，这里用你原来的Xpath变量，或者改成你的图片路径
    Dim imageDir As String = Xpath

    ' 定义要搜索的图片格式，可根据需求添加更多（比如.webp）
    Dim validImageExts As String() = {".jpg", ".jpeg", ".png", ".bmp", ".gif"}

    ' 筛选出符合条件的图片路径
    Dim matchingImages As List(Of String) = IO.Directory.GetFiles(imageDir) _
        .Where(Function(filePath)
                   ' 先判断文件扩展名是否是图片格式
                   Dim fileExt As String = IO.Path.GetExtension(filePath).ToLower()
                   If Not validImageExts.Contains(fileExt) Then Return False

                   ' 获取不带扩展名的文件名，判断是否以前缀开头（大小写不敏感）
                   Dim fileNameNoExt As String = IO.Path.GetFileNameWithoutExtension(filePath)
                   Return fileNameNoExt.StartsWith(selectedPrefix, StringComparison.OrdinalIgnoreCase)
               End Function) _
        .ToList()

    ' 处理匹配到的图片
    If matchingImages.Count > 0 Then
        ' 方式1：在单个PictureBox显示第一张图片（记得释放旧资源）
        If PictureBox1.Image IsNot Nothing Then
            PictureBox1.Image.Dispose()
        End If
        PictureBox1.Image = Image.FromFile(matchingImages(0))
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom ' 让图片自适应控件大小

        ' 方式2：用FlowLayoutPanel展示所有图片的缩略图（注释掉方式1，打开这段即可）
        ' FlowLayoutPanel1.Controls.Clear()
        ' For Each imgPath In matchingImages
        '     Dim thumbPb As New PictureBox()
        '     thumbPb.Image = Image.FromFile(imgPath)
        '     thumbPb.SizeMode = PictureBoxSizeMode.Zoom
        '     thumbPb.Size = New Size(120, 120) ' 设置缩略图大小
        '     thumbPb.Margin = New Padding(5)
        '     FlowLayoutPanel1.Controls.Add(thumbPb)
        ' Next
    Else
        ' 没有匹配到图片时清空控件并提示
        If PictureBox1.Image IsNot Nothing Then
            PictureBox1.Image.Dispose()
        End If
        PictureBox1.Image = Nothing
        MessageBox.Show($"没找到以「{selectedPrefix}」为前缀的图片哦！")
    End If
End Sub

关键细节说明 #

• 大小写不敏感匹配：用StringComparison.OrdinalIgnoreCase确保不管文件名是House.jpg还是house(1).png都能被匹配到
• 资源释放：每次加载新图片前Dispose旧的Image，避免内存泄漏
• 灵活展示：提供了两种展示方式，单张大图或多张缩略图，按需切换即可
• 格式扩展：如果需要支持更多图片格式，直接在validImageExts数组里添加就行

内容的提问来源于stack exchange，提问作者arc95