功能:ListView控件实现连接数据库实现显示查询数据空能。
图片:
代码:
Private Sub CommandButton1_Click() Dim res As String res = TextBox1.Text Call UserFormabc(res) End Sub 'ItemClick:Trigger an event when a row or ListItem is selected. To get ListItem Object which is selected. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim intX As Integer 'Difine a variable as integer intX = ListView1.SelectedItem.Index TextBox1.Te