久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

分享

VBA?listview控件

 當(dāng)爸爸了 2012-02-01

VBA listview控件

(2010-01-15 23:32:05)
標(biāo)簽:

listview控件

vba

rs

with

add

it

分類: VB,、VBA

VBA listview控件

1,、在Listview控件中,,用ColumnHeaders對象來操作列,,而添加新的列可以用ColumnHeaders對象的ADD方法。具體如下: 

ListView1.ColumnHeaders.Add 序號,,唯一的字符串標(biāo)識,,列標(biāo)顯示文字,列寬,,列的內(nèi)容對齊方式,,所使用的圖標(biāo)序號。

對齊方式有:lvwColumnLeft ,、 lvwColumnCenter ,、lvwColumnRight                                                           

其中第1列只能左對齊,而不能采取其他對齊方式

 

2,、Listview控件的View 屬性決定著它的顯示的方式,,具體如下:

ListView1.View = lvwIcon '圖標(biāo)顯示

ListView1.View = lvwSmallIcon '小圖標(biāo)顯示

ListView1.View = lvwList '列表顯示

ListView1.View = lvwReport '報(bào)表顯示

 

3、SelectedItem屬性即是指當(dāng)前選取的記錄

 

4,、清空listview控件中的內(nèi)容:ListView1.ListItems.Clear

 

顯示數(shù)據(jù)表內(nèi)容:
Private Sub UserForm_Initialize()

With ListView1                           '初始化listview
    .ColumnHeaders.Add , , "學(xué)號", 60, lvwColumnLeft
    .ColumnHeaders.Add , , "姓名", 60, lvwColumnCenter
    .ColumnHeaders.Add , , "班級", 70, lvwColumnCenter
    .View = lvwReport                                    '以報(bào)表的格式顯示
    .LabelEdit = lvwManual                       '使內(nèi)容不可編輯
End With

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    Set cn = New ADODB.Connection        '連接數(shù)據(jù)庫
    Set rs = New ADODB.Recordset
    cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\db1.mdb"
    rs.Open "student", cn, adOpenKeyset, adLockBatchOptimistic      '數(shù)據(jù)表student
    Do While Not rs.EOF
        With ListView1.ListItems.Add()      '添加記錄
            .Text = rs.Fields("stu_num")                      '添加第一列內(nèi)容
            .SubItems(1) = rs.Fields("stu_name")               '添加第二列內(nèi)容
            .SubItems(2) = rs.Fields("stu_class")               '添加第三列內(nèi)容
        End With
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    cn.Close
End Sub

 

讀取listview選擇的內(nèi)容:

將選中的內(nèi)容分別顯示在UserForm1的文本框中
With UserForm1
    .stu_num.Value = ListView1.SelectedItem.Text         '學(xué)號
    .stu_name.Text = ListView1.SelectedItem.SubItems(1)     '姓名
    .stu_class.Text = ListView1.SelectedItem.SubItems(2)     '班級
End With

 

 

發(fā)行注意   ListView 控件是 Mscomctl.ocx 文件中一組 ActiveX 控件的一部分,。若要在應(yīng)用程序中使用 ListView 控件,則必須將 Mscomctl.ocx 文件添加到工程中,。當(dāng)發(fā)行應(yīng)用程序時(shí),,請將 Mscomctl.ocx 文件安裝到用戶的 Microsoft Windows System 或 System32 目錄下。關(guān)于如何將 ActiveX 控件添加到 Visual Basic 工程的詳細(xì)信息,,請參閱 Visual Basic《程序員指南》,。

 

    本站是提供個(gè)人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,,不代表本站觀點(diǎn),。請注意甄別內(nèi)容中的聯(lián)系方式,、誘導(dǎo)購買等信息,謹(jǐn)防詐騙,。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,,請點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多