以下是我寫的程式, 但不知為何數據無法立即顯示, 只能在程式結束時, 才顯示結果, 有沒有方法決解

Private Sub CommandStart_Click(Index As Integer)
While counter < Val(STC(3).Text) Or sstop = 2


Time$ = "00:00:00"
  Do While Timer < Val(PWT(1).Text)
    Out &H378, 1
    Picture1.Picture = LoadPicture("c:\press\pressing.jpg")
    pwttime(0).Text = Timer
        
  Loop
  Time$ = "00:00:00"
  Do While Timer < Val(OWT(2).Text)
    
    Out &H378, 0
    Picture1.Picture = LoadPicture("c:\press\unpressing.jpg")
    OWTtime(0).Text = Timer
    
  Loop
    
  
  counter = counter + 1
  PC(0).Text = counter
 
   
  
  
Wend
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(5) 人氣()