在sun=sun+1后加doevents
text1.refresh

解决方案 »

  1.   

    DoEvents
    让出一点cpu时间,text就可以显示了,refresh也可以不用。while sun<300 
    text1.text=text1.text+cstr(sun)
    sun=sun+1
    DoEventswend 
      

  2.   

    while sun<300 
    text1.text=text1.text+cstr(sun)
    DoEvents
    sun=sun+1
    wend 
      

  3.   

    while sun<300 
    text1.text=text1.text+cstr(sun)
    DoEvents
    sun=sun+1
    wend 
      

  4.   

    直接加上text1.refresh就可以了DoEvents可能会影响执行速度
      

  5.   

    去掉doevents可以吗,不单单是速度的问题吧,如果不用,程序会不响应用户的其他操作,cpu占用率会很高。导致画面不能及时刷新。最好还是加上doevents.