ListView控件數據操作

二、通過代碼在窗體上添加控件

• ListView控件數據操作
• • 函數代碼
  • • 在窗體公共區定義ListView控件變量
    • 在窗體加載時創建ListView控件
    • 在窗體改變尺寸時設置列表位置及大小
    • 窗體上操作按鈕使用ListView控件
  • 窗體設計時的樣子
  • 窗體運行時的樣子

ListView控件在不同電腦里的版本不是完全一致的，經常會因為版本不同，導致窗體上的控件不能使用，如果能夠實現在窗口加載時自動添加控件，就要很好的解決這個問題。下面的代碼就可以實現這個功能，可以很方便的在窗口設計時使用。

函數代碼

在窗體公共區定義ListView控件變量

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

在窗體加載時創建ListView控件

Private Sub UserForm_Initialize() '在窗體加載時創建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

在窗體改變尺寸時設置列表位置及大小

Private Sub UserForm_Resize() '設置列表位置及大小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查詢(數據庫文件, Replace(SqlStr, "[條件]", 條件))If IsArray(tmp) ThenAddListViewData 列表, tmp '添加數據Else列表.ListItems.Clear '清空列表End If End Sub

窗體設計時的樣子

窗體運行時的樣子

ListView控件數據操作系列未完，待續！

——專注辦公軟件的二次開發及培訓，你有問題，我有思路！
——微博、微信、CSDN同號：w_dexu。
——轉載請注明出處！
掃碼加微信

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。