在网上下载了大神的代码,能否告诉我一下他的这个prjClassList.vbp是怎么加载到引用里面去的?
在网上下载了大神的代码,能否告诉我一下他的这个prjClassList.vbp是怎么加载到引用里面去的?
我想把他的这个类,用到我的代码里面去!
-->这是大神的代码
'Download by http://www.codefans.netVB 控件
Private x As New clsList, Px As Single, Py As Single
Private Sub Form_Load()
Set x.List = ListView1
Set x.TextBox = txtQty
x.addcolumn "编码", "code", 1200, False, True
x.addcolumn "描述", "desc", 3000, True, False
x.addcolumn "数量", "qty", 800, False, True, lvwColumnRight
x.addcolumn "单价", "cost", 1200, False, True, lvwColumnRight
x.addcolumn "合计金额", "sell", 1200, False, False, lvwColumnRight
x.AddItem "AB1001", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1002", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1003", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1004", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1005", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1006", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1007", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1008", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1009", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1010", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1011", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1012", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1013", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1014", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1015", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1016", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1017", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1018", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1019", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1020", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1021", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1022", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1023", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1024", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1025", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1026", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1027", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1028", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.AddItem "AB1029", "16X DVD-ROM", "6", "160.00", "0"
x.AddItem "AB1030", "希捷160GB 7200RPM 硬盘", "2", "450.00", "0"
x.Resize
CalculateTotals
AltLVBackground ListView1, pic, True
End Sub
Sub CalculateTotals()
Dim Row As ListItem
For Each Row In ListView1.ListItems
Row.SubItems(4) = Format(Val(Row.SubItems(2)) * Val(Row.SubItems(3)), "#0.00")
Next
End Sub
Private Sub ListView1_KeyUp(KeyCode As Integer, Shift As Integer)
CalculateTotals
End Sub
Private Sub AltLVBackground(lv As ListView, pic As PictureBox, _
Optional ByVal StartAtOddRow As Boolean = False, _
Optional ByVal AltBackColor As OLE_COLOR = -1)
Dim h As Single
Dim sw As Single
Dim oAltBackColor As OLE_COLOR
If AltBackColor = -1 Then
oAltBackColor = pic.BackColor
Else
oAltBackColor = AltBackColor
End If
With lv
If .View = lvwReport Then
If .ListItems.Count Then
.PictureAlignment = lvwTile
h = .ListItems(1).Height
With pic
.Visible = False
.BackColor = lv.BackColor
.BorderStyle = 0
.Height = h * 2
.Width = 10 * Screen.TwipsPerPixelX
sw = .ScaleWidth
.AutoRedraw = True
If StartAtOddRow Then
pic.Line (0, 0)-Step(sw, h - Screen.TwipsPerPixelY), oAltBackColor, BF
Else
pic.Line (0, h)-Step(sw, h), oAltBackColor, BF
End If
Set lv.Picture = .Image
.AutoRedraw = False
.BackColor = oAltBackColor
End With
.Refresh
Exit Sub
End If
End If
Set .Picture = Nothing
End With
End Sub