listdb.bas

来自「Visual Basic与语音辨识 让电脑听话 (源码) 台湾松岗 http:/」· BAS 代码 · 共 17 行

Attribute VB_Name = "Module2"
Option Explicit
'LISTVIEW :TO SHOW THE MESSAGE OF listview1
Sub ListViewMessageShow_1(LV As ListView, file_Name)
Dim li As ListItem

 Set li = LV.ListItems.Add(, , file_Name & "")

End Sub
Sub ListViewInitial(LV1 As ListView, LV2 As ListView)

' clear the contents of the control
    LV1.ListItems.Clear
    LV1.ColumnHeaders.Clear
    LV2.ListItems.Clear
    LV2.ColumnHeaders.Clear
    LV1.ColumnHeaders.Add , , "郎