国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

在VB中直接用ODBCAPI訪問數(shù)據(jù)庫

2019-11-18 17:49:18
字體：大 中 小
供稿：網(wǎng)友
從WINDOWS95開始，微軟為我們提供了一個(gè)好用的文件搜索器。使用這個(gè)搜索器，我們可以方便快捷的查找到符合條件的文件。但有時(shí)我們在程序設(shè)計(jì)中也需要這一功能，能否在自己的程序中實(shí)現(xiàn)呢？答案當(dāng)然是肯定的。下面我們就來著手設(shè)計(jì)一個(gè)VB程序中的文件搜索器。

　首先，進(jìn)入VB中，建立一個(gè)新的表單。在表單上建立一個(gè)驅(qū)動器列表框(DriveList)，一個(gè)目錄列表框(FolderList)，一個(gè)檢查框(SubCheck)，一個(gè)ListView控件(FileList)，兩個(gè)文本框(FileName，F(xiàn)ileSize)和兩個(gè)按鈕(cmdSearch，cmdExit)。需要注意的是ListView控件是Mscomctl.ocx文件中一組ActiveX控件的一部分。若要在應(yīng)用程序中使用ListView控件，必須將Mscomctl.ocx文件添加到工程中。選擇ListView控件，點(diǎn)擊鼠標(biāo)右鍵，在彈出菜單中選擇“屬性”。在屬性窗口的“列首”頁中設(shè)置將要顯示的列，連續(xù)按動“插入列”5次。排列好各控件的位置，然后加入以下代碼：

OptionExplicit
DimFileSysAsScripting.FileSystemObject

EndSub

PrivateSubAddFiles(SFolderSearchAsScripting.Folder)
DimSFolderAsScripting.Folder
DimSFileAsScripting.File
DimsngFileSizeAsSingle
DimlngSizeAsLong
DimItmAsListItem
IfSubCheck.Value=1Then
IfSFolderSearch.SubFolders.CountThen
ForEachSFolderInSFolderSearch.SubFolders
AddFilesSFolder
NextSFolder
EndIf
EndIf
sngFileSize=FileSize*1000
ForEachSFileInSFolderSearch.Files
WithSFile
If.Size>=sngFileSizeAndIIf(FileName.Text<>"",_
InStr(.Name,FileName.Text)>0,True)Then
SetItm=FileList.ListItems.Add(Text:=.Name)
lngSize=.Size/1000
WithItm
.SubItems(1)=Format(lngSize,"#,###")
.SubItems(2)=SFile.Type
.SubItems(3)=SFile.ParentFolder
.SubItems(4)=SFile.DateLastModified
EndWith
EndIf
EndWith
NextSFile
SetItm=Nothing
SetSFolder=Nothing
EndSub
　運(yùn)行后，選擇相應(yīng)目錄，再在FileName文本框中輸入要查找的文件名或文件名的一部分，然后再在FileSize文本框中輸入文件的大小，按下搜索按鈕即可搜索到相應(yīng)文件。當(dāng)然，這只是個(gè)功能較為簡單的文件搜索器，有興趣的讀者可以使用Scripting.FileSystemObject對象的屬性為其添加一些更為有用的功能。

　本例程序在VisualBasic4.0、Windows95環(huán)境下調(diào)試通過。
->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 武威市| 江孜县| 黄大仙区| 华阴市| 绩溪县| 枞阳县| 汶上县| 德令哈市| 绥滨县| 平舆县| 阜阳市| 青州市| 阿荣旗| 昭苏县| 大厂| 通海县| 西平县| 友谊县| 新宁县| 江华| 蛟河市| 双流县| 祁连县| 贵定县| 尉犁县| 清苑县| 太和县| 阳城县| 新沂市| 年辖：市辖区| 澳门| 新干县| 西充县| 金堂县| 深圳市| 边坝县| 平江县| 佛冈县| 汕头市| 徐闻县| 定远县|