1,486
社区成员
发帖
与我相关
我的任务
分享问一个关于另存为的API调用问题!急!急!急!急!
dim lreturn string
lReturn = APISaveFileName(GroundManage.hWnd, "另存为", "图片文件 (*.bmp)" & Chr(0) & "*.bmp" & Chr(0), True)
Open lReturn For Binary As #1
Put #1, , arrData()
Close #1
Set objPropBag = Nothing
lReturn = APISaveFileName(GroundManage.hWnd, "另存为", "图片文件 (*.bmp)" & Chr(0) & "*.bmp" & Chr(0), True)
Open lReturn For Binary As #1
Put #1, , arrData()
Close #1
Set objPropBag = Nothing
...全文
请发表友善的回复…
发表回复
