listview添加一行数据(listview怎么设置一行)

http://www.itjxue.com  2023-03-02 17:40  来源:未知  点击次数: 

vbnetlistview自动添加最后一行

Vbnetlistview 可以通过设置它的一些属性来实现自动添加最后一行的功能,可以设置 ListView 的 “SelectedIndex” 属性来控制被选中的行,当最后一行被选中时,可以设置自动添加最后一行自动的行。 也可以使用 ListView 的 Add 方法来动态添加新行。

qt下listview增加一行数据

在Qt中,可以使用addItem()函数来增加一行数据到listview中。例如,你可以使用以下语句在listview中添加一行数据:

listView-addItem("1","2","3","4");

如何动态在listview中添加一行

下面是以上页面的原代码:

ListView动态添加数据

代码如下:

listView1.View = View.Details;

listView1.FullRowSelect = true;

//定义ListView中要使用的图标文件

ImageList imagelist1 = new ImageList();

imagelist1.Images.Add(Bitmap.FromFile(@"1.gif"));

imagelist1.Images.Add(Bitmap.FromFile(@"2.gif"));

imagelist1.Images.Add(Bitmap.FromFile(@"3.gif"));

listView1.SmallImageList = imagelist1;//定义显示图标

//listView1.LargeImageList = imagelist1;

ListViewItem item1 = new ListViewItem("item1",0);

item1.SubItems.Add("第一行1");

item1.SubItems.Add("第一行2");

item1.SubItems.Add("第一行3");

ListViewItem item2 = new ListViewItem("item2", 1);

item2.SubItems.Add("第一行4");

item2.SubItems.Add("第一行5");

item2.SubItems.Add("第一行6");

ListViewItem item3 = new ListViewItem("item3", 2);

item3.SubItems.Add("第一行7");

item3.SubItems.Add("第一行8");

item3.SubItems.Add("第一行9");

listView1.Items.AddRange(new ListViewItem[] {item1,item2,item3 });

listView1.Columns.Add("第一列");

listView1.Columns.Add("第二列");

listView1.Columns.Add("第三列");

listView1.Columns.Add("第四列");

这是基于WinForm的,在asp.net中无法执行,比如:listView1.View = View.Details;

ListViewItem item3 = new ListViewItem("item3", 2);

这几句都提示没有相关的属性或者方法或者错误。

listview中怎么添加一行新的数据

您好,这样的:

ListViewItem lvItem1 = new ListViewItem();

lvItem1.SubItems.Clear();

lvItem1.SubItems[0].Text = "exe";

lvItem1.SubItems.Add("允许");

lvItem1.SubItems.Add("禁止");

listView1.Items.Add(lvItem1);

ListViewItem lvItem2 = new ListViewItem();

lvItem2.SubItems[0].Text = "txt";

lvItem2.SubItems.Add("允许");

lvItem2.SubItems.Add("允许");

listView1.Items.Add(lvItem2);

可以把listview的数据看成是一个矩阵,listviewitem就相当于矩阵的行,listviewitem的subitems就相当于每一行的列,所以呢,是先new一行,然后在行中的列添加数据。有多少行,就有多少个listviewitem。

C# 如何在listview中的指定行添加一行数据,其它数据向下顺延

和添加逻辑相同,先把前面的和后面的暂时存在内存数组里,然后清空全部,然后追加前面行,添加新行,再追加剩余行。

tkintwr中listview如何添加数据

ListView控件数据操作一、添加表头和数据

在窗口显示数据时,经常会用到ListView这个控件,虽然也可以使用ListBox,但其功能还是比较弱一些,ListView相对用起来更顺手一些。下面的两个函数是给控件添加表头和数据的函数,贴出来供大家参考。

函数代码给ListView添加数据,数据可以为数组或单行数据(逗号分隔)

Public Sub AddListViewData(ListViewName As Object, DateArr, Optional Header As Integer = 0, Optional AddData As Boolean = False)

'添加ListView数据,正常为数组,支持单行数据添加(逗号分隔)

'第一行数据为标题行时,Header应为1

'默认为替换数据,如果需要在原有数据基础上添加时,AddData应为True

Dim i As Integer, j As Integer

Dim DateCol() As String

Dim Itm As Object

Dim PartKey As String

If Not AddData Then ListViewName.ListItems.Clear

If IsArray(DateArr) Then

For i = LBound(DateArr) + Header To UBound(DateArr)

Set Itm = ListViewName.ListItems.Add()

Itm.Text = DateArr(i, LBound(DateArr, 2))

For j = LBound(DateArr, 2) + LBound(DateArr) To UBound(DateArr, 2)

Itm.SubItems(j - LBound(DateArr)) = DateArr(i, j)

Next

Next

Else

If IsEmpty(DateArr) Or DateArr = "没有记录" Then Exit Sub

DateCol = Split(DateArr, ",")

Set Itm = ListViewName.ListItems.Add()

Itm.Text = DateCol(LBound(DateCol))

For i = LBound(DateCol) + LBound(DateArr) To UBound(DateCol)

Itm.SubItems(i - LBound(DateArr)) = DateCol(i)

Next

End If

End Sub

给ListView添加表头,支持直接给定宽度和额外增加的宽度

Public Sub AddListViewHead(ListViewName As Object, ColHeader, Optional ColWidth As String, Optional AddWidth As Integer = 5, Optional DefultWidth As String = "Auto")

Dim SpHeader() As String

Dim SpWidth() As String

Dim SpAlign() As String

Dim CW As Integer

Dim CA As Integer

Dim i As Integer

ListViewName.ColumnHeaders.Clear

ListViewName.ListItems.Clear

SpWidth = Split(ColWidth, ",")

If UBound(SpWidth) = 0 Then CW = Val(ColWidth)

With ListViewName

If IsArray(ColHeader) Then

For i = LBound(ColHeader, 2) To UBound(ColHeader, 2)

If i = UBound(SpWidth) Then CW = Val(SpWidth(i)) Else CW = IIf(DefultWidth = "Auto", 0, CW)

If CW = 0 And CW Len(StrConv(ColHeader(0, i), vbFromUnicode)) * 15 + AddWidth Then CW = Len(StrConv(ColHeader(0, i), vbFromUnicode)) * 15 + AddWidth

If CW 0 Then CW = 0

.ColumnHeaders.Add , , ColHeader(0, i), CW

Next

Else

If ColHeader = "操作不成功" Then Exit Sub

SpHeader = Split(ColHeader, ",")

For i = LBound(SpHeader) To UBound(SpHeader)

If i = UBound(SpWidth) Then CW = Val(SpWidth(i)) Else CW = IIf(DefultWidth = "Auto", 0, CW)

If CW = 0 And CW LenB(StrConv(SpHeader(i), vbFromUnicode)) * 7.5 + AddWidth Then CW = LenB(StrConv(SpHeader(i), vbFromUnicode)) * 7.5 + AddWidth

If CW 0 Then CW = 0

.ColumnHeaders.Add , , SpHeader(i), CW

Next

End If

.View = lvwReport

.FullRowSelect = True

.Gridlines = True

End With

End Sub

调用例子

Sub FormLoad()

AddListViewHead 列表, Range("A1:D1").Value

tmp = SumArrRow(Range("a1:c4").Value, "1,3", True)

AddListViewData 列表, tmp

End Sub

(责任编辑:IT教学网)

更多

推荐Oracle认证文章