易截截图软件、单文件、免安装、纯绿色、仅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 文本框

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

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

但是如果
字符串 m1="E"
字符串 m2="6"
如果text1.text=m1+m ......

VB调用word后出现的问题

我用VB调用Word 嵌入VB窗体中(这些都是正常)

然后在桌面打开另一个word a.doc

现在问题出来了.....我关闭VB窗体,之前的那个word也正常关闭了

接下来闭关a.doc 会出现问题


这个要怎� ......

VB窗体问题

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

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


VB cod ......

vb隐藏代码

  用vb做好的软件，想要加入自动隐藏的功能，在那添加啊，还有隐藏的代码那有啊    借用一下    谢了
方法1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号