你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
流技术在VB存取工程中的应用(七)
 

Function Shellfile(strFile As String)

  Const SE_ERR_NOASSOC = 31

  Dim lngRet As Long

  lngRet = ShellExecuteA(0&, "open", strFile, vbNullString, vbNullString, vbNormalFocus)

  If lngRet = SE_ERR_NOASSOC Then

     '显示打开方式窗口

     CallShellExecuteA(0&,vbNullString,"RUNDLL32.EXE","shell32.dll,OpenAs_RunDLL " _

                        & strFile, vbNullString, vbNormalFocus)

  End If

  MsgBox "浏览完此文件请及时关闭文件,然后再点此确定按钮!", vbOKOnly, "提示"

End Function

Private Sub Form_Unload(Cancel As Integer)

Dim astr As String

astr = Dir("d:\lzzl\*.*")’d:\lzzl是临时文件夹

If astr <> "" Then Kill "d:\lzzl\*.*"

End Sub

这里只是列出了关键控件的执行代码,读者自己根据实际情况来补充完善。

五、结语

本程序代码在中文版VB6Access 2003WindowsXP SP2环境下测试通过,在冷轧工程资料管理中得到实际应用,并在一定程度上提高了文件保密的安全性。

  推荐精品文章

·2019年9月目录 
·2019年8月目录
·2019年7月目录
·2019年6月目录
·2019年5月目录
·2019年4月目录    
·2019年3月目录   
·2019年2月目录   
·2019年1月目录  
·探析云计算下应用软件用户数据安全问题
·地理空间集束线可视化表达
·Android智能净水机APP开发(一)
·2018年12月目录  
·springAOP的思想和设计以及实现

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备06048724号,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区长春桥路5号6号楼1209室,邮编:100089