VB做电子贺卡，用timer控件为什么卸载不了main窗体并加载her窗体？

[zhy934453950]

D

Dim a As Integer
Private Sub Form_Load()
    Dim tmpCtl As Object
    Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '自动添加控件
    tmpCtl.Left = 0 '程序边框距离
    tmpCtl.Top = 0
    tmpCtl.Width = Me.Width '设置外观
    tmpCtl.Height = Me.Height
    tmpCtl.Visible = True
    tmpCtl.object.LoadMovie 0, App.Path & "\logo.swf"
    Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
If Interval = 2000 Then
herpicture.Show
Unload Me
End If
End Sub

[qq673366761]

Private Sub Timer1_Timer()
If Interval = 2000 Then
herpicture.Show
Unload Me
End If
End Sub

改成

Private Sub Timer1_Timer()
Interval = 2000 
herpicture.Show
Unload Me
End Sub

[qq673366761]

哦，刚看到你的interval属性已经在控件里面设置了，那就直接去掉if...限定条件条件即可