Question

我有一个名为

的文件夹

App.Path & "\Images"

在其中我有5张图片，在Form我还有5张Pictureboxes。现在我的问题是，如何一次PictureBox每Image个显示一次？Picture1.Picture = LoadPicture("Path")到目前为止，heres是我的代码

Dim c As Control Dim ImageLink As String With vs1 For Each c In Form1 For i = 1 To .Rows - 1 If Len(ImageLink) > 0 Then ImageLink = ImageLink Debug.Print c.Picture Debug.Print .TextMatrix(i, .ColIndex("Image")) MsgBox .TextMatrix(i, .ColIndex("Image")) c.Picture = LoadPicture("C:\Users\paul\Desktop\Gondola Monitoring System\Image\" & .TextMatrix(i, .ColIndex("Image"))) Next Next End With Form1.Show

这是我到目前为止所做的事情

#define LOG_INFO(...) do{ fprintf(fpLogFile, __VA_ARGS__ ); } while( FALSE )
#else
#define LOG_INFO(...) do{ } while ( FALSE )

我尝试在flexgrid中编写文件名并在每个控件中调用它。

TYSM寻求帮助

Answer 1

Picture1.Picture = LoadPicture(App.Path & "\Images\file1.jpg")
Picture2.Picture = LoadPicture(App.Path & "\Images\file2.jpg")
Picture3.Picture = LoadPicture(App.Path & "\Images\file3.jpg")
Picture4.Picture = LoadPicture(App.Path & "\Images\file4.jpg")
Picture5.Picture = LoadPicture(App.Path & "\Images\file5.jpg")

如果这不能满足您的需求，请提供有关您的要求的更多详细信息。

修改

您的代码无法正常运行。除了图片控件之外，您将循环遍历所有控件，其中包括任何按钮，标签等，并且对于每个控件，您循环遍历网格的所有行。一种更好的方法是将图片控件定义为一个数组（从1开始索引以匹配您的网格for循环），然后使用for索引以使网格行和图片索引匹配。像这样：

With vs1 For i = 1 To .Rows - 1 Picture1(i).Picture = LoadPicture("C:\Users\paul\Desktop\Gondola Monitoring System\Image\" & .TextMatrix(i, .ColIndex("Image"))) Next End With

将文件中的图像显示到图片框中

1 个答案: