📄 form1.ebf
字号:
VERSION 5.00
Object = "{6556ED95-9838-11D1-80AE-00C04FAD5EFB}#1.0#0"; "mscelistview.dll"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H00FFC0FF&
Caption = "Form1"
ClientHeight = 5100
ClientLeft = 60
ClientTop = 840
ClientWidth = 4935
ForeColor = &H80000008&
ScaleHeight = 5100
ScaleWidth = 4935
ShowOK = -1 'True
Begin MSCELISTVIEWLibCtl.ListViewCtrl lv
Height = 2175
Left = 120
TabIndex = 0
Top = 120
Width = 3495
_cx = 6165
_cy = 3836
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8
FontStrikethrough= 0 'False
FontUnderline = 0 'False
HideColumnHeaders= 0 'False
HideSelection = -1 'True
LabelEdit = 0
LabelWrap = 0 'False
MultiSelect = 0 'False
Sorted = 0 'False
SortKey = 0
SortOrder = 0
View = 3
Enabled = -1 'True
End
Begin VBCE.TextBox Text1
Height = 375
Left = 1080
TabIndex = 7
Top = 2760
Width = 1935
_cx = 3413
_cy = 661
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label2
Height = 255
Left = 360
TabIndex = 6
Top = 2760
Width = 615
_cx = 1085
_cy = 450
AutoSize = 0 'False
BackColor = 16761024
BackStyle = 1
BorderStyle = 0
Caption = "Count"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label1
Height = 255
Left = 960
TabIndex = 5
Top = 2400
Width = 1575
_cx = 2778
_cy = 450
AutoSize = 0 'False
BackColor = 16777152
BackStyle = 1
BorderStyle = 0
Caption = "ColumnHeaders属性"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.CommandButton Command4
Height = 375
Left = 2760
TabIndex = 4
Top = 3240
Width = 855
_cx = 1508
_cy = 661
BackColor = 12632256
Caption = "Clear"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton Command3
Height = 375
Left = 1800
TabIndex = 3
Top = 3240
Width = 855
_cx = 1508
_cy = 661
BackColor = 12632256
Caption = "Item"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton Command2
Height = 375
Left = 960
TabIndex = 2
Top = 3240
Width = 735
_cx = 1296
_cy = 661
BackColor = 12632256
Caption = "Remove"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton Command1
Height = 375
Left = 120
TabIndex = 1
Top = 3240
Width = 735
_cx = 1296
_cy = 661
BackColor = 12632256
Caption = "Add"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
'向ColumnHeaders添加6个ColumnHeader
lv.ColumnHeaders.Add 1, "名称", "名称", 600
lv.ColumnHeaders.Add 2, "产地", "产地", 600
lv.ColumnHeaders.Add 3, "价格", "价格", 600
lv.ColumnHeaders.Add 4, "规格", "规格", 600
lv.ColumnHeaders.Add 5, "单位", "单位", 600
lv.ColumnHeaders.Add 6, "颜色", "颜色", 600
Dim itmX As ListItem
'添加 column 1 的名称。
Set itmX = lv.ListItems.Add(1, "热水器", "热水器")
'使用 SubItemIndex 将 SubItem 与正确的
' ColumnHeader 关联。使用关键字 ("价格") 指定正确的ColumnHeader。
itmX.SubItems(lv.ColumnHeaders("产地").SubItemIndex) _
= "河北 "
'使用 ColumnHeader 关键字将 SubItems 字符串与正确的 ColumnHeader 关联。
itmX.SubItems(lv.ColumnHeaders("价格").SubItemIndex) _
= "908"
itmX.SubItems(lv.ColumnHeaders("规格").SubItemIndex) _
= "k8-y"
itmX.SubItems(lv.ColumnHeaders("单位").SubItemIndex) _
= "个"
itmX.SubItems(lv.ColumnHeaders("颜色").SubItemIndex) _
= "红色"
Set itmX = lv.ListItems.Add(2, "电视", "电视")
'使用 SubItemIndex 将 SubItem 与正确的
' ColumnHeader 关联。使用关键字 ("价格") 指定正确的ColumnHeader。
itmX.SubItems(lv.ColumnHeaders("产地").SubItemIndex) _
= "南京 "
'使用 ColumnHeader 关键字将 SubItems 字符串与正确的 ColumnHeader 关联。
itmX.SubItems(lv.ColumnHeaders("价格").SubItemIndex) _
= "1123"
itmX.SubItems(lv.ColumnHeaders("规格").SubItemIndex) _
= "k48-i7"
itmX.SubItems(lv.ColumnHeaders("单位").SubItemIndex) _
= "台"
itmX.SubItems(lv.ColumnHeaders("颜色").SubItemIndex) _
= "黑色"
Text1.Text = lv.ColumnHeaders.Count
End Sub
Private Sub Command2_Click()
'将最后一个列头删除
lv.ColumnHeaders.Remove (6)
Text1.Text = lv.ColumnHeaders.Count
End Sub
Private Sub Command3_Click()
Dim str, i, cou
cou = lv.ColumnHeaders.Count
For i = 1 To cou
str = lv.ColumnHeaders.Item(i).Text
MsgBox str
Next
End Sub
Private Sub Command4_Click()
lv.ColumnHeaders.Clear
Text1.Text = lv.ColumnHeaders.Count
End Sub
Private Sub Form_OKClick()
App.End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -