VB自定义openfile函数

PrivateDeclareFunctionOpenFileLib"kernel32"(ByVallpFileNameAsString,lpReOpenBuffAsOFSTRUCT,ByValwStyleAsLong)AsLong

PrivateDeclareFunctionWriteFileLib"kernel32"(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToWriteAsLong,lpNumberOfBytesWrittenAsLong,lpOverlappedAsLong)AsLong

PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong

PrivateTypeOFSTRUCT

cBytesAsByte

fFixedDiskAsByte

nErrCodeAsInteger

Reserved1AsInteger

Reserved2AsInteger

szPathNameAsString*128

EndType

PrivateConstOF_READWRITE=&H2

PrivateConstOF_CREATE=&H1000

DimfsAsOFSTRUCT

DimhFileAsLong

PrivateSubCommand1_Click()

DimiAsLong

DimsAsString

i=0

s="HelloWorld"

fs.cBytes=Len(fs)

hFile=OpenFile("c:\tt.txt",fs,OF_CREATEOrOF_READWRITE)

WriteFilehFile,ByVals,Len(s),i,ByVal0

CloseHandlehFile

EndSub

Create()函数

Create是一个可从CFrameWnd继承而来的成员函数，用于窗口的创建和设置。Create是MFC中的一个构造函数，用于生成在屏幕上可见的窗口。示例如下：Create(NULL,_T("HelloMFC"));该函数将会（在已创建窗体对象的前提下）生成一个在屏幕上可以看到的窗口，窗口的标题文本为HelloMFC。CFrameWnd::Create的原型如下：BOOLCreate(LPCTSTRlpszClassName,LPCTSTRlpszWindowName,DWORDdwStyle=WS_OVERLAPPEDWINDOW,constRECT&rect=rectDefault,CWnd*pParentWnd=NULL,LPCTSTRlpszMenuName=NULL,DWORDdwExStyle=0CCreateContext*pContext=NULL)Create接收的8个参数中的6个由默认值定义，如无特殊要求，那么只需要执行最少量的操作，为函数的前两个参数指定值，对剩下的6个参数接受默认值。第一个参数lpszClassName指定了窗口基于WNDCLASS类的名称，若将其设定为NULL则会创建一个基于由主结构注册的WNDCLASS类的默认框架窗口。lpszWindowName参数则指定将在窗口的标题栏出现的文本。调用Create函数可以通过指定别的样式或选择组合样式来更改窗口样式，在CFrameWnd::Create文档中可以找到完整的窗口样式列表。