ListView控件功能綜合應用代碼

'功能；檢查ListView控件是否已初始化PublicFunctionListViewHead(ByRefListViewNameAsListView,ByRefListViewArray()AsVariant,ByValListViewTagNameAsString,ByValIsCheckBoxesAsBoolean)OnErrorGoToONERRORStaticInitializeAsLongStaticListViewTag()AsVariantDimiAsLongDimHeadAsBooleanReDimPreserveListViewTag(Initialize)Fori=0ToUBound(ListViewTag)IfListViewTagName=ListViewTag(i)ThenHead=TrueExitForElseHead=FalseEndIfNextIfHead=FalseThenCallMdlListView.ListViewInitialize(ListViewName,ListViewArray,IsCheckBoxes初始化控件ListViewTag(Initialize)=ListViewTagNameInitialize=Initialize+1EndIfExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox”錯誤代碼："&Err.Number&"錯誤描述："&Err.Description,vbExclamation,'初始化”EraseListViewTagEndSelect'入口參數(shù)；ListViewl 是ListView控件對象.'入口參數(shù)；HeadArray() 是個二維變體數(shù)組'入口參數(shù)；IsCheckBoxes 是否要顯示復選框'功能；ListView控件初始化為報表格式 可通用初始化ListView控件PrivateFunctionListViewInitialize(ByRefListView1AsListView,ByRefHeadArray()AsVariant,ByValIsCheckBoxesAsBoolean)OnErrorGoToONERRORDimitmXAsListItem '定義^■個ListItem對象DimclmXAsColumnHeader添加ColumnHeaders。列寬度等于控件的寬度DimiAsLongListView1.ListItems.Clear '刷新ListView控件ListView1.View=lvwReport '報表格式ListView1.Gridlines=True '確定在“報表”視圖中ListView控件是否顯示網(wǎng)格線ListView1.BorderStyle=ccFixedSingle '返回或設置對象的邊框樣式ListView1.FullRowSelect=True '是否選擇整行SelectCaseIsCheckBoxesCaseIs=TrueListView1.CheckBoxes=True '是否顯示復選框EndSelectFori=LBound(HeadArray)ToUBound(HeadArray)SetclmX=ListView1.ColumnHeaders.Add(,,HeadArray(i,0),HeadArray(i,1))NextSetitmX=NothingSetclmX=NothingEraseHeadArray清空內存空間ExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox”錯誤代碼："&Err.Number&" 錯誤描述："&Err.Description,vbExclamation,'初始化”EndSelect'入口參數(shù)；ListViewl 是控件名稱'入口參數(shù)；ArrayValue 是動態(tài)數(shù)組'功能；添加數(shù)據(jù)到ListView控件中PublicFunctionInisFile(ByRefListViewlAsListView,ByRefArrayValue()AsVariant)OnErrorGoToONERRORDimitmXAsListItem '定義^■個ListItem對象DimiAsLongFori=LBound(ArrayValue)ToUBound(ArrayValue)SelectCaseiCase0SetitmX=ListView1.ListItems.Add(,,ArrayValue(i))文件名稱CaseElseSelectCaseTypeName(ArrayValue(i))Case"Date"itmX.SubItems(i)=Format(ArrayValue(i),"yyyy-m-d")'文件屬性日期CaseElseitmX.SubItems(i)=ArrayValue(i)文件路徑EndSelectSelectCaseArrayValue(i)Case"取消復制”，"創(chuàng)建目錄”,"目錄更改”itmX.ListSubItems.Item(i).ForeColor=vbRed'0xFF紅色'vbBlueEndSelectEndSelectNextDoEvents轉讓控制權給系統(tǒng)SetitmX=NothingEraseArrayValue清空內存空間ExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCase9,380,383ResumeNextCaseElseMsgBox"錯誤代碼："&Err.Number&"錯誤描述："&Err.Description,vbExclamation,"添加數(shù)據(jù)到ListView控件中”ResumeNext'入口參數(shù)；ListViewl 是ListView控件'入口參數(shù)；ArrayValue 是裝載修改數(shù)據(jù)的數(shù)組'功能；修改ListView控件中的數(shù)據(jù)PublicFunctionUpdateListViewData(ByRefListViewlAsListView,ByValRow,ByRefArrayValue()AsVariant)OnErrorGoToONERRORDimitmXAsListItem '定義^■個ListItem對象DimiAsLongFori=LBound(ArrayValue)ToUBound(ArrayValue)SelectCaseiCase0SetitmX=ListView1.ListItems(Row)'獲取指定行CaseElseSelectCaseTypeName(ArrayValue(i))Case"Date"itmX.SubItems(i)=Format(ArrayValue(i),"yyyy-m-d")'文件屬性日期CaseElseitmX.SubItems(i)=ArrayValue(i)文件路徑EndSelectSelectCaseArrayValue(i)Case"取消復制”，"創(chuàng)建目錄”,"目錄更改”itmX.ListSubItems.Item(i).ForeColor=vbRed'0xFF紅色'vbBlue'更改指定列的字體顏色EndSelectEndSelectNextDoEvents轉讓控制權給系統(tǒng)SetitmX=NothingEraseArrayValue清空內存空間ExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox"錯誤代碼："&Err.Number&" 錯誤描述："&Err.Description,vbExclamation,"修改ListView控件中的數(shù)據(jù)"ResumeNext

