易截截图软件、单文件、免安装、纯绿色、仅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,自己试试
引用
测试过


相关问答：

关于ASP.net(vb)播放监控录像的问题

我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......

VB 禁止指定窗口标题栏菜单

这个程序是固定的，比如cmd.exe
打开CMD后，鼠标在CMD的标题栏可以点击右键和左键，弹出相应的菜单。

我要达到的目的是：无论是左击还是右击CMD的标题栏都不能弹出菜单。
或者能出现菜单也行，但只能出 ......

vb MSFlexGrid1.Row 实时错误'30009'Row数值无效

代码如下：
Private Sub MSFlexGrid1_SelChange()
  If MSFlexGrid1.Rows = 1 Then Exit Sub
  If MSFlexGrid1.Row = 0 Then Exit Sub
 
  grid_row = MSFlexGrid1.Row
......

VB 获取网页源代码

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

VB 文本框

字符串 m1="E"
字符串 m2="F"

如果text1.text=m1+m2的话  则text1显示的是 EF

但是如果
字符串 m1="E"
字符串 m2="6"
如果text1.text=m1+m ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号