双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何使用listView控件

2004-07-27 01:32:08 262 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Brainlj 墨衍会员 · AI 创作全网分发关注 + 加入社区

DASH 流媒体协议（Dynamic Adaptive Streaming over HTTP）概述——起源、MPD文件解析、相关项目简单介绍DASH的起源与发展、MPD文件简要解析、相关项目，以及常见流媒体协议的比较阅读详情

怎样才能使listview的headcolumn绑定到表字段,怎样遍历一张表在listview控件中显示,谢谢

...全文

Unity3D用c#脚本调用前端javascript函数：H5获取unity - webgl 加载并初始化完成的消息 unity3d发布的Webgl 可以作为静态文件加载到H5页面中，并通过javascript 调用unity内置的C#脚本函数，详见Webgl调用unity api。而往往我们需要知道Webgl ready的消息，本文将给出unity 内部调用javascript函数的方案加以解决。阅读详情

Brainlj

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

shanzai2003 2004-07-28

打赏
举报

新建的群，请学习C#的请进群号：3015115

AntingZ 2004-07-28

打赏
举报

you can use datagrid instead of listview .

Brainlj 2004-07-28

打赏
举报

to ruoyasoftware(文杰): in VS 2003 ,ColumnHeaderCollection is not found in default,change this sentence into following

Dim Columns As ColumnHeaderCollection = objListView.Columns

to

Dim Columns As ColumnHeaderCollection = listview.objListView.Columns

ruoyasoftware 2004-07-28

打赏
举报

zxhtgh(朱能文) 的例子已经很详细了..
this method has little bug????
你可以改动一下啊!!!

Brainlj 2004-07-28

打赏
举报

Now the listview control has worked,but how to update database with listview, thanks for explanation of AntingZ(夕惕若)

Brainlj 2004-07-27

打赏
举报

first ,thanks for zxhtgh's explanation,this method has little bug,anything else,when i put it into VS 2003 to debug,so some property and some method are not found ,like ColumnHeaderCollection.why?

zxhtgh 2004-07-27

打赏
举报

'定义 _IsChangeFace(为T时，ListView结构按SQL语句刷新；为F时，ListView结构需要自定义)
Dim _IsChangeFace As Boolean = flase

Private _objConnection As OleDb.OleDbConnection
'*建立连接
Private Function Connection(ByVal strConnection As String) As Boolean
Try
_objConnection = New OleDb.OleDbConnection(strConnection)
_objConnection.Open()
Catch ex As Exception
MessageBox.Show("登陆数据库失败...", "错误")
Return False
End Try
Return True
End Function
'*断开连接
Private Sub Disconnection()
Try
_objConnection.Close()
_objConnection = Nothing
Catch ex As Exception
End Try
End Sub

Private Sub Wirte(ByVal objListView as ListView, ByVal StrConnection As String, ByVal strSQL As String) '目标ListView,连接字，SQL语句
Connection(StrConnection)
Dim mDataAdapter As New OleDb.OleDbDataAdapter
Dim mDataSet As New DataSet
Try
mDataAdapter.SelectCommand = New OleDb.OleDbCommand
mDataAdapter.SelectCommand.Connection = _objConnection
mDataAdapter.SelectCommand.CommandText = strSQL
mDataAdapter.SelectCommand.CommandType = CommandType.Text
mDataAdapter.SelectCommand.ExecuteNonQuery()
mDataAdapter.Fill(mDataSet)
objListView.Items.Clear()
'改变外观
If objListView._IsChangeFace Then
objListView.Columns.Clear()
Dim ColumnName As DataColumn
Dim ColumnNames As DataColumnCollection = mDataSet.Tables(0).Columns
objListView.Columns.Add("序号", 50, HorizontalAlignment.Center)
For Each ColumnName In ColumnNames
objListView.Columns.Add(ColumnName.Caption, 100, HorizontalAlignment.Center)
Next
End If
Dim index As Integer = 0
Dim objItem As ListViewItem
Dim mDataRow As DataRow
Dim Column As ColumnHeader
Dim Columns As ColumnHeaderCollection = objListView.Columns
For Each mDataRow In mDataSet.Tables(0).Rows
index += 1
objItem = objListView.Items.Add(index)
For Each Column In Columns
If Column.Text = "序号" Then

ElseIf Column.Text.ToLower = "id" Then
objItem.Tag = mDataRow(Column.Text)
Else
objItem.SubItems.Add(mDataRow(Column.Text).ToString)
End If
Next
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
mDataAdapter.Dispose()
mDataAdapter = Nothing
Disconnection()
End Sub

✦双11狂欢大促✦

如何使用listView控件

相关推荐

双11狂欢大促