在VB中用文档映射来进行进程通讯

Pub_Timer1Run = False
Timer1.Enabled = True
cmdStart.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call CloseMap
End Sub

Private Sub Timer1_Timer()
Static tm As Single, Dlt As Single
Static i As Integer
Static dtNow As Date
Static S As String
Static v(1 To Pub_LoopN) As Single

If Pub_Timer1Run Then Exit Sub
Pub_Timer1Run = True

Call GetFromMap(strBuffer)
If Left(strBuffer, 1) = " " Then
strBuffer = "*" & Mid(strBuffer, 2)
Call CopyToMap(strBuffer)
Text1.Text = strBuffer
End If

Pub_Timer1Run = False
End Sub 'Timer1_Timer

Module1.bas：和Sampling.VBp之Module1.bas几乎完全相同，只是其中编译常数Sampling= False。

[1] [2] 下一页