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

显示文件属性对话框-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
显示文件属性对话框-VB资料


利用ShellExecuteEx API函数可以调出文件的属性对话框。源代码如下:

Private Type SHELLEXECUTEINFO

cbSize As Long

fMask As Long

hWnd As Long

lpVerb As String

lpFile As String

lpParameters As String

lpDirectory As String

nShow As Long

hInstApp As Long

lpIDList As Long

lpClass As String

hkeyClass As Long

dwHotKey As Long

hIcon As Long

hProcess As Long

End Type

Private Declare Function ShellExecuteEx Lib _

"shell32" (lpSEIAs SHELLEXECUTEINFO) As Long

Private Const SEE_MASK_INVOKEIDLIST = &HC

Private Sub Form_Click()

Call ShowFileProperties( _

"c:\windows\system\msvbvm50.dll")

End Sub

Private Sub ShowFileProperties(ByVal aFile As _

String)

Dim sei As SHELLEXECUTEINFO

sei.hWnd = Me.hWnd

sei.lpVerb = "properties"

sei.lpFile = aFile

sei.fMask = SEE_MASK_INVOKEIDLIST

sei.cbSize = Len(sei)

ShellExecuteEx sei

End Sub

VB获得系统中的所有字体列表 VB获得系统中鼠标的键数 获取驱动器信息-VB资料 文章主题: 获取桌面图象 -VB资料 计算两个日期间的工作日-VB资料 监视外部程序的运行情况-VB资料 检测文件是否存在 -VB资料 检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 检查硬盘空间 -VB资料 将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 快速编辑VB程序技巧 快速查找或替换文本中的字符-VB资料 快速建立目录 -VB资料 快速交换整数 -VB资料 快速注册/注销动态链接库或控件-VB资料 理解面向对象编程 -VB资料 VB利用GetCursorPos 读取滑鼠的座标 利用Visual Basic 关闭Windows9X或者Windows NT VB利用代码启动/关闭中文输入法 模拟一次鼠标事件 -VB资料 目前执行的是哪一国语言的 Windows -VB资料 VB判断剪贴板的所有可用格式 VB判断驱动器类型 VB判断是否已经建立 Dial Up 连接 VB判断一个年份是否为闰年 请问oracle的ORACLE_HOME环境变量怎么设置? 多态问题! 在游标中,如何跳出本次循环,执行下一次循环?我用的是sybase数据库 关于ShellExecute的简单问题,会的朋友都来看看啊 请问:一个简单的表单数据传送问题 如何用php获得一个表单里面的值? 100分在线紧急求救进程调度和内存分配程序,分不够再加,操作系统原理高手请进 这几天忙,提前祝中秋快乐! 高分求助win2k和SQL server 关于安全与数据备份的解决方案 在游标中,如何跳出本次循环,执行下一次循环?我用的是sybase数据库 一直没有搞清楚的问题(关于字节对齐):求助大侠---》》》》先谢了 大家好才是真的好,有个好网你一定要知道 问:物流管理信息系统与物流信息系统有什么区别! ==好的网络发文系统,应该具备哪些功能?== PHP小问题,望指教! 怎么安装grub? 怎样返回从数据库中查到的记录数目,并把它用Label显示出来啊? 提示:无法找到脚本库“/aspnet_client/system_web/1_0_357_0/webUiValication.js。请尝试手动配置此文件,或通过运行aspnet_resiis-c重 请问版主,是谁删了我的贴子,又扣我的信誉分? 高分求助win2k和SQL server 关于安全与数据备份的解决方案 请教关于CriticalSection 有一段源码帮忙分析 我打CS的时候怎么总是被踢呀? swf转avi的123456789问题 各位高手请进!!!!!!!!!!! 女朋友不留一分钱 延缓写入错误? directX8的sdk中的例子,把代码考出来后,编译时怎么会出现如下的错误? 备份的请求! junit的问题。 怎样编写程序,把输入的10个整数按逆序输出? 为什么总是碰到奇怪的问题 今天失恋散分,哇~~~~~~~~~~~~~~~ 这个论坛怎么了 ? 谁有02年的高程试题,发一份给我,谢谢! 有谁在Windows下,最好是VC6里用过GTK+,具体怎么安装GTK+呢,请指点一下,谢谢! 有谁在Windows下,最好是VC6里用过GTK+,具体怎么安装GTK+呢,请指点一下,谢谢! ***关于网卡!!!在线等*** 请问!!! 谁有钱能编的c++的习题答案! 请用过Indy的朋友帮我看一下以下问题如何解决? 如何解决List中的多字段排序 关于ADODB.Connection类型对象的问题 ★★★★XP风格控件界面库★★动态库调用错误★★★★ WIN2000下如何在apache执行asp啊? 请问谁有给别人发email的java代码? 急用!谢谢! 请教COMBOBOX的用法 ---------这个语句应该怎样写?请高手指教!--------- ★★★★XP风格控件界面库★★动态库调用错误★★★★ 为什么老是出错啊 大家觉得LOTUS有前途吗? 今晚打老虎是哪里来的,从电视剧里看到的,想知道出自哪里 法文“今晚打老虎”是什么意思 打老虎是什么意思? 大汶口的原始居民人什么样 琉璃月是什么意思,琉璃是什么意思? 什么是琉璃月 什么词和琉璃月对称 琉璃月歌词 英语翻译请帮我翻译一下这句英语.Case No.is invalid! 谁可以告诉我is invalid这句英语是什么意思?is invalid这句英语是什么意思啊?有谁可以告诉我. The base UI Language directors is invalid!怎么翻译? 月入过万缩水到3000元 杭州部分“浙江高考语文研讨会 预测阅读和写作是茶党加速美国政坛裂变日媒:中国重视周边外交令日本警惕警惕“跷跷板”极端效应新闻集团窃听丑闻“世纪审判”英开审 巴无人机受害者赴美讨说法朝鲜称将继续发射卫星 金正恩首迎外国布鲁姆米兰达赴舞台剧 疑密谋离婚事宜杰克逊私人医生刑满出狱 欲再获行医执聚焦全球健康服务业 看产业带来的经济拔罐方法不对=缩短生命,中医提醒,拔新疆乌什县悬挂花灯喜迎元宵节(组图)新疆兵团八十九团:牲畜安全越冬(图)新疆呼图壁县54岁老木匠做仿古战车“乌鲁木齐:社会保障卡可以到40家银行这样的古牧,你喜欢吗?社评:围绕党性原则开展媒体的创新实践社评:万名华人示威,美主流社会理应反谁先穿谁先美! 2016 年开春必定知道你没玩够,不如来个节后错峰游~为什么脚踏实地的SEOer却仍纠没有异界之卡兽召唤胖子的韩娱人类已经无法满足吾等都市掌门系统无限从漫威开始神棍成神韩娱在明天打工之王仙俑最强山寨系统星际大土匪马牙雪山旅游大敦煌影视城旅游五佛沿寺石窟旅游寿鹿山旅游包头清真大寺旅游芷江受降纪念坊旅游贝壳博物馆旅游胡里山海滨浴场旅游南华路旅游厦门大桥旅游古府城墙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