è¦ä½¿ç¨ListViewæ§ä»¶ï¼éè¦å å
¥ç»ä»¶ï¼
Microsoft Windows Common Controls 6.0
Windowsèµæºç®¡çå¨çå³åé¨åï¼å°±æ¯ä¸ä¸ªListViewæ§ä»¶ã
ä½ç¨
ååºå¹¶åå
³ç³»ç对象å对象å±æ§ã
ListViewæ§ä»¶ç对象å±æ¬¡ç»æ
ListView -æ´ä¸ªæ§ä»¶
ColumnHeaders -æ é¢è¡
ColumnHeader -æ é¢å
ListItems -对象è¡éå
ListItem -对象è¡
ListSubItems -对象å±æ§éå
ListSubItem -对象å±æ§
注æï¼SubItemsåListSubItemsçåºå«ï¼SubItemsæ¯ä¸ä¸ªStringæ°ç»ï¼ListSubItemsæ¯ä¸ä¸ªéåã
å±æ§
Viewï¼è®¾ç½®ListViewçå¤è§
Sortedï¼è®¾ç½®ListViewä¸ç对象éåæ¯å¦æåºã
SortKeyï¼è®¾ç½®ä»¥ç¬¬å 项æåºãä»é¶å¼å§ã
SelectedItemï¼è¿åéä¸ç对象çå¼ç¨ã
äºä»¶
AfterLabelEditï¼ç¼è¾ListItem对象çæ ç¾æ¶è¢«è§¦åã
BeforeLabelEditï¼ç¼è¾ListItem对象çæ ç¾ååºåã
ColumnClickï¼åå»åæ é¢æ¶è§¦åãåæ°ä¸å¯ä»¥è·å¾è¢«åå»çå对象ãé常ç¨äºæåºã
ItemClickï¼åå»æè¡ææListItemæ¶è§¦åãåæ°ä¸å¯ä»¥è·å¾è¢«åå»çListItem对象ã
æ¹æ³
FindItemï¼æç´¢ListItem对象ã
åæ°ï¼
stringï¼æç´¢å符串ã
valueï¼å¨ListItemçåªé¨åä¸æç´¢ï¼LvwTextãLvwSubItemãLvwTagï¼ï¼indexï¼å¼å§æç´¢çä½ç½®ã
matchï¼å¹é
æ¹å¼ã
HitTestï¼æ£ç´¢ä½äºç¹å®åæ å¤çListItem对象ã
ListViewæ§ä»¶æ¯åé¢å ç§æ§ä»¶è¦å¤æä¸äºï¼éè¿æ¤æ§ä»¶ï¼å¯å°é¡¹ç®ç»æ带ææä¸å¸¦æåæ 头çåï¼å¹¶æ¾ç¤ºä¼´éçå¾æ åææ¬ãListViewæ§ä»¶æ¯ç±ColumnHeaderåListItem对象æç»æçï¼å
¶ä¸ColumnHeader对象ç个æ°å³å®äºæ§ä»¶çåæ°ï¼èListItem对象ç个æ°åå³å®äºæ§ä»¶çè¡æ°ã(å¾7)
ColumnHeader对象æ¯ListViewæ§ä»¶ä¸å
å«æ 头æåç项ç®ãå©ç¨ColumnHeader对象ï¼ç¨æ·å¯ä»¥ï¼
â²åå»å¯¹è±¡è§¦åColumnClickäºä»¶å¹¶æ ¹æ®æ°æ®é¡¹ç®å°é¡¹ç®æåºã
â²æå¨å¯¹è±¡çå³è¾¹æ¡æ¥è°æ´å宽度ã
â²å¨æ¥è¡¨è§å¾ä¸éèColumnHeader对象ã
ColumnHeader对象çæ°ç®å³å®æ¯ä¸ªListItem对象å¯å
å«çå项ç®æ°ç®ãå é¤ColumnHeader对象åææä¸åå
³èçå项ç®ä¹å°è¢«å é¤ï¼å¹¶ä¸æ¯ä¸ªListItem对象çå项ç®æ°ç»å°å¹³ç§»ä»¥æ´æ°ColumnHeaderçç´¢å¼ï¼èè¿å°å¯¼è´å©ä½çåæ 头SubItemIndexå±æ§çæ¹åã
ColumnHeader对象çSubItemIndexå±æ§
该å±æ§è¿åä¸ListViewæ§ä»¶ä¸ColumnHeader对象å
³èçå项ç®çç´¢å¼ãå项ç®æ¯å符串æ°ç»ï¼ä»£è¡¨æ¾ç¤ºå¨æ¥è¡¨è§å¾ä¸çListItem对象çæ°æ®ã第ä¸åçåæ 头SubItemIndexå±æ§è®¾ç½®ä¸º0ï¼è¿æ¯å 为å°å¾æ åListItem对象çæåæ»åºç°å¨ç¬¬ä¸åä¸ï¼èä¸å®ä»¬è¢«å½ä½ListItem对象èä¸æ¯å项ç®ãåæ 头æ°ç®åå³äºå项ç®æ°ç®ãåæ 头æ°ç®æ»æ¯æ¯å项ç®æ°ç®å¤1ã
å¨è®¾è®¡æ¶å¯ä»¥å©ç¨å±æ§é¡µçâåé¦âé项å¡å°ColumnHeader对象添å å°ListViewæ§ä»¶ä¸ï¼å¨è¿è¡æ¶åç¨Addæ¹æ³æ·»å ã
ColumnHeader对象çAddæ¹æ³
该æ¹æ³ç使ç¨ä¸åé¢é£äºæ§ä»¶åºæ¬ç¸ä¼¼ï¼å°±ä¸åä»ç»äºã
ListView1.ColumnHeader.Add(index,key,text,width,alignment)
ListItem对象æ¯ææ§ä»¶ä¸çä¸è¡ï¼ä¸å
å«æ 头è¡ï¼çææå
容ãå®ä¹å¯å
å«ææ¬åå¾çï¼ä½æ¯è¦ä½¿ç¨å¾çåå¿
é¡»éè¿IconsåSmallIconså±æ§å¼ç¨ImageListæ§ä»¶ã
ListItem对象çSubItemså±æ§
è¿åæ设置ä¸ä¸ªå符串ï¼å项ç®ï¼æ°ç»ï¼å®ä»£è¡¨ListViewæ§ä»¶ä¸ListItem对象çæ°æ®ã
ListItem对象å¯å
å«ä»»æå¤ä¸ªçå
³è项ç®æ°æ®å符串ï¼å项ç®ï¼ï¼ä½æ¯ä¸ªListItem对象å项ç®æ°ç®å¿
é¡»ç¸åãæ¯ä¸ªå项ç®é½å¯¹åºäºç¸å
³çåæ 头ï¼æ æ³ç´æ¥åå项ç®æ°ç»æ·»å å
ç´ ï¼åªæéè¿ColumnHeadersçAddæ¹æ³æ·»å åæ 头çæ¹æ³æ¥æ·»å å项ç®ã
ListItem对象çAddæ¹æ³
该æ¹æ³æ·»å ListItem对象å°ListViewæ§ä»¶çListItemséåä¸å¹¶è¿å对æ°å建对象çå¼ç¨ã
å®çè¯æ³å¦ä¸ï¼
ListItem1.Add(index,key,text,icon,smallIcon)
ListViewæ§ä»¶çViewå±æ§
ListViewæ§ä»¶å¯ä½¿ç¨åç§ä¸åè§å¾æ¾ç¤ºé¡¹ç®ï¼è¿å¯ä»¥ç¨Viewå±æ§æ¥ç¡®å®ã该å±æ§è¿åæ设置ListViewæ§ä»¶ä¸ListItem对象çå¤è§ã
ListViewæ§ä»¶çSortOrderï¼SortKeyåSortedå±æ§
æ§ä»¶ä¸çListItem对象å¯ä»¥æè¦æ±è¿è¡æåºï¼ä¸æåºæå
³çå±æ§æ¯SortOrderï¼SortedåSortKeyå±æ§ã
SortOrderå±æ§è¿åæ设置ä¸ä¸ªå¼ï¼æ¤å¼å³å®ListViewæ§ä»¶ä¸çListItem对象以ååºæéåºæåºã
SortKeyå±æ§è¿åæ设置ä¸ä¸ªå¼ï¼æ¤å¼å³å®ListViewæ§ä»¶ä¸çListItem对象å¦ä½æåºã
Sortedå±æ§è¿åæ设置确å®ListViewæ§ä»¶ä¸çListItem对象æ¯å¦æåºçå¼ã
ä¸é¢ç代ç 说æäºå¦ä½å建ColumnHeadersåListItem对象ï¼SubItemIndexåSubItemå±æ§ç使ç¨æ¹æ³ä»¥åå¦ä½æåºã
Private Sub Form_load()
'ç¡®ä¿ListViewæ§ä»¶çviewå±æ§ä¸ºæ¥è¡¨è§å¾ã
ListView1.View=lvwReport
'æ·»å ä¸åã
ListView1.ColumnHeaders.Add,"Name","å§å"
ListView1.ColumnHeaders.Add,"Sex","æ§å«"
ListView1.ColumnHeaders.Add,"Age","å¹´é¾"
'åæ§ä»¶æ·»å ListItem对象ã
Dim itmX As ListItem
'æ·»å column1çå称ã
Set itmX=ListView1.ListItems.Add(1,"ZL","å¼ å")
'使ç¨SubItemIndexå°SubItemä¸æ£ç¡®çColumnHeaderå
³èã使ç¨å
³é®å("Sex")æå®æ£ç¡®çColumnHeaderã
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="ç·"
'使ç¨ColumnHeaderå
³é®åå°SubItemså符串ä¸
'æ£ç¡®çColumnHeaderå
³èã
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="19"
Set itmX=ListView1.ListItems.Add(1,"LF","æè³")
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="ç·"
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="22"
Set itmX=ListView1.ListItems.Add(1,"WW","çä¼")
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="ç·"
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="24"
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
Select Case ColumnHeader.Key
Case "Sex":ListView1.SortKey=1
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
Case "Age":ListView1.SortKey=2
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
End Select
End Sub
温馨提示:答案为网友推荐,仅供参考