换背景图
大神看看,我要的是每次就显示一个,点击一次换一个应该怎么搞。程序代码:
Private Sub Command1_Click() Form1.AutoRedraw = True Dim i As Integer i = i + 1 If i = 10 Then i = 1 Form1.PaintPicture LoadPicture("D:\1111\" & i & ".jpg"), 0, 0 End Sub
图片名称为1-9.JPG
[此贴子已经被作者于2016-9-5 19:35编辑过]