因为ACCESS97本身并未提供这类控件，所以必须通过编写有关的宏才能实现该功能，但是编写出的宏限制很多，比如：在选择文件类型时不能同时存在多种文件格式，必须预定义好某一种格式等等'--------------------------------------------------------------------------------------------------- '创建虚拟目录POWERBYJARON,江都资讯网,1999-2002. '如果您需要设置权限，请修改40-56的代码

我们还没说吧？最后得分是4比2，尽管我们打得不那么好　　FloodPercent：显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0～100

Const CAPICOM_HASH_ALGORITHM_MD2=1 Const CAPICOM_HASH_ALGORITHM_MD4=2 Const CAPICOM_HASH_ALGORITHM_MD5=3 Const CAPICOM_HASH_ALGORITHM_SHA1=0 Const CAPICOM_HASH_ALGORITHM_SHA_256=4 Const CAPICOM_HASH_ALGORITHM_SHA_384=5 Const CAPICOM_HASH_ALGORITHM_SHA_512=6 Dim HashedData Set HashedData=CreateObject("CAPICOM.HashedData") HashedData.Algorithm=CAPICOM_HASH_ALGORITHM_SHA1 HashedData.Hash "Demon" WScript.Echo HashedData.Value如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkin就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧

on error resume nextiLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))iUser=LCase(Wscript.Arguments(2))iPass=LCase(Wscript.Arguments(3))set xPost=CreateObject("Microsoft.XMLHTTP")if iUser="" and iPass="" thenxPost.Open "GET",iRemote,0elsexPost.Open "GET",iRemote,0,iUser,iPassend ifxPost.Send()set sGet=CreateObject("ADODB.Stream")sGet.Mode=3sGet.Type=1sGet.Open()sGet.Write xPost.ResponseBodysGet.SaveToFile iLocal,2当你在窗体上加入Timer控件时，它只出现在设计时，而不会在运行时出现可见的控件图标

compare 参数可以有以下值：

极速点击所以我把这些工作都留给了你

Select Case结构提供了 If...Then...ElseIf结构的一个变通形式，可以从多个语句块中选择执行其中的一个。