comdlg.bas

vb 写的播放器 对新的开发者很有用。写的不错。非常实际

Attribute VB_Name = "COMDLG"

' **********************************************************************
'  描  述：存vb代码写的winnap程序，非常酷
'  Play78.com : 网站导航，源码之家，绝对开源
'  海阔天空收集整理
'  主站地址：http://www.play78.com/
'  源码下载地址：http://www.play78.com/blog
'  图片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:[e-mail]
'  编写日期：2005年08月30日
' **********************************************************************

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public 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

'flags成员
Public Const OFN_ReadOnly = &H1 '只读打开为选中
Public Const OFN_OverWritePrompt = &H2 '覆盖时提示
Public Const OFN_HideReadOnly = &H4 '隐藏只读打开
Public Const OFN_NoChangeDir = &H8 '强制对话框将对话框打开时的目录设置成当前目录
Public Const OFN_ShowHelp = &H10 '显示帮助按钮
Public Const OFN_EnableHook = &H20 '
Public Const OFN_EnableTemplate = &H40 '
Public Const OFN_EnableTemplateHandle = &H80 '
Public Const OFN_NoValidate = &H100 '指定公共对话框允许返回的文件名中含有非法字符
Public Const OFN_AllowMultiSelect = &H200 '多个选中
Public Const OFN_ExtenSionDifferent = &H400 '
Public Const OFN_PathMustExist = &H800 '指定只能输入有效路径
Public Const OFN_FileMustExist = &H1000 '指定只能输入文件名文本框已经存在的文件名
Public Const OFN_CreatePrompt = &H2000 '
Public Const OFN_ShareAware = &H4000 '指定忽略共享冲突错误
Public Const OFN_NoReadOnlyReturn = &H8000 '不返回只读文件，也不能写在保护目录下
Public Const OFN_NoTestFileCreate = &H10000 '
Public Const OFN_NoNetWorkButton = &H20000 '
Public Const OFN_NoLongNames = &H40000 '无长文件名
Public Const OFN_Explorer = &H80000 '资源管理器风格
Public Const OFN_NoDereferenceLinks = &H100000 '不引用快捷方式
Public Const OFN_LongNames = &H200000 '使用长文件名
Public Const OFN_EnableIncludeNotify = &H400000 '
Public Const OFN_EnableSizing = &H800000 '
Public Const OFN_UseMonikers = &H1000000 '
Public Const OFN_DontAddToRecent = &H2000000 '
Public Const OFN_ForceShowHidden = &H10000000 '
Public KuoZhanMing As String '扩展名
Public FileTitle As String '文件名
Public FileName As String '全名
Public PFileTitle As String '不含扩展名

Public Function ShowOpen( _
        Optional Title As String = "打开：", _
        Optional Filter As String = vbNullChar + vbNullChar, _
        Optional StartDir As String = vbNullChar, _
        Optional flags As Long = OFN_ShowHelp Or OFN_EnableHook Or OFN_Explorer Or OFN_AllowMultiSelect Or OFN_UseMonikers) As Long
    Dim OpenFN As OPENFILENAME
    Dim rc As Long
    
    With OpenFN
        .lpstrTitle = Title
        .lpstrFilter = Filter
        .lpstrInitialDir = StartDir
        .lpstrFile = Space(254)
        .nMaxFile = 255
        .lpstrFileTitle = .lpstrFile
        .nMaxFileTitle = 255
        .flags = flags
        .lStructSize = Len(OpenFN)
        .lpTemplateName = String$(256, " ")
    End With
    
    rc = GetOpenFileName(OpenFN)
    FileName = Left(OpenFN.lpstrFile, InStr(OpenFN.lpstrFile, Chr(0)) - 1)
    FileTitle = Left(OpenFN.lpstrFileTitle, InStr(OpenFN.lpstrFileTitle, Chr(0)) - 1)
    PFileTitle = Left(FileTitle, InStr(FileTitle, ".") - 1)
    KuoZhanMing = Mid(FileTitle, InStr(FileTitle, ".") + 1)
    If rc Then
        FileOpen = Left$(OpenFN.lpstrFile, OpenFN.nMaxFile)
        ShowOpen = True
        
    Else
        ShowOpen = False
        
    End If
    
End Function