如何使timer控件在运行x次后自动停止运行.txt

VB技巧问答10000例 VB技巧问答10000例

第 一 个 问 题 可 以 这 样 做 ： 
    Private Sub Timer1_Timer() 
     Static nTimes As Integer 
     nTimes = nTimes + 1 
     Debug.Print nTimes 
     If nTimes = 5 Then Timer1.Enabled = False 
    End Sub 
    这 里 的 nTimes是 一 个 静 态 变 量 ， 它 起 计 数 作 用 。 开 始 运 行 后 ， 使 用 Static 语 句 声 明 的 变 量 会 一 直 保 持 其 值 ， 直 至 窗 体 关 闭 。 当 运 行 到 5次 之 后 ， 设 置 Timer1.Enabled属 性 禁 止 Timer控 件 。 
<END>