Question

以下是来自模块的代码，每当我选择一行列表框时，它会在我的图像控制框上显示带有路径的图像，该路径位于列表框索引（lisRow，X）上，我正在寻找一个解决方案将能够使用旋转按钮将值x更改为1,2,3或4。（图像路径当前位于B列，对于多个图像，它将采用单元格C，D或E ..所以我将能够在图像控制上看到多个图像）

'------------------------------------------------------
Sub ListBox_Click()
LisRow = UserForm2.ListBox2.ListIndex
PictureName = UserForm2.ListBox2.List(LisRow, X)

With UserForm2
  .txt_LastName.Value = .ListBox2.List(LisRow, 0)
  .txt_FirstName.Value = .ListBox2.List(LisRow, X)
  .Image1.Picture = LoadPicture(PictureName)

End With
End Sub
'------------------------------------------------------

Answer 1

如果您使用列表框更改事件，则可以使用旋转按钮更改列表框。

 Private Sub ListBox1_Change()
    On Error Resume Next
    Image1.Picture = LoadPicture("S:\Stairs\Stair Pics\" & ListBox1)
End Sub

Private Sub SpinButton1_Change()
    ListBox1.ListIndex = SpinButton1.Value
End Sub

使用图像控件分配旋转按钮以查看多个图像

1 个答案: