住宿的读音是什么:关于VB MDI窗体中用TIMER控件更换背景图的问题 急~~
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/04 06:48:36
目的是叫MDI背景按顺序依次贴上12幅图
图片不自动更新。需要最小化窗口再点出来图片才更新
代码是这样的
Dim i As Integer
Private Sub MDIForm_Load()
i = 1
MDI.Picture = LoadPicture("picture\" & i & ".jpg")
i = i + 1
End Sub
Private Sub Timer1_Timer()
If i < 12 Then
MDI.Picture = LoadPicture("picture\" & i & ".jpg")
i = i + 1
Else
i = 1
End If
End Sub
请老手指教
是不是要更新窗体,那应该怎么写呢?
图片不自动更新。需要最小化窗口再点出来图片才更新
代码是这样的
Dim i As Integer
Private Sub MDIForm_Load()
i = 1
MDI.Picture = LoadPicture("picture\" & i & ".jpg")
i = i + 1
End Sub
Private Sub Timer1_Timer()
If i < 12 Then
MDI.Picture = LoadPicture("picture\" & i & ".jpg")
i = i + 1
Else
i = 1
End If
End Sub
请老手指教
是不是要更新窗体,那应该怎么写呢?
这是界面没有重绘问题,使用重绘函数,刷新!