要在VB6中实现将整行变色的BlockListView控件，你可以使用Listview控件的OwnerDraw属性和ListSubItem对象的ForeColor和BackColor属性。通过自定义绘制项的方式，你可以自由地设置每一行的颜色。

下面土嘎嘎小编分享一个示例代码，展示如何在VB6中实现BlockListView控件的整行变色效果：

〓〓vb代码如下：〓〓

Private Sub Form_Load()

    Dim i As Integer    

    Listview1.View = lvwReport ' 设置视图模式为报表模式 '添加列标题

    Listview1.ColumnHeaders.Add , , "姓名"

    Listview1.ColumnHeaders.Add , , "年龄" '添加数据项

    For i = 1 To 5

        With Listview1.ListItems.Add(, , "Name " & i)

            .SubItems(1) = "Age " & i

        End With

    Next i    

    Listview1.OwnerDraw = True ' 启用自绘制模式

End Sub

Private Sub Listview1_ItemDraw(ByVal Item As MSComctlLib.ListItem, ByVal DrawItemStruct As MSComctlLib.DrawItemStruct)

    Dim rc As RECT

    Dim hDC As Long

    Dim BackColor As Long

    Dim ForeColor As Long '获取项的矩形区域

    rc.Left = DrawItemStruct.rcItem.Left

    rc.Top = DrawItemStruct.rcItem.Top

    rc.Right = DrawItemStruct.rcItem.Right

    rc.Bottom = DrawItemStruct.rcItem.Bottom    

    hDC = DrawItemStruct.hDC '根据需要设定背景和前景颜色

    If Item.Index Mod 2 = 0 Then

     '偶数行设置为蓝色背景，白色前景

        BackColor = RGB(0, 0, 255)

        ForeColor = RGB(255, 255, 255)

    Else

     '奇数行设置为黄色背景，黑色前景

        BackColor = RGB(255, 255, 0)

        ForeColor = RGB(0, 0, 0)

    End If '绘制整行背景

    Call FillRect(hDC, rc, CreateSolidBrush(BackColor)) '绘制文字

    Call SetTextColor(hDC, ForeColor)

    Call DrawText(hDC, Item.Text, -1, rc, DT_LEFT Or DT_SINGLELINE Or DT_VCENTER)

End Sub

在上面的示例中，我们首先创建了一个Listview控件，并添加了列标题和数据项。然后，通过启用自绘制模式 OwnerDraw ，并在 Listview1_ItemDraw 事件中进行自定义绘制。

在 Listview1_ItemDraw 事件中，我们根据需要设置偶数行和奇数行的背景颜色和前景颜色。然后使用 FillRect 函数绘制整行背景，并使用 SetTextColor 和 DrawText 函数绘制文本。

通过以上代码，你可以实现BlockListView控件的整行变色效果。你可以根据实际需求修改颜色和绘制方式来满足你的需求。