VB
lzx1221
这个作者很懒,什么都没留下…
展开
-
CommonDialog中同时打开多个文件实现(转)
在Visual Basic中,通常用CommonDialog公共对话框来选择磁盘上的文件,在其Flags属性中加上cdlOFNAllowMultiselect风 格后,就允许选择多个文件。当只选择一个文件时,其文件名(包含路径)直接返回Filename属性,那么选择多个文件时呢? 如果选择了多个文件,则Filename属性返回值格式为”路径_文件名1_文件名2_…”(_为字符Chr$(0))。举转载 2007-07-28 18:56:00 · 2275 阅读 · 0 评论 -
绝对路径分割为目录路径和文件名(VB)
代码 如下: Dim arr Dim i As Long arr = Split(absPath, Chr(0)) i = InStrRev(arr(0), "/") If i > 0 Then filePath = Left(arr(0), i - 1) fileName = Right(arr(0), Len(arr(0)) - i)原创 2007-07-25 14:36:00 · 1397 阅读 · 0 评论 -
绝对路径分割成目录路径和文件名方法2(VB)
Public Function getFilePathAndName(ByVal absPath As String) abspath为绝对路径 filePath = CurDir() fileName = Right$(absPath, Len(absPath) - Len(filePath))End Function原创 2007-07-28 17:37:00 · 1272 阅读 · 0 评论 -
使一个子窗体总在最上
可采用Windows的API函数进行解决 在想要放在最上层的窗体顶部放置以下代码:Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, By原创 2007-08-01 17:59:00 · 612 阅读 · 0 评论