易截截图软件、单文件、免安装、纯绿色、仅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 禁止指定窗口标题栏菜单

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

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

vb打印问题


Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4

'初始坐标
x = 1
y = 4


'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

VB调用word后出现的问题

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

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

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

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


这个要怎� ......

vb隐藏代码

  用vb做好的软件，想要加入自动隐藏的功能，在那添加啊，还有隐藏的代码那有啊    借用一下    谢了
方法1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me ......

VB过程控制

怎么点击form2上的按钮 可以结束form1上正在进行的循环 

form1里面添加一个变量：
Public bEnd As Boolean

循环代码添加：
bEnd = False
Do
    ...
    If ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号