怎么用VB实现图片累加？

来源：百度知道 编辑：UC知道 时间：2024/06/17 11:21:53
比如我这里有1.bmp、2.bmp到9.bmp

然后用VB在窗体上实现按1~9显示这些图片，（别告诉我放9个image或pic控件。。。= =）。。。要实现这样的效果应该怎么弄？
比如，第一个图片是“1”，第二个是“2”，第三个是“3”。。。显示出的结果应该是“123”。。。

Private Sub Command1_Click()
Static S
S = S + 1
If S > 9Then
S = 1
End If
Picture1.Picture = LoadPicture()
Picture1.Picture = LoadPicture(App.Path & S & ".bmp")
End Sub

注意：添加1个COMMAND 和1个PICTUREBOX,图片名称必须是1.bmp到9.bmp,生成的工程必须和图片放在一起（同一个文件夹里），否则将出错