高手帮忙！

Question

FILE*          pFile = NULL;
pFile = fopen("c:\\testscan.bmp","wb");
fwrite(&bmpflh,1,sizeof(BITMAPFILEHEADER),pFile)
fseek(pFile,bmpflh.bfSize - 1,SEEK_SET)
这些VC的方法在VB中的方法是怎么样的？能帮我把这几行代码转成VB的吗？

Answer 1

FILE*          pFile = NULL;
pFile = fopen("c:\\testscan.bmp","wb");
fwrite(&bmpflh,1,sizeof(BITMAPFILEHEADER),pFile)
fseek(pFile,bmpflh.bfSize - 1,SEEK_SET)
dim pFile as long
pFile=FreeFile()
open "c:\testscan.bmp" for binary as #pFile
put #pFile,,bmpflh
seek #pFile,bmpflh.bfSize
close #pFile