开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
OpenSaveDlg.cls
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：5k
源码类别：

浏览器

开发平台：

Visual Basic

OpenSaveDlg.cls：源码内容
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cOpenSaveDlg"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. '========= 打开保存文件对话框 =============
  17. '2004-7-8   修正了无法用中文初始化文件名的问题
  19. Option Explicit
  21. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  22. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
  24. Private Type OPENFILENAME
  25.         lStructSize As Long
  26.         hwndOwner As Long
  27.         hInstance As Long
  28.         lpstrFilter As String
  29.         lpstrCustomFilter As String
  30.         nMaxCustFilter As Long
  31.         nFilterIndex As Long
  32.         lpstrFile As String
  33.         nMaxFile As Long
  34.         lpstrFileTitle As String
  35.         nMaxFileTitle As Long
  36.         lpstrInitialDir As String
  37.         lpstrTitle As String
  38.         Flags As Long
  39.         nFileOffset As Integer
  40.         nFileExtension As Integer
  41.         lpstrDefExt As String
  42.         lCustData As Long
  43.         lpfnHook As Long
  44.         lpTemplateName As String
  45. End Type
  47. Public Enum enuDlgFlgs
  48.     OFN_ALLOWMULTISELECT = &H200&
  49.     OFN_CREATEPROMPT = &H2000&
  50.     OFN_DONTADDTORECENT = &H2000000
  51.     OFN_ENABLEHOOK = &H20&
  52.     OFN_ENABLEINCLUDENOTIFY = &H400000
  53.     OFN_ENABLESIZING = &H800000
  54.     OFN_ENABLETEMPLATE = &H40&
  55.     OFN_ENABLETEMPLATEHANDLE = &H80&
  56.     OFN_EX_NOPLACESBAR = &H1&
  57.     OFN_EXPLORER = &H80000
  58.     OFN_EXTENSIONDIFFERENT = &H400&
  59.     OFN_FILEMUSTEXIST = &H1000&
  60.     OFN_FORCESHOWHIDDEN = &H10000000
  61.     OFN_HIDEREADONLY = &H4&
  62.     OFN_LONGNAMES = &H200000
  63.     OFN_NOCHANGEDIR = &H8&
  64.     OFN_NODEREFERENCELINKS = &H100000
  65.     OFN_NOLONGNAMES = &H40000
  66.     OFN_NONETWORKBUTTON = &H20000
  67.     OFN_NOREADONLYRETURN = &H8000
  68.     OFN_NOTESTFILECREATE = &H10000
  69.     OFN_NOVALIDATE = &H100&
  70.     OFN_OVERWRITEPROMPT = &H2&
  71.     OFN_PATHMUSTEXIST = &H800&
  72.     OFN_READONLY = &H1&
  73.     OFN_SHAREAWARE = &H4000&
  74.     OFN_SHAREFALLTHROUGH = 2&
  75.     OFN_SHARENOWARN = 1&
  76.     OFN_SHAREWARN = 0&
  77.     OFN_SHOWHELP = &H10&
  78.     OFN_USEMONIKERS = &H1000000
  79. End Enum
  84. Public Filter As String
  85. Public Flags As enuDlgFlgs
  86. Public InitDir As String
  87. Public DialogTitle As String
  88. Public FileTitle As String
  89. Public FileName As String
  93. Public Function ShowSave(hOwner As Long) As Boolean
  94. Dim ofn As OPENFILENAME
  95. Dim rtn As Long
  96. With ofn
  97.     .lStructSize = Len(ofn)
  98.     .hwndOwner = hOwner
  99.     .hInstance = App.hInstance
  100.     .lpstrFilter = Replace(Filter, "|", Chr(0))
  101.     
  102.     .lpstrFile = Left(FileName & Chr(0) & Space(254), 254)
  103.     
  104.     .nMaxFile = 255
  105.     
  106.     .lpstrFileTitle = Space(254)
  107.     .nMaxFileTitle = 255
  108.     
  109.     .lpstrInitialDir = InitDir
  110.     'If InitDir <> "" Then .lpstrInitialDir = InitDir Else .lpstrInitialDir = "" 'vbNullString ' App.Path
  111.     
  112.     If DialogTitle <> "" Then
  113.         .lpstrTitle = DialogTitle
  114.     Else
  115.         .lpstrTitle = "保存"
  116.     End If
  117.     
  118.     .Flags = Flags
  119. End With
  121. rtn = GetSaveFileName(ofn)
  122. If rtn >= 1 Then
  123.     ShowSave = True
  124.     FileName = Trim$(ofn.lpstrFile)
  125.     FileName = Left$(FileName, Len(FileName) - 1)
  126.     FileTitle = Trim$(ofn.lpstrFileTitle)
  127.     If FileTitle <> "" Then FileTitle = Left$(FileTitle, Len(FileTitle) - 1)
  128.     InitDir = ofn.lpstrInitialDir
  129.   Else
  130.     ShowSave = False
  131. End If
  133. DialogTitle = ""
  135. End Function
  137. Public Function ShowOpen(hOwner As Long) As Boolean
  138.     
  139. Dim ofn As OPENFILENAME
  140. Dim rtn As Long
  141. With ofn
  142.     .lStructSize = Len(ofn)
  143.     .hwndOwner = hOwner
  144.     .hInstance = App.hInstance
  145.     .lpstrFilter = Replace(Filter, "|", Chr(0))
  146.     
  147.     .lpstrFile = Left(FileName & Chr(0) & Space(254), 254)
  148.     
  149.     .nMaxFile = 255
  150.     
  151.     .lpstrFileTitle = Space(254)
  152.     .nMaxFileTitle = 255
  153.     
  154.     .lpstrInitialDir = InitDir
  155.     'If InitDir <> "" Then .lpstrInitialDir = InitDir Else .lpstrInitialDir = "" 'vbNullString ' App.Path
  156.     If DialogTitle <> "" Then
  157.         .lpstrTitle = DialogTitle
  158.     Else
  159.         .lpstrTitle = "打开"
  160.     End If
  161.     
  162.     .Flags = Flags
  163. End With
  165. rtn = GetOpenFileName(ofn)
  166. If rtn >= 1 Then
  167.     ShowOpen = True
  168.     FileName = Trim$(ofn.lpstrFile)
  169.     FileName = Left$(FileName, Len(FileName) - 1)
  170.     FileTitle = Trim$(ofn.lpstrFileTitle)
  171.     If FileTitle <> "" Then FileTitle = Left$(FileTitle, Len(FileTitle) - 1)
  172.     InitDir = ofn.lpstrInitialDir
  173.   Else
  174.     ShowOpen = False
  175. End If
  176. 'Debug.Print ofn.nFileOffset
  177. DialogTitle = ""
  179. End Function
  181. 'Private Sub Class_Initialize()
  182. 'Flags = OFN_ALLOWMULTISELECT Or OFN_EXPLORER
  183. 'End Sub
  184. '