用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 使用SendMessage枚举文件与目录

减小字体 增大字体 作者:LinHaibo  来源:本站整理  发布时间:2011-07-07 09:48:32
VBScript code复制代码
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_DIR = &H18D

Private Const DDL_ARCHIVE = &H20                                                '存档文件
Private Const DDL_DIRECTORY = &H10                                              '目录
Private Const DDL_DRIVES = &H4000                                               '驱动器
Private Const DDL_EXCLUSIVE = &H8000                                            '不相容的位。如果设置了这个位,则只列出指定类型的文件;否则列出普通文件和指定类型的文件。
Private Const DDL_HIDDEN = &H2                                                  '隐藏文件
Private Const DDL_POSTMSGS = &H2000                                             'LB_DIR 标志。如果设置了LB_DIR标志,Windows将DlgDirList产生的消息放入应用程序的队列,否则,它们被直接发送到对话框过程。
Private Const DDL_READONLY = &H1                                                '只读文件
Private Const DDL_READWRITE = &H0                                               '可读写
Private Const DDL_SYSTEM = &H4                                                  '系统文件

Private Sub Form_Load()
    '枚举目录
    SendMessage List1.hwnd, LB_DIR, DDL_DIRECTORY Or DDL_EXCLUSIVE, ByVal "D:\My Documents\*"
   
    '枚举exe文件
    SendMessage List1.hwnd, LB_DIR, DDL_READWRITE Or DDL_ARCHIVE, ByVal "D:\My Documents\*.exe"
End Sub
 
  • 好的评价 如果您觉得此文章好,就请您
      100%(2)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论