Dzwebs.Net

撰写电脑技术杂文十余年

VB调用“打开文件”对话框的代码

Admin | 2009-5-5 13:09:54 | 被阅次数 | 12715

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆
调用"打开文件"对话框的VB代码

  Private Type OPENFILENAME
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  lpstrFilter As String
  lpstrCustomFilter As String
  nMaxCustFilter As Long
  nFilterIndex As Long
  lpstrFile As String
  nMaxFile As Long
  lpstrFileTitle As String
  nMaxFileTitle As Long
  lpstrInitialDir As String
  lpstrTitle As String
  flags As Long
  nFileOffset As Integer
  nFileExtension As Integer
  lpstrDefExt As String
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
  End Type
  Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

  将以下代码置于某一事件中

  Dim ofn As OPENFILENAME
  ofn.lStructSize = Len(ofn)
  ofn.hwndOwner = Form1.hWnd
  ofn.hInstance = App.hInstance
  ofn.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "Rich Text Files (*.rtf)" + Chr$(0) + "*.rtf" +   Chr$(0)
  ofn.lpstrFile = Space$(254)
  ofn.nMaxFile = 255
  ofn.lpstrFileTitle = Space$(254)
  ofn.nMaxFileTitle = 255
 ofn.lpstrInitialDir = curdir
  ofn.lpstrTitle = "Our File Open Title"
  ofn.flags = 0
  Dim a
  a = GetOpenFileName(ofn)
  If (a) Then
   MsgBox "File to Open: " + Trim$(ofn.lpstrFile)
  Else
   MsgBox "Cancel was pressed"
  End If

该杂文来自: 网站开发杂文

上一篇:VB代码之禁止使用Alt+F4关闭窗口及软件的使用限制

下一篇:VB调用“打印”对话框的代码

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计