VB编程:Timer控件中使用计数变量-24
        【摘要】   
 
  运行效果:
  
 
  
  
  
  
 
  
  程序代码: 
   Private myint As Integer
    Private Sub Form_Load()
        myint = 0
    End Sub
    
    Private Sub Timer1_Timer()
      &nb...
    
    
    
    
   运行效果: 
 
 
  
 
    Private myint As Integer 
  
 
  
    Private Sub Form_Load() 
  
 
  
        myint = 0 
  
 
  
    End Sub 
  
 
  
    Private Sub Timer1_Timer() 
  
 
  
        myint = myint + 1 
  
 
  
        If myint = 2 Then Me.BackColor = vbGreen 
  
 
  
        If myint = 4 Then Me.BackColor = vbRed 
  
 
  
        If myint = 6 Then Me.BackColor = vbBlue 
  
 
  
        If myint = 10 Then myint = 0 
  
 
  
    End Sub 
  
 
 文章来源: pengshiyu.blog.csdn.net,作者:彭世瑜,版权归原作者所有,如需转载,请联系作者。
原文链接:pengshiyu.blog.csdn.net/article/details/81048873
        【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱:
            cloudbbs@huaweicloud.com
        
        
        
        
        - 点赞
 - 收藏
 - 关注作者
 
            
           
评论(0)