home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / ActiveChar60765392002.psc / modDialog.bas < prev    next >
Encoding:
BASIC Source File  |  2002-03-06  |  3.4 KB  |  99 lines
  1. Attribute VB_Name = "modDialog"
  2. '--------------------------------------------------------------
  3. ' Copyright ⌐1996-2002 VBnet, Randy Birch, All Rights Reserved.
  4. ' Terms of use http://www.mvps.org/vbnet/terms/pages/terms.htm
  5. '--------------------------------------------------------------
  6. Public Declare Function SHGetSpecialFolderPath _
  7.    Lib "shell32.dll" _
  8.    Alias "SHGetSpecialFolderPathA" _
  9.    (ByVal hWnd As Long, _
  10.    ByVal lpszPath As String, _
  11.    ByVal nFolder As Integer, _
  12.    ByVal fCreate As Boolean) As Boolean
  13.    
  14.  
  15.    
  16. Public Const CSIDL_MYPICTURES = &H27
  17. Public Const OFN_ALLOWMULTISELECT As Long = &H200
  18. Public Const OFN_CREATEPROMPT As Long = &H2000
  19. Public Const OFN_ENABLEHOOK As Long = &H20
  20. Public Const OFN_ENABLETEMPLATE As Long = &H40
  21. Public Const OFN_ENABLETEMPLATEHANDLE As Long = &H80
  22. Public Const OFN_EXPLORER As Long = &H80000
  23. Public Const OFN_EXTENSIONDIFFERENT As Long = &H400
  24. Public Const OFN_FILEMUSTEXIST As Long = &H1000
  25. Public Const OFN_HIDEREADONLY As Long = &H4
  26. Public Const OFN_LONGNAMES As Long = &H200000
  27. Public Const OFN_NOCHANGEDIR As Long = &H8
  28. Public Const OFN_NODEREFERENCELINKS As Long = &H100000
  29. Public Const OFN_NOLONGNAMES As Long = &H40000
  30. Public Const OFN_NONETWORKBUTTON As Long = &H20000
  31. Public Const OFN_NOREADONLYRETURN As Long = &H8000& 'see comments
  32. Public Const OFN_NOTESTFILECREATE As Long = &H10000
  33. Public Const OFN_NOVALIDATE As Long = &H100
  34. Public Const OFN_OVERWRITEPROMPT As Long = &H2
  35. Public Const OFN_PATHMUSTEXIST As Long = &H800
  36. Public Const OFN_READONLY As Long = &H1
  37. Public Const OFN_SHAREAWARE As Long = &H4000
  38. Public Const OFN_SHAREFALLTHROUGH As Long = 2
  39. Public Const OFN_SHAREWARN As Long = 0
  40. Public Const OFN_SHARENOWARN As Long = 1
  41. Public Const OFN_SHOWHELP As Long = &H10
  42. Public Const OFS_MAXPATHNAME As Long = 260
  43.  
  44. 'OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS below
  45. 'are mine to save long statements; they're not
  46. 'a standard Win32 type.
  47. Public Const OFS_FILE_OPEN_FLAGS = OFN_EXPLORER _
  48.              Or OFN_LONGNAMES _
  49.              Or OFN_CREATEPROMPT _
  50.              Or OFN_NODEREFERENCELINKS
  51.  
  52. Public Const OFS_FILE_SAVE_FLAGS = OFN_EXPLORER _
  53.              Or OFN_LONGNAMES _
  54.              Or OFN_OVERWRITEPROMPT _
  55.              Or OFN_HIDEREADONLY
  56.  
  57. Public Type OPENFILENAME
  58.   nStructSize       As Long
  59.   hWndOwner         As Long
  60.   hInstance         As Long
  61.   sFilter           As String
  62.   sCustomFilter     As String
  63.   nMaxCustFilter    As Long
  64.   nFilterIndex      As Long
  65.   sFile             As String
  66.   nMaxFile          As Long
  67.   sFileTitle        As String
  68.   nMaxTitle         As Long
  69.   sInitialDir       As String
  70.   sDialogTitle      As String
  71.   flags             As Long
  72.   nFileOffset       As Integer
  73.   nFileExtension    As Integer
  74.   sDefFileExt       As String
  75.   nCustData         As Long
  76.   fnHook            As Long
  77.   sTemplateName     As String
  78. End Type
  79.  
  80. Public OFN As OPENFILENAME
  81.  
  82. Public Declare Function GetOpenFileName Lib "comdlg32" _
  83.     Alias "GetOpenFileNameA" _
  84.    (pOpenfilename As OPENFILENAME) As Long
  85.  
  86. Public Declare Function GetSaveFileName Lib "comdlg32" _
  87.    Alias "GetSaveFileNameA" _
  88.   (pOpenfilename As OPENFILENAME) As Long
  89.  
  90. Public Declare Function GetShortPathName Lib "kernel32" _
  91.     Alias "GetShortPathNameA" _
  92.    (ByVal lpszLongPath As String, _
  93.     ByVal lpszShortPath As String, _
  94.     ByVal cchBuffer As Long) As Long
  95. '--end block--'
  96.  
  97.  
  98.  
  99.