home *** CD-ROM | disk | FTP | other *** search
- Type MhGetFileType
- ' Special TYPEs used by File Dialog routines
-
- hWnd As Integer ' Form's hWnd
- FilterIndex As Long ' Which Filter to use as default
- InitFileName As String ' Used to initialize File Name edit control
- FormCaption As String ' Caption for File Form
- InitDir As String ' Initial directory. Null for CurDir$
- DefaultExtension As String ' Default extension to use (no period)
- HowManyFilters As Integer ' In the other array
- Flags As Long ' See manual
- RawNamePos As Integer ' Returned as Instr in Result$ where raw file name begins
- ExtensionPos As Integer ' Returned as Instr in Result$ where extension begins
- End Type
-
- Type MhFileFilterType
- Description As String ' i.e., "Text Files"
- Mask As String ' "*.txt;*.doc;*.bas
- End Type
- Declare Function MhChooseColor& Lib "mhen200.vbx" (ByVal hWnd%, ByVal DefaultColor&, CustomColors&, ByVal Flags&)
- Declare Function MhGetOpenFileName$ Lib "mhen200.vbx" (X As MhGetFileType, Y As MhFileFilterType)
- Declare Function MhEcode% Lib "mhen200.vbx" ()
- Global Const CC_RGBINIT = 1
-
- ' MhGetOpenFileName and MhGetSaveFileName Values
- Global Const OFN_READONLY = &H1
- Global Const OFN_OVERWRITEPROMPT = &H2
- Global Const OFN_HIDEREADONLY = &H4
- Global Const OFN_NOCHANGEDIR = &H8
- Global Const OFN_SHOWHELP = &H10
- Global Const OFN_EXTENTIONDIFFERENT = &H400
- Global Const OFN_PATHMUSTEXIST = &H800
- Global Const OFN_FILEMUSTEXIST = &H1000
- Global Const OFN_CREATEPROMPT = &H2000
- Global Const OF_SHARE_EXCLUSIVE = &H10
- Global Const OF_SHARE_DENY_WRITE = &H20
- Global Const OF_SHARE_DENY_READ = &H30
- Global Const OF_SHARE_DENY_NONE = &H40
- Global Const OF_CANCEL = &H800
- Global Const OF_PROMPT = &H2000
-
-