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

t;
ClientHeight = 1440
ClientLeft = 48
ClientTop = 288
ClientWidth = 4416
LinkTopic = "Form1"
ScaleHeight = 1440
ScaleWidth = 4416
StartUpPosition = 3 ''窗口缺省
Begin VB.CommandButton cmdStart  
Caption = "Start"
Height = 372
Left = 1560
TabIndex = 1
Top = 240
Width = 972
End
Begin VB.TextBox Text1  
Height = 372
Left = 120
TabIndex = 0
Text = "Text1"
Top = 840
Width = 4092
End
Begin VB.Timer Timer1  
Enabled = 0 ''False
Interval = 60
Left = 0
Top = 0
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
　  
Private Sub cmdStart_Click()
If OpenMap() = 0 Then
MsgBox "采样程序未运行!", vbOKOnly, ""
Exit Sub
End If
　  
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。
三.　函数描述
在Module1.bas中用到几个与文件映射有关的API函数，分述如下：
1.CreateFileMapping：创建文件映射对象
参数：
hFile：Long——欲在其中创建映射的一个已经打开的磁盘文件句柄;
LpFileMappingAttributes：Long——通常用0表示使用默认安全对象;
FlProtect：Long——打开映射的方式（用API常数表示的读/写或其它）;
DwMaximumSizeHigh，dwMaximumSizeLow：Long——共同表示文件映射的最大长度（前者为高32位，后者为低32位），通常均设为0表示磁盘文件的实际长度;
LpName： String——指定文件映射对象的名称。
返回值：Long——新建文件映射对象的句柄。
2.OpenFileMapping：打开一个现成的文件映射对象
参数：
dwDesiredAccess：Long——用API常数表示的对文件映射的访问方式;
bInheritHandle：Long——返回值对与子进程的继承属性，常设为False;
lpName：String——准备打开的文件映射对象的名称。
返回值：Long——指定的文件映射对象的句柄。
3.MapViewOfFile：将一个文件映射对象映射到当前应用程序空间
参数：
hFileMappingObject：Long——文件映射对象的句柄;
dwDesiredAccess：Long——用API常数表示的对文件映射的访问方式;
dwFileOffsetHigh，dwFileOffsetLow：Long——共同表示文件中的映射起点（前者为高32位，后者为低32位），通常均设为0表示从文件的起始处开始映射;
dwNumberOfBytesToMap：Long——要映射的字节数，通常设为0表示映射整个文件映射对象。
返回值：Long——文件映射在内存中的起始地址。
4.UnmapViewOfFile：解除当前应用程序中的一个文件映射对象的映射地址空间
参数：
lpBaseAddress：要解除映射的文件映射起始地址。
返回值：Long——非零