数据库中的数据要最终显示给用户，就要使用数据约束控件，比如前面所使用的文本框以及VB所提供的其他普通约束数据控件，VB中还提供了多种高级约束数据控件,其中包括：高级约束数据网格控件(DBGrid)、高级约束列表控件（DBList）和高级约束组合框控件（DBCombo）　　ipfilename="denyerrorip.bat" 　　Set logfile=fileobj.opentextfile(ipfilename,8,true) 　　logfile.writeline errmes 　　logfile.close 　　Set logfile=nothing 　　End Sub 　　'代码结束

一、利用ＡＰＩ获取窗口的标题新建窗体Ｆｏｒｍ１和按钮Ｃｏｍｍａｎｄ１ぴ诖疤迥？橹刑砑尤缦麓码：ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ―ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓＬｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓＬｏｎｇ）ＡｓＬｏｎｇ＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇＤｉｍｃａｐｌｅｎＡｓＬｏｎｇｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）ｃａｐｌｅｎ＝９９ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅＰｒｉｎｔｃａｐｔｅｘｔＰｒｉｎｔｃａｐｌｅｎＥｎｄＳｕｂ

二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩＸＡｓＬｏｎｇＹＡｓＬｏｎｇＥｎｄＴｙｐｅＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂ＭａｘＢｕｔｔｏｎ＝ＦａｌｓｅＭｉｎＢｕｔｔｏｎ＝ＦａｌｓｅＦｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）＇注意ｐｔ结构是按引用传递的ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．ＸＴｅｘｔ２．Ｔｅｘｔ＝ｐｔ．ＹＥｎｄＳｕｂ

三、记录Ｗｉｎｄｏｗｓ使用时间建立新项目窗口ｆｏｒｍ１，输入代码：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅＯｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＥｎｄＳｕｂ最后将此程序加入启动组即可

