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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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 = "OpenSaveDlg"
  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. Option Explicit
  18. Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
  19. Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
  21. Private Type OPENFILENAME
  22.         lStructSize As Long
  23.         hwndOwner As Long
  24.         hInstance As Long
  25.         lpstrFilter As String
  26.         lpstrCustomFilter As String
  27.         nMaxCustFilter As Long
  28.         nFilterIndex As Long
  29.         lpstrFile As String
  30.         nMaxFile As Long
  31.         lpstrFileTitle As String
  32.         nMaxFileTitle As Long
  33.         lpstrInitialDir As String
  34.         lpstrTitle As String
  35.         Flags As Long
  36.         nFileOffset As Integer
  37.         nFileExtension As Integer
  38.         lpstrDefExt As String
  39.         lCustData As Long
  40.         lpfnHook As Long
  41.         lpTemplateName As String
  42. End Type
  44. Public Enum enuDlgFlgs
  45.     OFN_ALLOWMULTISELECT = &H200&
  46.     OFN_CREATEPROMPT = &H2000&
  47.     OFN_DONTADDTORECENT = &H2000000
  48.     OFN_ENABLEHOOK = &H20&
  49.     OFN_ENABLEINCLUDENOTIFY = &H400000
  50.     OFN_ENABLESIZING = &H800000
  51.     OFN_ENABLETEMPLATE = &H40&
  52.     OFN_ENABLETEMPLATEHANDLE = &H80&
  53.     OFN_EX_NOPLACESBAR = &H1&
  54.     OFN_EXPLORER = &H80000
  55.     OFN_EXTENSIONDIFFERENT = &H400&
  56.     OFN_FILEMUSTEXIST = &H1000&
  57.     OFN_FORCESHOWHIDDEN = &H10000000
  58.     OFN_HIDEREADONLY = &H4&
  59.     OFN_LONGNAMES = &H200000
  60.     OFN_NOCHANGEDIR = &H8&
  61.     OFN_NODEREFERENCELINKS = &H100000
  62.     OFN_NOLONGNAMES = &H40000
  63.     OFN_NONETWORKBUTTON = &H20000
  64.     OFN_NOREADONLYRETURN = &H8000
  65.     OFN_NOTESTFILECREATE = &H10000
  66.     OFN_NOVALIDATE = &H100&
  67.     OFN_OVERWRITEPROMPT = &H2&
  68.     OFN_PATHMUSTEXIST = &H800&
  69.     OFN_READONLY = &H1&
  70.     OFN_SHAREAWARE = &H4000&
  71.     OFN_SHAREFALLTHROUGH = 2&
  72.     OFN_SHARENOWARN = 1&
  73.     OFN_SHAREWARN = 0&
  74.     OFN_SHOWHELP = &H10&
  75.     OFN_USEMONIKERS = &H1000000
  76. End Enum
  81. Public Filter As String
  82. Public Flags As enuDlgFlgs
  83. Public InitDir As String
  84. Public DialogTitle As String
  85. Public FileTitle As String
  86. Public FileName As String
  90. Public Function ShowSave(hOwner As Long) As Boolean
  91. Dim ofn As OPENFILENAME
  92. Dim rtn As Long
  93. With ofn
  94.     .lStructSize = Len(ofn)
  95.     .hwndOwner = hOwner
  96.     .hInstance = App.hInstance
  97.     .lpstrFilter = Replace(Filter, "|", Chr(0))
  98.     
  99.     .lpstrFile = Left(FileName & Chr(0) & Space(254), 254)
  100.     
  101.     .nMaxFile = 255
  102.     
  103.     .lpstrFileTitle = Space(254)
  104.     .nMaxFileTitle = 255
  105.     
  106.     .lpstrInitialDir = InitDir
  107.     'If InitDir <> "" Then .lpstrInitialDir = InitDir Else .lpstrInitialDir = "" 'vbNullString ' App.Path
  108.     
  109.     If DialogTitle <> "" Then
  110.         .lpstrTitle = DialogTitle
  111.     Else
  112.         .lpstrTitle = "保存"
  113.     End If
  114.     
  115.     .Flags = Flags
  116. End With
  118. rtn = GetSaveFileName(ofn)
  119. If rtn >= 1 Then
  120.     ShowSave = True
  121.     FileName = Trim$(ofn.lpstrFile)
  122.     FileName = Left$(FileName, Len(FileName) - 1)
  123.     FileTitle = Trim$(ofn.lpstrFileTitle)
  124.     If FileTitle <> "" Then FileTitle = Left$(FileTitle, Len(FileTitle) - 1)
  125.     InitDir = ofn.lpstrInitialDir
  126.   Else
  127.     ShowSave = False
  128. End If
  130. DialogTitle = ""
  132. End Function
  134. Public Function ShowOpen(hOwner As Long) As Boolean
  135.     
  136. Dim ofn As OPENFILENAME
  137. Dim rtn As Long
  138. With ofn
  139.     .lStructSize = Len(ofn)
  140.     .hwndOwner = hOwner
  141.     .hInstance = App.hInstance
  142.     .lpstrFilter = Replace(Filter, "|", Chr(0))
  143.     
  144.     .lpstrFile = Left(FileName & Chr(0) & Space(254), 254)
  145.     
  146.     .nMaxFile = 255
  147.     
  148.     .lpstrFileTitle = Space(254)
  149.     .nMaxFileTitle = 255
  150.     
  151.     .lpstrInitialDir = InitDir
  152.     'If InitDir <> "" Then .lpstrInitialDir = InitDir Else .lpstrInitialDir = "" 'vbNullString ' App.Path
  153.     If DialogTitle <> "" Then
  154.         .lpstrTitle = DialogTitle
  155.     Else
  156.         .lpstrTitle = "打开"
  157.     End If
  158.     
  159.     .Flags = Flags
  160. End With
  162. rtn = GetOpenFileName(ofn)
  163. If rtn >= 1 Then
  164.     ShowOpen = True
  165.     FileName = Trim$(ofn.lpstrFile)
  166.     FileName = Left$(FileName, Len(FileName) - 1)
  167.     FileTitle = Trim$(ofn.lpstrFileTitle)
  168.     If FileTitle <> "" Then FileTitle = Left$(FileTitle, Len(FileTitle) - 1)
  169.     InitDir = ofn.lpstrInitialDir
  170.   Else
  171.     ShowOpen = False
  172. End If
  173. 'Debug.Print ofn.nFileOffset
  174. DialogTitle = ""
  176. End Function
  178. 'Private Sub Class_Initialize()
  179. 'Flags = OFN_ALLOWMULTISELECT Or OFN_EXPLORER
  180. 'End Sub
  181. '