你好,欢迎来到电脑编程技巧与维护杂志社! 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
流技术在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环境下测试通过,在冷轧工程资料管理中得到实际应用,并在一定程度上提高了文件保密的安全性。

  推荐精品文章

·2024年6月目录 
·2024年5月目录 
·2024年4月目录 
·2024年3月目录 
·2024年2月目录 
·2024年1月目录
·2023年12月目录
·2023年11月目录
·2023年10月目录
·2023年9月目录 
·2023年8月目录 
·2023年7月目录
·2023年6月目录 
·2023年5月目录

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

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备14022230号-1,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区远大路20号宝蓝大厦E座704,邮编:100089