王者枫:关于VB MDI窗体中用TIMER控件更换背景图的问题 急~~

来源：百度文库 编辑：高校问答 时间：2024/04/29 04:41:46
目的是叫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

请老手指教
是不是要更新窗体，那应该怎么写呢？

这是界面没有重绘问题，使用重绘函数，刷新！

关于VB MDI窗体中用TIMER控件更换背景图的问题 急~~ 关于VB MDI窗体中用TIMER控件更换背景图的问题 急 ~~ VB关于MDI窗体的问题？ VB MDI 窗体等问题～？ VB问题关于MDI VB中用timer计时器怎么实现倒计时？ 关于VB Timer的问题 如何设置VB.NET的MDI窗体的背景图片？ vb中，把Treeview放入MDI窗体中(在线等) vb.net中如何建MDI子窗体？