功能；在一個ListView控件查詢另一個ListView控件的指定的字符串，并選中所當前行PrivateSubListView2_Click()OnErrorGoToONERRORDimstrFindMeAsStringIfListView2.ListItems.Count=0ThenExitSubstrFindMe=ListView2.ListItems(ListView2.SelectedItem.Index).Text’獲取選定行的第一列的文本’FindItem方法返回找到的項目的引用，所以必須創(chuàng)建對象變量并將找到的項目設置給它。DimitmFoundAsListItem’FoundItem變量。SetitmFound=ListView1.FindItem(strFindMe,lvwText,,lvwPartial)’若未找到符合條件的ListItem則通知用戶并退出。如果找到ListItem，則使用EnsureVisible方法滾動控件，并選定ListItemoIfitmFoundIsNothingThen’若沒有匹配成功，則通知用戶并退出。MsgBox"Nomatchfound"’滾動’滾動ListView以顯示找到的ListItem?！x定ListItemo’將焦點返回給控件以查看選擇。itmFound.EnsureVisibleitmFound.Selected=TrueListView1.SetFocusEndIfSetitmFound=NothingONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox"錯誤代碼："&Err.Number&" 錯誤描述："&Err.Description,vbExclamation,App.ExeNameEndSelectEndIfEndSubListView控件的報圖標功能應用代碼'入口參數(shù)；ListViewl是ListView控件'入口參數(shù)；ImageListl是裝載圖片的ImageList控件，必須先裝載好待用圖片'功能；獲取本機磁盤對象PublicFunctionGetDriveObject(ByRefListViewlAsListView,ByRefImageListlAsImageList)OnErrorGoToONERRORDimMyFsoAsObject '文件對象DimMyDriveAsDrive '磁盤對象集合DimitmXAsListItemSetMyFso=CreateObject("Scripting.FileSystemObject")ListView1.ListItems.Clear '刷新ListView控件ListView1.View=lvwIcon '圖標格式ListView1.Icons=ImageList1 '初始化ImageList1圖像控件ForEachMyDriveInMyFso.DrivesSelectCaseMyDrive.DriveTypeCase1'移動盤SetitmX=ListView1.ListItems.Add(,,UCase(MyDrive.DriveLetter)&":\",1)Case2'本地硬盤SetitmX=ListView1.ListItems.Add(,,UCase(MyDrive.DriveLetter)&":\",2)Case4'本地光驅SetitmX=ListView1.ListItems.Add(,,UCase(MyDrive.DriveLetter)&":\",3)EndSelectNextSetMyFso=Nothing:SetMyDrive=Nothing:SetitmX=NothingExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox"錯誤代碼："&Err.Number&"錯誤描述："&Err.Description,vbExclamation,'磁盤對象EndSelectSetMyFso=Nothing:SetMyDrive=Nothing:SetitmX=NothingEndIfEndFunction'入口參數(shù)；ListViewl入口參數(shù)；'入口參數(shù)；ListViewl入口參數(shù)；TextArray'入口參數(shù)；ImageListl是一個一維數(shù)組是裝載圖片的ImageList控件，必須先裝載好待用圖片'功能；初始化ListView控件為圖標格式PublicFunctionListView_ICO(ByRefListViewlAsListView,ByRefTextArray()AsVariant,ByRefImageListlAsImageList)OnErrorGoToONERRORDimForVAsLongDimitmXAsListItemListViewl.ListItems.ClearListViewl.ViewListViewl.ListItems.ClearListViewl.View=IvwIconListViewl.Icons=ImageListl'刷新ListView控件'圖標格式'初始化ImageListl圖像控件ForForV=LBound(TextArray)ToUBound(TextArray)SetitmX=ListView1.ListItems.Add(,,TextArray(ForV),1)NextSetitmX=NothingExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox”錯誤代碼："&Err.Number&"錯誤描述："&Err.Description,vbExclamation,”圖標格式EndSelectSetitmX=NothingEndIfEndFunction

是查詢語句是控件對象全局連接數(shù)據(jù)對象是全局ADO是查詢語句是控件對象全局連接數(shù)據(jù)對象是全局ADO對象，用于類模塊查詢用。'入口參數(shù)；ListViewl入口參數(shù)；ConnectObject入口參數(shù)；ADObject'功能；查詢數(shù)據(jù)庫數(shù)據(jù)并返回一個一維數(shù)組PublicFunctionSelectDATA(ByValSqlStringAsString,ByRefListView1AsListView,ByRefConnectObjectAsConnect,ByRefADObjectAsObject)AsBooleanOnErrorGoToONERRORDimColAsLongDimRecordsetAsADODB.RecordsetDimTempArray()AsVariantSelectCaseConnectObject.GetRecordset_Data(SqlString,Recordset,ADObject)Case0MsgBox”沒有數(shù)據(jù)可提供查詢！”,vbExclamation,App.EXENameSelectDATA=FalseCase1DoUntilRecordset.EOFForCol=0ToRecordset.Fields.Count-1ReDimPreserveTempArray(Col)TempArray(Col)=Recordset.Fields(Col).ValueDoEvents轉讓控制權給系統(tǒng)NextCallInisFile(ListView1,TempArray)添加數(shù)據(jù)到控件行中EraseTempArrayRecordset.MoveNextDoEvents'轉讓控制權給系統(tǒng)LoopRecordset.Close:SetRecordset=Nothing:SelectDATA=TrueCase2MsgBox”查詢出錯！"，vbExclamation,App.EXENameSelectDATA=FalseEndSelectExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox”錯誤代碼："&Err.Number&"錯誤描述："&Err.Description,vbExclamation,"添加數(shù)據(jù)到ListView控件中”ResumeNext'入口參數(shù)；ListViewl 是控件對象'入口參數(shù)；Col 是指定要查找相同值的列入口參數(shù)；Col_Value 是要比較的值'功能；檢查ListView控件中指定列的值是否重復輸入PublicFunctionRemove_Repeat_Value(ByRefListViewlAsListView,ByValColAsLong,ByValCol_ValueAsVariant)AsBooleanOnErrorGoToONERRORDimRAsLongDimTempAsStringDimCAsLongIfListView1.ListItems.Count>0ThenForR=1ToListView1.ListItems.CountIfCol=1Then'如果是指定第一列的值Temp=ListView1.ListItems(R).Text '獲取當前行的第一列的文本ElseTemp=ListView1.ListItems(R).SubItems(Col)'獲取當前行的指定的列的文本值EndIfDoEvents'轉移控制權'執(zhí)行比較IfStrComp(Trim(Temp),Col_Value,vbBinaryCompare)=0Then '找到相同值，就退出函數(shù)MsgBoxCol_Value&”已經(jīng)被添加到待禁止運行界面中，不需要重復添加！",vbExclamation,”提示”Remove_Repeat_Value=TrueExitFunctionEndIfNextRemove_Repeat_Value=False循環(huán)完成如果沒有找到相同值則返回假ElseRemove_Repeat_Value=FalseEndIfExitFunctionONERROR:IfErr.Number<>0ThenSelectCaseErr.NumberCaseElseMsgBox"錯誤代碼："&Err.Number&" 錯誤描述："&Err.Description,vbExclamation,'指定列的值是否重復輸入"ResumeNext

'入口參數(shù)；ListView1'入口參數(shù)；Col是控件對象是指定要查找相同值的列是要比較的值'入口參數(shù)；Col_V