说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用 WIN95 的选择目录对话框

HTML文档下载 WORD文档下载 PDF文档下载
VB使用 WIN95 的选择目录对话框

声明:
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260

Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
函数:
Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String

Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo

With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If

BrowseForFolder = sPath

End Function
VB用WinSock设计Chat程序 运用MSChart,生成统计图形-VB资料 向文本框等等控件的系统右键菜单里追加自己定义的菜单-VB资料 在VB中用定时控件实现长定时操作 在Visual Basic中,在GotFocus事件中快速选定文本 在程序中注册和注销 OCX 控件 -VB资料 在运行时维护DBGRID的栏位宽度-VB资料 VB怎样使用VB开发基于Sybase的C/S软件 VB怎样在运行时动态生成多个相同的控件 直接编辑VB中网格控制项的两种方法 自制控件方面的有关知识-VB资料 Unicode vs Ansi -VB资料 VB 中调用 Word 拼写检查 VB4.0安装程序的汉化 VB中对字符串的处理及其扩展 把符串中的一子串替换为另一子串 -VB资料 把数字转成英文字-VB资料 翻转一个字符串-VB资料 混合字符串的长度 -VB资料 将阿拉伯数字转成中文字的程式 -VB资料 将包含有Null结尾的字符串转换为VB字符串 切分字符串-VB资料 清除字符串中指定的字符 -VB资料 VB如何取得计算机的所有字型? VB如何取得中英混合字符串的长度? 使VB的网格控件具有输入功能 VB如何使用未安装的字体? VB如何由两个ASC码(区位码)复原成一个汉字? VB如何转换C代码中的高字和低字 一些字符串操作的问题和回答 -VB资料 VB怎样把VC++代码转换成VB代码 怎么样能提高IE的速度? 你的DELPHI6的帮助有没有这种问题? 请推荐几处下载java编程方面电子书的站点? 请问有没有工具把access中的文字繁简转化一下?? 找一个高人——HC 请教如何使用API中的GetUserName()? 怎样才能买到 外文期刊??? 如何将一屏显示不下的文档打印在一页当中(CHtmlView) 请问《程序员》杂志上的那几本外文期刊怎么买??? 我下载了几个rar文件有*.rar\*.r01\*.r02等等,可是这个网站没有提供合并文件,忘了怎么合并了,谁知道快告诉我。copy *.rar+*.r01不管用 请教在线的高人(在oicq上吗?) 我是白痴!大虾,什么是专家分,怎么得,有捷径吗???????????? 图形化界面问题!控件与窗体不重合! 书上的东西我看不董,是关于PB70与COM/MTS的,COM/MTS是什么,谁能告诉我? 怎么样能解决死机的问题? 跟帖比聊天有意思多了,哈哈 过去了,就不要再提 灌水乐园,我的MUD练功场 StringList 与 String的区别 为什么我的组合筐里只有最后的项,即"交叉线",没有其他的内容? 关于Tmemo 共享软件的开发经验 部件(Crystal Repot)引用错误(crystl32.ocx),请高手指点,,谢谢 无数个问题之123 steps你有oicq吗?壮丁!!!sos 怎样将数字字符转化为数字呀? WIN98下能读的光盘到了WIN2000/NT下居然读不出来! WIN98下能读的光盘到了WIN2000/NT下居然读不出来!(我的光盘是刻录的) 我不想要分(也许我只是个女生) 40分=一网址:那儿有Effective C++ 2e电子书? 如何在菜单中加入下拉框?像delphi的那样. 怎样用vb程序实现监控打印机打印输出情况 大家评出水园最有人气的mm,我给分啊,行动要快啊~~~~~~~~~~~~~~~~~~~~明天晚上7点结贴 编译servlet文件出错!急!!!! 寻觅朋友(用delphi优先) 我希望能认识安徽的程序员~~~~~~~~~~~~~~~联系:6011458(OICQ) 很长时间,我还是觉得这是一个事实! javascript中怎么进行数据类型间的转换? 关于非文档视图结构程序的菜单 寻delphi兼职程序员,要求比较懂数据库,多劳多得,不劳不得,报酬从几十元到几千元不等。 在程序中更改Filter to lastlove(☆)robin(★) 关于《深入浅出MFC》电子书 SOS:秦皇岛的小男孩胡颖1岁胡颖1岁8个月,得了白血病,希望大家帮助他,留住他的小生命 所有武大的GGDDJJMM进来报名 所有深圳的GGJJDDMM报道 请各位汇编高手看看这个程序,帮忙找一下错误。 无法安装REDHAT LINUX? inet控件怎样使用?请帮助 今天卖到一套D版VS7(6CD)不知道是真是假 如何读取注册表下某一键值? 英语中一些单词的词性是怎么变的?比如说名词变为动词等·有什么规律的吗? 双音节词概括表示心理特点的双音节词语 判断下列词语的词性1.我曾屡次发现,每当我感到前途迷茫而灰心丧气时,只要记住很久以前我在那座小悬崖上所学到的经验,我便能应付一切.我() 曾() 屡次() 发现() 当() 感到( “的”,“得”,“地”各修饰什么词性的词语,有什么区别呢? 英语中以ment结尾的单词既有名词词性又有动词词性的有哪些.如:fragment就是.急 表示心理活动的词语 一个词多个词性,怎么区分?比如说hesitate这个词.hesitation和hesitance都是名词,那应该怎么区分? 汉语双音节词语是什么 表示心理活动的词语.例如:表示心理活动.例如:爱 恨 想 忘记 觉得 感到 希望 羡慕 憧憬 回忆.动词,一个字或两个字,阅读需要!不能有误,有误不给分,若收集500个以上,奖50-100分 帮我辨别一下下面的一些词的词性呀!急就是感情色彩(褒义贬义或者中性)荒唐 异想天开伶俐 无缘无故洋溢 跳梁小丑谦逊 不屈不挠攻击 孜孜不倦谗言 飞黄腾达战争 人迹罕至 什么是双音节词语? 表示心理活动的词语有...不急!不急!不急! 一个词性多个词,怎么区分.比如说hesitate这个词.hesitation和hesitance都是名词,那应该怎么区分? 双音节词语是什么,请举例 表示心理活动的词 《现代汉语》指出下面句子中括号里词的词性.1、你(在)哪里?2、他(在)做作业.3、你(在)哪里工作?4、由你(把)门,谁也不许进来.5、拿(把)锁(把)车锁上.6、他(给)了你一本书 什么是双音节词 词的分类 实词包括名词、动词、形容词、数词、量词、代词.标明下列各词组的词性:坚决——决心( ) 可爱——热爱( ) 荣誉——光荣( )企图——意图( ) 答案——答应( ) 气愤 写出句子中各词语词性.1.东京也无非是这样.2.恩师是让人永远怀念的.3.看,于茂林修竹之中,一潭清泉又呈现于眼前.4.谁说宇宙是没有生命的? 现代汉语中单音节词和双音节词的区别 名词,动词,形容词,数词,量词,副词,的定义举出一些属于这些词的一些词语.按类别在找5个例句.定义最重要 写出下列句子中词语的词性.1.我们的生活十分美好!2.昨天的语文作业我还没做.3.黄色菊花已经盛开了.4.两双皮鞋才卖了陆拾圆!5.他家比我家近.6.一只狗和一只猫都丢了.7.炎热的夏天简直太长 在汉语中什么是单音节词》?和双音节词 能否举例?多举几个! 用十二种词性的词造一句句子. 12种词性为:名词、动词、形容词、数词...用十二种词性的词造一句句子. 12种词性为:名词、动词、形容词、数词、量词、 代词、副词、介词、连词、助词、 “了”在汉语句子中是什么词性是形容词?连词?还是副词? 什么是汉语单音节词和双音节词,怎么定义的?谢谢 用实词中的(名词,动词,形容词,数词,量词,代词)写四词的对联 英语中什么叫系动词 什么词性的词可以做 在汉语中什么是单音节词》?和双音节词 能否举例?谢谢朋友们的回答了. 名词动词形容词数词量词代词各写10个 语文各类词词性及其用法 下列加点的字中表示的单音节相当于现代汉语中的哪个双音节词?有仙则(名):有龙则(灵):苔痕上(阶)绿 :惟吾(德)馨: 英语的名词动词代词形容词副词量词连词冠词 关于几个词的词性(语文)求几个词的词性,准确的说是判断这几个此是什么短语.1、目空一切2、一视同仁3、一笑倾城(从以下几个分类中选:偏正短语、主谓短语、后补短语、动宾短语、 木兰诗结尾一节诗句有什么含义 安全它的动词 形容词 副词 名词 对、在、从、以、为这些词在语文中是什么词性的是不是介词? 1,木兰诗有怎样的特点,用双节音词概括 对联中名词对名词,动词对动词,形容词对形容词,副词对副词什么意思?语文中 名词 动词 形容词 副词 这些是什么意思?详细点 !` 我这人语文基础不好 1.对下列句子中加点词的词性,分析正确的一项是( )①小王曾经跟老张到过俄罗斯 ②小王跟老张到过俄罗斯③小王跟着老张到过俄罗斯 ④他的思想跟不上形势 (加点的字都是 跟)A.①介词 ② 木兰诗叙述的事一个怎样的故事?你能用一个四字词语概括吗?这个故事又怎样的特点木兰诗叙述的事一个怎样的故事?你能用一个四字词语概括吗?这个故事又怎样的特点?你能用一个双音 辨析词语的词性 语文中各种词性的词有符号表示,比如:主语用双横线,谓语用单横线等.英语中有这样的表示方法吗?如果有,和中文的有什么区别? 木兰诗的语言特点“东市买骏马,西市买鞍鞯 ⑿,南市买辔头 ⒀,北市买长鞭.'和"爷娘闻女来,出郭(Ⅸ)相扶将(Ⅹ);阿姊闻妹来,当户理红妆(Ⅺ);小弟闻姊来,磨刀霍霍向猪羊."就说是什么特点好 辨析下面词语的词性春天( )像( )刚( )落地( )的( )娃娃( ),从( )头( )到( )脚( )都( )是( )新( )的( ),它( )生长( )着( ) 安排这个词的词性是名词还是动词? 用一个双音节词语概括本文内容(童趣) 现代汉语语法中,动词有无感情色彩?带有感情色彩的词主要是哪些词性的词? “用途”一词是什么词性?如名词、动词什么的? 表示看的词语,单音节和双音节个七个. 现代汉语:从结构,词性,语法意义,语法特征等举例分析某个合成词(举例的例子要标明出处,包括作者) "到过"一词的词性是什么?是名词还是动词? 什么叫单音节词,什么叫双音节词关于形容词比较级.越多越好 词的语法类别是不是词性? interest empty 用这两个词语造句,名词和动词.两个词性各造一个 写出单音节表示颜色的词语6个,多音节、双音节表颜色的各6个 这个词是什么词性了?Astralia had been peopled for less than 10000 years.peopled 词性的英文名啥的是啥?比如 noun verb adjective Adverb 判断下列各词的词性,按名词.动词.形容词分类!急啊!1.歌颂2.颂歌3.询问4.学问5.勇敢6.勇气.7.创造8.创举9.热烈10.激烈11.障碍12.阻碍13.活力14.活泼15.灵活16.措施17.实施18.整齐19.整理20.整体 什么是单音节词,双音节词,多音节词?单音节词、双音节词和多音节词是什么?怎么区分?大家讲得简单一点我现在是初中阶段 请字是什么词性
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn