我如何显示一排不同大小的图像而不会重叠

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坐标。每次绘制图像时，都应将变量增加宽度以及边距。然后，当您绘制下一个图像时，将其绘制在变量指示的位置。