使用vba将图像加载到userform中的标签

Question

我正在处理用户表单以在标签上加载图片，我正在获取

  

运行时错误'75'：路径/文件访问错误

以下代码，

dim solArr as variant
solArr = Split("1.jpg,2.jpg,3.jpg",",")

For i = LBound(solArr) To UBound(solArr)
      'For rating image
      Dim ratingImageName As String
      ratingImageName = "D:\somepath" & "\" & solArr(i)
      Set imageStar = UserForm1.Frame3.Controls.Add("Forms.Label.1")
      imageStar.Top = 40 + (i * 50)
      imageStar.Left = 420
      imageStar.Height = 20
      imageStar.Width = 100
      imageStar.Picture = LoadPicture(ratingImageName)
Next

但是，如果我使用ratingImageName作为"D:\Somepath\1.jpg"，则不会收到任何错误... 有没有更好的方法呢？

Answer 1

嗯.. solArr = Array("1.jpg","2.jpg","3.jpg")

Answer 2

我从单元格中获取了一个值

1.jpg
2.jpg
3.jpg

句子replace(arrSol(i),chr(10),"")解决了这个问题。

Answer 3

Set imageStar = UserForm1.Frame3.Controls.Add("Forms.Label.1")

我在游戏中有很多物品。示例item1，item2，item3 ...如何更改项目（示例项目和i）的索引，并在Form的标签中为项目添加图片。