查看完整版本: VB问题全功略（23）

VB问题全功略（23）

　　VB问题全功略（23）

111、您认识 VB 的扩展名吗？
112、完全模拟【开始】中的【运行...】功能
113、模拟【网路上的芳邻】及【我的电脑】中的【连线 / 中断网路磁盘】
114、自制 Round 函数 (取小数点几位)
115、如何找出 Windows 目录的正确路径？
111、您认识 VB 的扩展名吗？

我不知道您已经使用 VB 多久时间了，但是今天当您面对一堆乱七八糟的文件时，您能由扩展名来判断那一个文件是属於 VB 的文件吗？恐怕不是每一个人都可以？

您知道以下这些扩展名都是 VB 指定给【设计阶段文件】的扩展名吗？

扩展名 用於
VB6 VB5 VB4-32 VB4-16 VB3
.bas Basic 模组
* * * * *
.cls 物件类别模组
* * * * 　
.ctl 使用者控制项文件
* * 　 　 　
.ctx 使用者控制项二进位文件
* * 　 　 　
.dca 现用设计师快取文件
* * 　 　 　
.dep 安装精灵附属文件
* * 　 　 　
.dob 使用者文件表单
* * 　 　 　
.dox 使用者文件二进位表单文件
* * 　 　 　
.dsr 现用设计师文件
* * 　 　 　
.dsx 现用设计师二进位文件
* * 　 　 　
.frm 表单文件
* * * * *
.frx 二进位表单文件
* * * * *
.log 载入错误的记录档
* * * * *
.oca 控制项 Typelib 文件
* * * * 　
.pag 属性页文件
* * 　 　 　
.pgx 二进位属性页文件
* * 　 　 　
.res 资源档
* * * * 　
.swt Visual Basic 安装精灵范本文件
* * 　 　 　
.tlb Remote Automation Typelib 文件
* * 　 　 　
.vbg Visual Basic 群组专案
* * 　 　 　
.vbl 使用者控制项授权文件
* * 　 　 　
.vbp Visual Basic 专案
* * * * 　
.vbr Remote Automation 注册文件
* * * * 　
.vbw Visual Basic 专案工作区
* * 　 　 　
.vbz 精灵启动文件
* * * * *
.wct Webclass 范本文件
* 　 　 　 　
.ocx 控制项文件 * * * * 　
.vbx 控制项文件 　 　 　 * *
.mak Visual Basic 专案 * * * * *

112、完全模拟【开始】中的【运行...】功能

请您现在按下【开始】中的【运行...】，看看【运行...】问话框中的说明，是不是如下：

请输入程序、资料夹、文件或 Internet 资源的名称，Windows 会自动开启。

如果说您我也可以做到这种功能，只要是可开启的、可执行的，通通可以做到，您相信吗？不要怀疑！不但可以做到，而且更让您惊讶的，是程序竟然这么短，只要一行就可以了！

您一定认为要用 API，喔！不是！先别乱猜，这次不用声明 API！直接来看一个例子：

在 Form 中放一个 TextBox，名称为 Text1

** Sub Command1_Click()
Call Shell("rundll32.exe url.dll,FileProtocolHandler "