首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB计时器有关问题,请各位指教一上

2012-12-29 
VB计时器问题,请各位指教一下?Private Sub Command1_Click()If Text1.Text 304473401 ThenElseMsgBox

VB计时器问题,请各位指教一下?
Private Sub Command1_Click()
    
   
   If Text1.Text = "304473401" Then
Else
    MsgBox "你是管理员吗?密码好像不对哦!", vbInformation
   
       
       Text2.Text = Val(TextBox2.Text) * 10
     End If
    Me.WindowState = 1
    Timer1.Enabled = True

  
End Sub
Private Sub form_load()
    Me.WindowState = 2
       BorderStyle = 0
       
       Timer1.Interval = 1000
     
      
       
End Sub


Private Sub Timer1_Timer()
    Dim ite As Integer
    Dim txttime As Integer
    Text2.Text = txttime
    
    ite = ite + 1

If ite = txttime Then
    
    frmlogo.Show
End If

End Sub     在If ite = txttime Then这一句上出错了,我通过点击command1来实现计时,而时间就是text.text值。


[解决办法]
Dim ite As Integer --> static ite as integer 或改为全局变量。

热点排行