VB中如何在ListView列表中插入按钮，并且单击按钮后用MsgBox显示该行的行数 后加分

问题表意不明，

在ListView列表中插入按钮是什么意思？ListView控件中插入Command控件？

显示该行的行数？== 该行的行数不是1么

修改提问并追问吧亲～

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

'显示用户所单击的单元的文字、行和列的信息

DebugPrint DataGrid1Text; DataGrid1Row; DataGrid1Col

End Sub

这是你的第二个问题。

张志晨

第一个问题：

你自己试下：

通过使用 Columns 集合和 Column 对象的属性和方法，可以在程序中添加、删除列。

要在运行时添加一列，可以使用 Add 方法。如果首先声明一个变量，并将新对象赋给该变量，就可以用简明的代码设置各种属性。

Private Sub AddColumn()

'在最右边的位置添加一列。然后设置其 Visible、Width、

'Caption以及 Alignment 属性。DataField 属性则指定

' 该列将绑定到哪一个字段。

Dim c As Column

Set c = DataGrid1ColumnsAdd(DataGrid1ColumnsCount)

With c

Visible = True

Width = 1000

Caption = “我的新列”

DataField = Adodc1RecordsetFields(“ProductName”)Name

Alignment = dbgRight

End With

End Sub

可以使用方法来删除任意一列。请确保使用 ColIndex 参数来指定要删除的列。下面的代码将删除被单击的列。

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

DataGrid1ColumnsRemove ColIndex

End Sub

另外：

在VB6中，Datagrid控件应该是初学者最喜使用的控件之一，它对数据简单绑定却又往往束缚住手脚。正确的使用的Datagrid必须首先了解它的本质。

Datagrid的本质在于它从来就不是一个真正的网格控件。我们可以片面理解，一个真正的网格控件就是必须将数据脱离Recordset而读进本身的控件。如:Msflexgrid,Mshflexgrid,Spread这些都属于真实的网格控件，我们可以独立的设置这些控见的rows,cols。相反Datagrid,Listview则不属于网格控件。

了解完本质，则可以清楚的知道，因为Datagrid不能将数据读进自身，所以实际它是脱离不了Recordset，我们需要显示的数据效果，只能通过ADO控件来 *** 纵Recordset的表现形式来完成任务。

建议转学VS2011，学习Msflexgrid,Mshflexgrid控件知识。

'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel xx0 Object Library

'其中xx0是要看你计算机安装的OFFICE版本而定

Private Sub Command1_Click()

Dim xlsApp As ExcelApplication '声明Excel对象变量

Dim xlsBook As ExcelWorkbook '声明工作簿对象变量

Dim xlsSheet As ExcelWorksheet '声明工作表对象变量

' 创建EXCEL对象实例、打开EXCEL文件，并创建工作簿实例的 方法一

Set xlsApp = CreateObject("ExcelApplication") '创建EXCEL对象实例

Set xlsBook = xlsAppWorkbooksOpen("C:\实验1xls") '设置工作簿对象并打开已经存在的工作簿EXCEL文件

Set xlsSheet = xlsAppActiveWorkbookSheets("Sheet1")

xlsAppVisible = False '设置EXCEL对象不可见（或True为可见）

MsgBox xlsSheetCells(1, 1)CurrentRegionRowsCount '返回该数据表数据用到的最大行号

MsgBox xlsSheetCells(1, 1)CurrentRegionColumnsCount '返回该数据表数据用到的最大列号

MsgBox xlsSheetRange("A65535")End(xlUp)Row 'A列最大行数

MsgBox xlsSheetRange("E65535")End(xlUp)Row 'B列最大行数

xlsAppQuit '关闭EXCEL对象

Set xlsSheet = Nothing '释放xlsSheet对象

Set xlsBook = Nothing '释放xlsBook对象

Set xlsApp = Nothing '释放xlApp对象

End Sub

open as #1

linenum =0 'dim linenum as integer

do until eof(1)

line input #1,buff 'dim buff as string

linenum = linenum +1

loop

close

for i = 1 to 100 if cells(i,1)value="" then'i代表行，1代表列 cells(i,1)value = "2" end if next i

参考代码

Dim appExcel As New MicrosoftOfficeInteropExcelApplication’声明excel可执行程序

Dim DocExcel As MicrosoftOfficeInteropExcelWorkbook‘声明workbook，也就是excel文件

Dim MySheet As MicrosoftOfficeInteropExcelWorksheet '声明sheet

'打开excel文件

DocExcel = appExcelWorkbooksOpen(SrcExcelPath)

appExcelVisible = True‘显示excel文件

MySheet = DocExcelSheets(1)

'从最后一行向上查找使用的行数

MsgBox(MySheetRange("A65525")End(ExcelXlDirectionxlUp)Row)

备注：

1、使用MicrosoftOfficeInteropExcel需要在程序的顶部引入，使用import

例如：Imports MicrosoftOfficeInteropExcel

此外还需要在工程中添加NET引用（切记，不可重复添加）

MicrosoftOfficeInteropExcel

2、有些使用usedrange来获取行数的，获取的是使用过的行数，其中会包含已编辑过的空白行的行数。

SELECT

COUNT() AS ProductCount,

COUNT(ProductModelID) AS ModelCount,

COUNT(DISTINCT ProductModelID) AS DistinctCount

FROM

ProductionProduct

结果：

ProductCount ModelCount DistinctCount

25 10 15

count函数就是统计行数的函数，你可以使用，还可以去除null列

以上就是关于VB中如何在ListView列表中插入按钮，并且单击按钮后用MsgBox显示该行的行数 后加分全部的内容，包括:VB中如何在ListView列表中插入按钮，并且单击按钮后用MsgBox显示该行的行数 后加分、在VB中，DataGrid如何添加行数及列数，单元格内容如何表示请教高手，本亲手对DataGrid控件不熟悉，谢谢、VB如何读出excel中有多少条记录，也就是有多少行，用代码写出来，最好有必要的注释。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！