📄 form1.ebf
字号:
VERSION 5.00
Object = "{6556ED95-9838-11D1-80AE-00C04FAD5EFB}#1.0#0"; "mscelistview.dll"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
Caption = "Form1"
ClientHeight = 4110
ClientLeft = 60
ClientTop = 840
ClientWidth = 3750
BeginProperty Font
Name = "Tahoma"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
ScaleHeight = 4110
ScaleWidth = 3750
ShowOK = -1 'True
Begin MSCELISTVIEWLibCtl.ListViewCtrl lv
Height = 2655
Left = 0
TabIndex = 0
Top = 0
Width = 3615
_cx = 6376
_cy = 4683
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 = 0
Enabled = -1 'True
End
Begin VBCE.CommandButton Command3
Height = 375
Left = 2400
TabIndex = 5
Top = 3360
Width = 975
_cx = 1720
_cy = 661
BackColor = 12632256
Caption = "Clear"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 11.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 = 1200
TabIndex = 4
Top = 3360
Width = 975
_cx = 1720
_cy = 661
BackColor = 12632256
Caption = "Remove"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 11.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 = 3
Top = 3360
Width = 855
_cx = 1508
_cy = 661
BackColor = 12632256
Caption = "Add"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.Label Label1
Height = 375
Left = 240
TabIndex = 2
Top = 2760
Width = 1335
_cx = 2355
_cy = 661
AutoSize = 0 'False
BackColor = 16761087
BackStyle = 1
BorderStyle = 0
Caption = "ListItem 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.TextBox Text1
Height = 495
Left = 1680
TabIndex = 1
Top = 2760
Width = 1695
_cx = 2990
_cy = 873
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
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()
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) _
= "黑色"
Set itmX = lv.ListItems.Add(2, "pc", "pc")
'使用 SubItemIndex 将 SubItem 与正确的
' ColumnHeader 关联。使用关键字 ("价格") 指定正确的ColumnHeader。
itmX.SubItems(lv.ColumnHeaders("产地").SubItemIndex) _
= "深圳"
'使用 ColumnHeader 关键字将 SubItems 字符串与正确的 ColumnHeader 关联。
itmX.SubItems(lv.ColumnHeaders("价格").SubItemIndex) _
= "10984.5"
itmX.SubItems(lv.ColumnHeaders("规格").SubItemIndex) _
= "联想昭阳M12S"
itmX.SubItems(lv.ColumnHeaders("单位").SubItemIndex) _
= "台"
itmX.SubItems(lv.ColumnHeaders("颜色").SubItemIndex) _
= "棕色"
Text1.Text = lv.ListItems.Count
End Sub
Private Sub Command2_Click()
lv.ListItems.Remove (1)
Text1.Text = lv.ListItems.Count
End Sub
Private Sub Command3_Click()
lv.ListItems.Clear
Text1.Text = lv.ListItems.Count
End Sub
Private Sub Form_Load()
lv.View = lvwReport
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
End Sub
Private Sub Form_OKClick()
App.End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -