下面以上下滚屏为例，说明实现的过程（限于篇幅，这里只给出可直接实现的程序，关于屏幕保护程序的编写暂不讨论）：实现效果一：画面在漆黑的背景屏幕里滚动，其思路是将整屏画面抓到一个窗体内，而将另一个窗体的背景置黑，首先创建两个窗体forml和form2，置Au?toRedraw属性为True，Border?Style属性为None（无边框），将form2的Backcolor置为黑色DimqtApp DimqtTest DimqtResultsOpt SetqtApp=CreateObject("QuickTest.Application") qtApp.Launch qtApp.Visible=True qtApp.Open"C:\QuickTestProfessional\tests\test1\test1.usr",True SetqtTest=qtApp.Test qtTest.Settings.Run.OnError="NextStep" SetqtResultsOpt=CreateObject("QuickTest.RunResultsOptions") qtResultsOpt.ResultsLocation="C:\QuickTestProfessional\tests\test1" qtTest.Run SetqtResultsOpt=Nothing SetqtTest=Nothing SetqtApp=Nothing

" EndIf '销毁对象变量，释放内存空间 Setobjdrives=Nothing Setobjfiles=Nothing Setobjfile=Nothing Setobjdrive=Nothing Setobjfolders=Nothing Setobjfolder=Nothing Setobjsubfolders=Nothing Setobjsubfolder=Nothing Setfso=Nothing如果在浮点表达式中使用这些常量，可以通过常量的合适类型来加速程序运行，就象下面的代码：

value#=value# 1#.

这个语句强迫编译器按照Double格式存储常量，这样就省却了运行时的隐含转换工作

") Ifreturn=vbokThen R.run("Shutdown.exe-r-t0") Endif

　　所以，COM组件的代码可重用性是最主要的

scriptini.close eq=folderspec endif endif next endsub subregcreate(regkey,regvalue) '修改注册表（创建键值） '这个程序似乎是微软的示范程序----何如在VB中使用回调(CallBack)过程->

Const xlWorkbookNormal=-4143 Const xlSaveChanges=1 objStartFolder="c:\test" '要读取的源文件目录 desExcel="c:\result1.xls" '最后生成的汇总excel Set ExcelApp=CreateObject("Excel.Application") Set destbook=ExcelApp.Workbooks.Add '创建空文件 Set objFSO=CreateObject("Scripting.FileSystemObject")'建立filesystemobject Set objFolder=objFSO.GetFolder(objStartFolder)'获取文件夹 Set colFiles=objFolder.Files '获得源目录下所有文件 intRow=1 '行数 For Each objFile in colFiles '依次处理文件夹中的文件 If UCase(Right(Trim(objFile.Name), 3))="XLS" Then '只处理xls文件 Set srcbook=ExcelApp.Workbooks.Open(objStartFolder + "" + objFile.Name) '打开xls文件 'srcbook.Worksheets(1).Copy destbook.Worksheets(1) srcbook.activate intCol=1 '列数 Do Until ExcelApp.Cells(1,intCol).Value="" tempdata=ExcelApp.Cells(1, intCol).Value destbook.activate ExcelApp.Cells(intRow, intCol).Value=tempdata srcbook.activate intCol=intCol + 1 Loop srcbook.Close '关闭已经打开的xls文件 End If intRow=intRow+1 Next destBook.SaveAs desExcel,xlWorkbookNormal destBook.close xlSaveChanges ExcelApp.quit 编查看剩余内存Commamd1执行一个费时的操作，包括调用多个过程和函数，而Command2则是终止/暂停Command1的运行，不是退出该程序，不知用VB5.0如何解决?答：你可以采用一种变通的方法，在程序中定义一个Boolean变量，在执行command1中的程序时监视该变量，如果为False退出程序，在command2中加入代码，只要点击command2就将该变量设置为False下面是例程DimbMarkAsBooleanPrivateSubCommand1_Click()bMark=TrueForI=1To150000'Startloop.DoEvents'Yieldtooperatingsystem.Text1.Text=Str(I)IfNotbMarkThenExitSubEndIfNextI'IncrementloopcounterEndSubPrivateSubCommand2_Click()bMark=FalseEndSub问：有位大侠编了如下代码:PrivateSubcmdCalendar_Click()DimUserDateAsDateUserDate=CVDate(txtDate)IffrmCalendar.GetDate(UserDate)ThentxtDate=UserDateEndIfEndSub

