vb.sample

VisualC++实践与提高-ActiveX篇源码

Private Sub Form_Load()
 Dim recordset As New ADOR.recordset
 recordset.Open "Authors", "Biblio", adOpenStatic
 For Each f In recordset.Fields
    NCombo1.InsertColumn NCombo1.GetColumnCount(), f.Name, 128, 0, True, True
 Next
 If NCombo1.GetColumnCount() <> 0 Then
    While Not recordset.EOF
     nItem = NCombo1.InsertItem(NCombo1.GetItemCount(), "")
     NCombo1.SetItemData nItem, recordset.AbsolutePosition
     i = 0
     For Each f In recordset.Fields
       NCombo1.SetItemText nItem, i, IIf(IsNull(f), "", f)
       i = i + 1
     Next
     recordset.MoveNext
    Wend
    NCombo1.SelectItem = 0
End If
End Sub
Private Sub NCombo1_ChangeColumnContent(ByVal nColumn As Integer, ByVal sColumnContent As String, ByVal nType As Long)
    AddEvent "Change column content: " & nColumn & " " & sColumnContent
End Sub
Private Sub NCombo1_ChangeColumnKey(ByVal nColumn As Long)
    AddEvent "Change column key: " & nItem & NCombo1.GetColumnName(nColumn)
End Sub
Private Sub NCombo1_ChangedItem(ByVal nItem As Long)
    AddEvent "Changed " & nItem
End Sub
Private Sub NCombo1_ChangingItem(ByVal nItem As Long)
    AddEvent "Changing " & nItem
End Sub
Private Sub AddEvent(ByVal sItem As String)
    Events.AddItem sItem, 0
    While Events.ListCount > 5
        Events.RemoveItem Events.ListCount - 1
    Wend
End Sub