VB程序学习代码记录20160725

树状控件示例

Private Sub Form_Load()
    Dim nodex As Node
    Dim i As Integer
    TreeView1.Style = tvwTreelinesPlusMinusPictureText
    TreeView1.BorderStyle = ccFixedSingle
    Dim a
    a = Array("(01)工程部", "(02)成本管理部", "(03)财务部", "(04)企划部")
    With TreeView1.Nodes
        Set nodex = .Add(, , "R", "湖南皓博建设有限公司", 2)
        For i = 0 To 3
            Set nodex = .Add("R", tvwChild, "C" & i, a(i), 1)
            nodex.EnsureVisible
        Next i
    End With
End Sub

大图标视图

Dim itmx As ListItem
Dim text As String
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Private Sub Form_Load()
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\学习\db_kfgl.mdb;persist security info=false"
    rs1.Open "select * from kf order by 房态", cnn, adOpenKeyset, adLockOptimistic
    If rs1.RecordCount > 0 Then
        rs1.MoveFirst
        Do While rs1.EOF = False
            text = rs1.Fields("房间号")
            Select Case rs1.Fields("房态")
            Case Is = "入住"
                Set itmx = ListView1.ListItems.Add(, , text, 1)
            Case Is = "空闲"
                Set itmx = ListView1.ListItems.Add(, , text, 2)
            Case Is = "维修"
                Set itmx = ListView1.ListItems.Add(, , text, 3)
            End Select
            rs1.MoveNext
        Loop
    End If
End Sub

报表视图

Option Explicit
Private Sub Form_Load()
   '建立一个ADO数据连接
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
   '建立一个连接字符串
   '这个连接串可能根据数据库配置的不同而不同
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学习\db_kfgl.mdb;Persist Security Info=False"
   '建立数据库连接
    cnn.Open
    rs.Open "select * from kf", cnn
    If rs.EOF Then Exit Sub
   '网格行
    ListView1.GridLines = True
   '采用报表显示模式
    ListView1.View = lvwReport
    Dim listX As ListItem
    Dim listSubX As ListSubItem
    Dim ColumnX As ColumnHeader
    Dim i As Integer
   '填充表头
    For i = 0 To rs.Fields.Count - 1
        Set ColumnX = ListView1.ColumnHeaders.Add
        ColumnX.Text = rs.Fields(i).Name
        ColumnX.Width = ListView1.Width / rs.Fields.Count
    Next i
   '填充数据
    Do Until rs.EOF
       '添加一行
        Set listX = ListView1.ListItems.Add
        listX.Text = rs.Fields(0).Value
        For i = 1 To rs.Fields.Count - 1
            Set listSubX = listX.ListSubItems.Add
            listSubX.Text = rs.Fields(i).Value
        Next i
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    cnn.Close
    Set cnn = Nothing
End Sub