如何在不重叠的情况下显示不同大小的一行图像？

Question

我想要一个小的基本程序，它可以连续显示多个图像而不会重叠。但由于并非所有图像文件都相同，因此很难这样做。

dir = Program.Directory
imagedir = dir + "\images\"
GraphicsWindow.BrushColor = "White"
For i = 1 To 27
  i_name= File.ReadLine(imagedir+"\imagedata.txt",b) 'imagedata contains the names of all the images in the directory so I don't have to list all the names in the program.
  image[i] = ImageList.LoadImage(imagedir+i_name+".png")
  imagewidth[i] = ImageList.GetWidthOfImage(image[i])
  GraphicsWindow.DrawImage(block[i],(i-1)*imagewidth[i-1],0) 'This is where the trouble lies.
EndFor

Answer 1

我认为您需要另一个变量来存储x坐标。每次绘制图像时，都应该通过宽度加上边距来增加变量。然后，当您绘制下一个图像时，请在变量指示的位置绘制它。