ListView控件數(shù)據(jù)操作

二、通過(guò)代碼在窗體上添加控件

• ListView控件數(shù)據(jù)操作
• • 函數(shù)代碼
  • • 在窗體公共區(qū)定義ListView控件變量
    • 在窗體加載時(shí)創(chuàng)建ListView控件
    • 在窗體改變尺寸時(shí)設(shè)置列表位置及大小
    • 窗體上操作按鈕使用ListView控件
  • 窗體設(shè)計(jì)時(shí)的樣子
  • 窗體運(yùn)行時(shí)的樣子

ListView控件在不同電腦里的版本不是完全一致的，經(jīng)常會(huì)因?yàn)榘姹静煌?#xff0c;導(dǎo)致窗體上的控件不能使用，如果能夠?qū)崿F(xiàn)在窗口加載時(shí)自動(dòng)添加控件，就要很好的解決這個(gè)問(wèn)題。下面的代碼就可以實(shí)現(xiàn)這個(gè)功能，可以很方便的在窗口設(shè)計(jì)時(shí)使用。

函數(shù)代碼

在窗體公共區(qū)定義ListView控件變量

'在窗體公共區(qū)定義ListView控件變量 Dim WithEvents 列表 As MSComctlLib.ListView

在窗體加載時(shí)創(chuàng)建ListView控件

Private Sub UserForm_Initialize() '在窗體加載時(shí)創(chuàng)建ListView控件On Error Resume NextSet 列表 = Me.Controls.Add("mscomctllib.listviewctrl.2")With 列表.Gridlines = True.View = 3.Font.Size = 12.FullRowSelect = True.BorderStyle = ccNoneEnd With End Sub

在窗體改變尺寸時(shí)設(shè)置列表位置及大小

Private Sub UserForm_Resize() '設(shè)置列表位置及大小Frame1.height=48Frame1.top=6With 列表.Left = 6.Top = Frame1.Height + Frame1.Top + 6.Width = Me.Width - 18.Height = Me.Height - Frame1.Top - Frame1.Height - 40End With End Sub

窗體上操作按鈕使用ListView控件

Private Sub 添加_Click() '使用添加的ListView控件 Dim tmpAddListViewHead 列表, ConstFields, ConstWidth '添加表頭tmp = Sql查詢(數(shù)據(jù)庫(kù)文件, Replace(SqlStr, "[條件]", 條件))If IsArray(tmp) ThenAddListViewData 列表, tmp '添加數(shù)據(jù)Else列表.ListItems.Clear '清空列表End If End Sub

窗體設(shè)計(jì)時(shí)的樣子

窗體運(yùn)行時(shí)的樣子

ListView控件數(shù)據(jù)操作系列未完，待續(xù)！

——專注辦公軟件的二次開(kāi)發(fā)及培訓(xùn)，你有問(wèn)題，我有思路！
——微博、微信、CSDN同號(hào)：w_dexu。
——轉(zhuǎn)載請(qǐng)注明出處！
掃碼加微信

總結(jié)

以上是生活随笔為你收集整理的ListView控件数据操作——通过代码在窗体上添加控件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。