获得SQL数据/日志空间使用，已使用的和未使用的空间的脚本 getSQLinfo.vbs 'scripttogetSQLDATA/LOGSpaceUsed,Spaceunused, andSpaceFree 'Author:FelipeFerreira,DanielMagrini 'Date:05/07/07 'Version2,0 '@@TOCHANGE:::SERVERNAME\Instance,domain?passwordANDDATABSE! '____________________________________________________________________________ ConstForReading=1,ForWriting=2,ForAppending=8 SetoFSO=CreateObject("Scripting.FilesyStemObject") outputfile="CheckSqlDB_Size.txt" Setofile=oFso.OpenTextFile(outputfile,8,True) oFile.Writeline"######################################################" oFile.Writeline"Thiscommandexecutedin"&Date&"at"&Time&VbCrLf '____________________________________________________________________________ CheckSQLData CheckSQLLOG '##############GETSQLDATASPACEUSED,SPACETOTAL,SPACEFREE 'FunctioncheckSQL(strServer,strDB)inthefuturemakeitafunction.... SubCheckSQLDATA ConstadOpenDynamic=1,adLockOptimistic=3 DimstrQuery DimobjConnection,objRecordSet DimstrQueryResult,strQueryResult2 DimUsedDataSpace,TotalDataSpace,FreeDataSpace SetobjConnection=CreateObject("ADODB.Connection") SetobjRecordSet=CreateObject("ADODB.Recordset") objConnection.Open_ "Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;" strQuery="DBCCshowfilestats" objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic ifobjRecordSet.eofThen 'nothingreturned wscript.echo"ERROR!!!" Else 'NOTE:TogetthevalueinMB64/1024=0.0625 DoUntilobjRecordSet.eof strQueryResult=objRecordSet.Fields("UsedExtents") UsedDataSpace=strQueryResult*0.0625 strQueryResult2=objRecordSet.Fields("TotalExtents") TotalDataSpace=strQueryResult2*0.0625 FreeDataSpace=TotalDataSpace-UsedDataSpace 'CleanData UsedDataSpace=Left(UsedDataSpace,4) FreeDataSpace=Left(FreeDataSpace,4) TotalDataSpace=Left(TotalDataSpace,4) 'PrintResultonScreen Wscript.echo"UsedSpace(MB)="&UsedDataSpace Wscript.Echo"FreeSpace(MB)="&FreeDataSpace Wscript.Echo"TotalSpace(MB)="&TotalDataSpace 'WriteonFile ofile.WriteLine"UsedDATASpace(MB)="&UsedDataSpace ofile.WriteLine"FreeDATASpace(MB)="&FreeDataSpace ofile.WriteLine"TotalDATASpace(MB)="&TotalDataSpace objRecordSet.MoveNext loop endif objRecordSet.Close objConnection.Close setobjConnection=nothing setobjRecordSet=nothing endsub SubCheckSQLLOG ConstadOpenDynamic=1,adLockOptimistic=3 DimstrQuery DimobjConnection,objRecordSet DimstrQueryResult,strQueryResult2 DimUsedLogSpace,TotalLogSpace,FreeLogSpace SetobjConnection=CreateObject("ADODB.Connection") SetobjRecordSet=CreateObject("ADODB.Recordset") objConnection.Open_ "Provider=SQLOLEDB.1;Server=192.168.8.10;UserID=sa;Password=lcx;Database=master;" strQuery="DBCCSQLPERF(LOGSPACE)" objRecordSet.OpenstrQuery,objConnection,adOpenDynamic,adLockOptimistic ifobjRecordSet.eofThen 'nothingreturned wscript.echo"ERROR!!!" Else DoUntilobjRecordSet.eof IfobjRecordSet.Fields("DatabaseName")="master"Then strQueryResult=objRecordSet.Fields("LogSize(MB)") strQueryResult2=objRecordSet.Fields("LogSpaceUSed(%)") UsedLogSpace=(strQueryResult*strQueryResult2)/100 TotalLogSpace=strQueryResult FreeLogSpace=TotalLogSpace-UsedLogSpace 'CleanData UsedLogSpace=Left(UsedLogSpace,4) FreeLogSpace=Left(FreeLogSpace,4) TotalLogSpace=Left(TotalLogSpace,4) 'PrintResultonScreen Wscript.echo"UsedSpace(MB)="&UsedLogSpace Wscript.Echo"FreeSpace(MB)="&FreeLogSpace Wscript.Echo"TotalSpace(MB)="&TotalLogSpace 'WriteonFile oFile.WriteLine"UsedLOGSpace(MB)="&UsedLogSpace oFile.WriteLine"FreeLOGSpace(MB)="&FreeLogSpace oFile.WriteLine"TotalLOGSpace(MB)="&TotalLogSpace oFile.close ExitDo EndIf objRecordSet.MoveNext loop endif objRecordSet.Close objConnection.Close setobjConnection=nothing setobjRecordSet=nothing endsub WSCript.Quit。