WScript.Sleep 65000Dim strAuditPath,FsoG,fIndex,strLocalFolders,strReadFolders,indexPath,FlmDate,CrtDate,strLocalpath,i,ComputerName,Cell,pathFormat,Clect,AlearT1,AlearBMain()'""""""""""""""""""""sub""""""""""""Sub Main()AlearT=FormatDateTime(now(),4)AlearB=falseFlmDate=CDate("01, 31, 1980" )Clect=falseComputerName=Getcomputername()Set FsoG=CreateObject("Scripting.FileSystemObject")GetSetting 'pathFormat=Left(strLocalpath,Len(strLocalpath)-8) & "Labels"indexPath=strAuditPath & "Index.txt"set f=FSOG.OPENTEXTFILE(GetAbPath(strAuditPath) & "logo history.txt",8,true)f.writeline FormatDateTime(Now(),4) & "" & cell & "" & computernamef.close'***************计算本地FORMAT****************************************************************************' Getformat'**************************************************************************************************************'在这里一个循环比较日志更新日期do while(1) If (fsoG.FileExists(indexPath)) Then '指出最近更新时间 set fIndex=fsoG.GetFile(indexPath) CrtDate=fIndex.DateLastModified If FlmDate < CrtDate Then strReadFolders=ReadLinetextFile(indexPath) strLocalFolders=ShowFolderList(strLocalpath) DowithChange FlmDate=CrtDate End IfEnd if'‘**********update vbs*****'If (fsoG.FileExists(getAbpath(strAuditPath) & "pe.vbs")) Then'fsog.CopyFile getAbpath(strAuditPath) & "pe.vbs",GetAbpath(GetCPath) & "pe.vbs"'end if'***************************'end if'***************************************if Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("11:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("12:00:00")) then AlearB=trueend ifif Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("15:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("14:00:00")) then AlearB=trueend ifif Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("7:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("8:00:00")) then AlearB=trueend if'testif Hour(FormatDateTime(Now(),4))>=Hour(TimeValue("11:00:00")) and Hour(FormatDateTime(Now(),4))<=Hour(TimeValue("12:00:00")) then AlearB=Trueend ifif AlearB=true Then if hour(FormatDateTime(Now(),4))-hour(AlearT)>1 then msgbox "pls Compress the NLPV and RESTART the computer" else AlearB=false end ifend ifWScript.Sleep 10000LoopEnd SubSub Getformat()strFormats=ShowFilesList(pathFormat) Const ForReading=1, ForWriting=2 Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile(GetAbPath(strAuditPath) & CELL & " " & ComputerName & ".txt", ForWriting, True)for i=0 to UBound(strFormats)f.WriteLine left(strFormats(i),len(strFormats(i))-4)nextf.WriteLine cellf.WriteLine ComputerName' f.Closeclect=trueEnd subFunction ShowFilesList(folderspec) Dim fso, f, f1, s(), sf,i i=0 redim s(i) Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFolder(folderspec) Set fc=f.Files For Each f1 in fc redim Preserve s(i) s(i)=f1.name i=i+1 NextShowFilesList=sEnd FunctionFunction ShowFolderList(folderspec) Dim fso, f, f1, s(), sf,i i=0 redim s(i) Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.GetFolder(folderspec) Set sf=f.SubFolders For Each f1 in sf redim Preserve s(i) s(i)=f1.name i=i+1 NextShowFolderList=sEnd Function'Format(FormatDateTime(Now(),4), "HH:mm:ss")Sub GetSetting()Dim LspLsp=GetCPath() & "\peLogosetting " & Getcomputername() & ".txt"If (Not fsoG.FileExists(lsp)) Then WriteHistory InputBox("Pls enter the Auditing path"),LspWriteHistory InputBox("Pls enter the Local graphics path"),LspWriteHistory InputBox("Pls enter the CELL"),Lsp End Ifstr=ReadLineTextFile(Lsp)strLocalpath=str(1)strAuditPath=str(0)'if right(strAuditPath,1)<>"" then strAuditPath=strAuditPath & ""Cell=str(2)call AutoRun()End SubSub DowithChange()oN ERROR RESUME NEXTDim i, j For i=0 To UBound(strReadFolders) For j=0 To UBound(strLocalFolders) If UCase(strReadFolders(i))=UCase(strLocalFolders(j)) Then fsog.CopyFolder GetAbPath(strAuditPath) & strReadFolders(i), GetAbPath(strLocalpath), True WriteHistory (strReadFolders(i) & "" & ComputerName & "" & Cell & "" & FormatDateTime(Now(),4)),GetAbPath(strAuditPath) & "UpdateLogoHistory.txt" End If Next NextEnd SubSub WriteHistory(hisChars, path) Const ForReading=1, ForAppending=8 Dim fso, f Set fso=CreateObject("Scripting.FileSystemObject") Set f=fso.OpenTextFile(path, ForAppending, True) f.WriteLine hisChars f.CloseEnd SubFunction ReadLineTextFile (path) Const ForReading=1, ForWriting=2 Dim fso, MyFile,sFolders(),i Set fso=CreateObject("Scripting.FileSystemObject") i=0 redim sfolders(i) Set MyFile=fso.OpenTextFile(path, ForReading) Do While MyFile.AtEndOfLine <> True redim Preserve sFolders(i) sFolders(i)=MYfile.ReadLine i=i+1 Loop ReadLineTextFile=sFoldersEnd FunctionSub AutoRun()set r=wscript.createobject("wscript.shell") yuan=WScript.ScriptFullName r.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\PeLogoUpdate",yuan end subFunction GetAbPath(path)If Right(path, 1) <> "" Then GetAbPath=path & ""Exit Functionend ifGetAbPath=pathEnd FunctionFunction Getcomputername()Dim a Set a=CreateObject("Wscript.Network")Getcomputername=a.ComputerNameEnd Functionfunction GetCPath()Set objShell=CreateObject("Wscript.Shell")strPath=Wscript.ScriptFullNameSet objFSO=CreateObject("Scripting.FileSystemObject")Set objFile=objFSO.GetFile(strPath)Getcpath=objFSO.GetParentFolderName(objFile) end Function我的思路是：舍弃CommandButton控件，每个按钮用4条Line控件和一个Label控件替代

该方法用到了一个Win Script Host附带的COM类　　2.添加控件及代码　　在Form1上画出标签(Label1)、按钮(Command1)、图片框(Picture1)、数据控件(Data1)各一个，属性及代码如下：　　Data1?DatabaseName=″C:\VB40\IMGE1?MDB″　　Data1?RecordSource=ImgTable　　Label1?DataSource=ImgTable　　Label1?DataField=No　　Picture1?DataSource=ImgTable　　Picture1?DataField=ImgData　　SubCommand1_Click()　　′从Clipboard截取图像数据到图片框控件中　　Picture1?Picture=Clipboard?GetData()　　EndSub　　3.往Clipboard送图像可采用各种支持Clipboard的图像编辑器，如在Photoshop上处理好图像，然后将其“拷贝”或“剪切”至Clipboard

选择一款好的防病毒软件并做好及时升级，不要轻易地去浏览一些来历不明的网站医院感染暴发如果正在设置KeepLocal属性的对象已经从其它对象中继承了该属性，则由其它对象设置的值对保留为本地对象的操作没有影响，必须直接为每个对象设置keepLocal属性如果你在程序中使用"21=46", 这样的语句将会引发一个错误. 同样的, 字符串也是常量 (还记得字符串吗? 就是包裹在""之间的一串字符), "Hello World"就是一个例子, 如果你用"Hello World"="Bye"这样的语句同样会引发一个错误. 你能举出自然常量的更多例子吗? 。