VB6总结II

一.删除grid中的一条记录

Private Sub cmdDelete_Click()
    Dim lngStartRow As Long, lngEndRow As Long, lngRow As Long, lngtempRow As Long
    Dim blnreply As Boolean
    Dim strNTB As String
        
    If fgNTBContactList.Row = 0 Then
        lngStartRow = 1
    Else
        lngStartRow = fgNTBContactList.Row
    End If
    lngEndRow = fgNTBContactList.RowSel
    
    If lngStartRow > lngEndRow Then
        lngtempRow = lngStartRow
        lngStartRow = lngEndRow
        lngEndRow = lngtempRow
    End If

    If Trim(fgNTBContactList.TextMatrix(fgNTBContactList.RowSel, fNTBContactListSNoCol)) = "" Then
        Call gclsMessage.DeleteNewRow(, Me.Caption)
        Exit Sub
    End If
    
    blnreply = gclsMessage.ConfirmDelete("Confirm to delete selected row(s) of NTB Centre Contact?")
    If blnreply = True Then
        Me.MousePointer = vbHourglass
        gcnn.BeginTrans
        'set transaction indication
        fblnTranInd = True
        For lngRow = lngStartRow To lngEndRow
            strNTB = "Delete from Contact_Information where id=" & fgNTBContactList.TextMatrix(lngRow, 0)
            gcnn.Execute (strNTB)
        Next
        gcnn.CommitTrans
        'reset transaction indicator after transaction
        fblnTranInd = False
        Me.MousePointer = vbDefault
        lngRow = lngStartRow
        Do While lngRow <= lngEndRow
            If fgNTBContactList.Rows = 2 Then
                fgNTBContactList.Rows = 1
                Exit Do
            End If
            fgNTBContactList.RemoveItem (lngStartRow)
            lngRow = lngRow + 1
        Loop
        Call gclsGrid.RenumberRow(1, 1, fgNTBContactList)
        Call gclsMessage.RecordDeleted(, Me.Caption)
    End If
    Exit Sub
End Sub

二.在grid中插入小图标

先在页面上放一个picturebox，然后插入图片Picture1（可做legend用），在显示grid数据的函数中声明以下代码

（如果不想要显示legend，也可在此代码里把picturebox隐藏，.Visible = False）

    Dim lWidth As Long, lHeight As Long
    With Picture1
        .Width = 240
        .Height = 240
        .BackColor = fgNTBContactList.BackColor
        .BorderStyle = 0
        .AutoRedraw = True
        .FillStyle = Transparent
    End With

然后在显示grid函数中的Loop循环中写以下代码

            If rstNTBList("addr") <> "" Then
                With fgNTBContactList
                    .Row = intNTBContactListRow
                    .Col = fNTBContactListEmailCol
                    Set .CellPicture = Picture1.Image
                    .CellPictureAlignment = flexAlignLeftTop
                    .ColAlignment(6) = flexAlignRightCenter
                End With
            End If

三.颜色

vbBlack     &H0&

vbWhite     &HFFFFFF

vbRed     &HFF&

vbGreen     &HFF00&

vbBlue     &HFF0000

vbYellow     &HFFFF&

vbMagenta     &HFF00FF

vbCyan     &HFFFF00