易截截图软件、单文件、免安装、纯绿色、仅160KB

vb判断.bmp文件是否打开

Open App.Path & "\tu\hb.bmp" For Binary As #100
用open语句打开文件,我想用if语句判断这个文件是否打开,就是说如果没打开,就打开,请问各位朋友怎么写?
是否打开是指是否已经用画笔打开了么?还是别的软件打开了?
如果是画笔,可以用Findwindow函数判断有没有打开
为-1有两种情况,可以通过API函数GetLastError来判断.如果GetLastError的值为ERROR_FILE_NOT_FOUND(值是2),则表示文件不存在;如果是ERROR_ACCESS_DENIED(值为5),则表示文件正在使用中,其它的就根据具体的错误号区分了.
多谢两位朋友,就是用open打开,希望两位写的详细一点,谢谢啊!!

测试过?
拍脑袋想出来的吧?
我用画笔打开后怎么可以直接删除?

引用
换种思路，如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。就是说如果报错，说明已经打开

代码：

on error goto A1
  FileCopy App.Path & "\tu\hb.bmp", "hb.bmp"
  kill "hb.bmp"
  '如果不报错，说明没有打开
    Open App.Path & "\tu\hb.bmp" For Binary As #100
    ......
  exit sub
A1:
  msgbox "文件已经打开"
end sub

设置一布尔量,在窗体加载的时候赋值False,每次Open App.Path & "\tu\hb.bmp" For Binary As #100
后面为该变量赋值True
然后在每次打开之前判断一下该变量
我这里没VB,自己试试
引用
测试过


相关问答：

VB 获取网页源代码

一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......

VB HOOK API

    各位，请问钩子是怎么运行的啊？请先看看我写的代码：
Public hhook
Private Sub Command1_Click()
hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID)
End Sub
以下� ......

VB中关于密码认证

在我的程序里，进入“删除用户”，"添加用户"窗体之前均先弹出一个窗体要求输入管理员密码，输入正确之后才能进入相应界面，如何设计代码？
读数据库里面管理员的密码
然后跟输入的内容比较
很简单 ......

VB窗体问题

我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.

要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6


VB cod ......

VB中另存为对话框的使用

我要导入导出数据库文件，在到处的时候使用另存为对话框，具体代码是如何实现的？我直接用commondialog1.showsave之后点另存为没有响应，是不是要添加什么代码？急！
另存为什么格式的文件你需要告诉大家,写到不同� ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号