delphi 中的sleep ();在vb中有這種功能的fun嗎??

Question

VB中如何使用延时函数？
声明：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
调用：
'延时1秒
Call Sleep(1000)====================================================================
最好用Timer控件

Answer 1

以下内容copy自MSDN
下述 Click 事件代码在单击按钮后要一直等候十秒钟，而后才显示一条信息。如果在按钮正在等待期间单击它，则将以相反顺序完成单击操作。Private Sub Command2_Click()
   Static intClick As Integer
   Dim intClickNumber As Integer
   Dim dblEndTime As Double
      '每次单击按钮时
      '赋予唯一数值。
   intClick = intClick + 1
   intClickNumber = intClick
      '等待十秒。
   dblEndTime = Timer + 10#
   Do While dblEndTime > Timer
      '不做任何事情，仅仅允许
      '其它应用程序处理
      '它们的事件。
      DoEvents
   Loop
   MsgBox "Click " & intClickNumber & " is finished"
End Sub

Answer 2

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey

Answer 3

DOEVENT函数可以把控制权交给WINDOWS,当系统空闲侯在继续执行下面的程序。

Answer 4

謝謝
我還想問一個關於文件的問題
我在文件中寫入內容以後
隨後就將此文件輸到lpt 
但是因為lpt  的過程較慢
所以當我第二次開始往此文件中寫入內容時
系統提示沒有使用權限,
請問如何解決

Answer 5

你是怎么写的？这样写最快
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 6

可是lpt 讀的很慢
我想說的是因為lpt 端口還在讀取文件的內容
我無法在文件中寫入內容
所以程式會出錯
有沒有辦法當lpt 已經完成讀取文件內容了
我才開始寫入新的文件

Answer 7

Open "d:\zebra\test2.txt" For Input Access Read As #filename2
     
     Do While Not EOF(filename2)
         lngLine = lngLine + 1
         Line Input #filename, strLine
         If strLine = "^BY2,3.0^FO73,8^BCN,38,N,Y,N^FR^FD>:ABCDEFGHIJKLMNOPQRSTUVWXYZ^FS" Then
            strLine = "^BY2,3.0^FO73,9^BCN,38,N,Y,N^FR^FD>:CN0" + Trim(Vtype) + "12800" + Trim(today) + Trim(series) + "^FS"
           
         End If
         If strLine = "^FO116,45^AIN,32,0^CI0^FR^FDABCDEFGHIJKLMNOPQRSTUVWXYZ^FS" Then
            strLine = "^^FO116,45^AIN,33,0^CI0^FR^FDCN-0" + Trim(Vtype) + "-12800-" + Trim(today) + "-" + Trim(series) + "^FS"
         End If
         strAll = strAll & strLine & vbCrLf
     Loop
     
End If
  
    
      Close #filename2
      Close #filename
      
      Open "d:\zebra\Destination.txt" For Output As #destrination
   
      Print #destrination, strAll
   
      Close #destrination
     
      retVal = Shell("d:\zebra\barcode.bat", vbMinimizedFocus)
      strAll = ""
      strLine = ""
      
        
      Number = Number + 1
      lngLine = 0
   其中barcode.bat 
   "copy d:\zebra\destination.txt prn"

Answer 8

錯誤是發生在程式第二次執行
open"d:\zebra\destination.txt" for output as #destrination的時候
系統提示沒有權限我只有在這句之前加入msgbox("ad")
這樣讓使用者確認
   "copy d:\zebra\destination.txt prn"
執行完成以後再按"確認"
但這樣如果使用者要列印1000份的話
他就要按1000
有沒有更好的方法