Description: VB ListView control improvements using a file browser functionality, so that it becomes "Enhanced Edition", the title of the document, a list of item numbers, file size, creation date and other attribute information is displayed, the core code: Me.Top = (Screen.Height- Me.Height)/2 form position in the middle of the screen, add the following code to ListView1 title bar:
ListView1.ColumnHeaders.Add,, "File name", ListView1.Width/3, 0
The first column is the title of the "File name", length of third ListView1 width, left-justified text
Set clmX = ListView1.ColumnHeaders.Add (,, "number", ListView1.Width/6, 2)
The second title bar is "No."
Set clmX = ListView1.ColumnHeaders.Add (,, "file size", ListView1.Width/4, 1)
The third column is the title of "file size"
Set clmX = ListView1.ColumnHeaders.Add (,, "creation time", ListView1.Width/3, 0)
The fourth title bar is "Created"
ListView1.SmallIcons = ImageList1
The icon associated ImageList1
To Search:
File list (Check if you may need any files):
VB使用ListView控件增强文件浏览器\1.ico
................................\Form1.frm
................................\Form1.frx
................................\工程1.vbp
................................\工程1.vbw
VB使用ListView控件增强文件浏览器
Download