VB6.0中MSFlexGrid控件 判断 被选中的单元格数量

VB6.0中MSFlexGrid控件 判断 被选中的单元格数量
如何写代码。在我双击单元格时,弹出 我选择了多少个单元格。
Private Sub MSFlexGrid表格_DblClick()

End Sub
谢谢

应使用mshflexgrid控件。msflexgrid控件只能绑定data控件,见
vb
5.0帮助文档。如想能绑定ado控件必须使用它的升级版本mshflexgrid控件,它既能绑定data控件也能绑定控件,见vb6.0帮助文档。
如选data控件,则代码为:set
msflexgrid1.datasource
=
data1
如选ado控件,则代码为:set
mshflexgrid1.datasource
=
adodc1
温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2016-11-25
MSFlexGrid表格.RowSel - MSFlexGrid表格.Row + 1'可判断选择的行数
Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说,VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
第2个回答  2013-07-29
MSFlexGrid表格.RowSel - MSFlexGrid表格.Row + 1'可判断选择的行数

本回答被提问者采纳

VB6.0中MSFlexGrid控件的用法
MsFlexGrid.Col=1 >>用粗体格式化当前选中单元 MsFlexGrid.CellFontBold=True >> 添加新的一行 使用AddItem方法,用Tab字符分开不同单元格的内容 dim row as string row=”AAA”&vbtab&”bbb”MsFlexFrid1.addItem row >>怎样来实现MSFlexGrid控件单数行背景为白色,双数的行背景为蓝色?Dim i As In...

vb6.0里怎样给 datagrid某一个网格赋值?
DataGrid是一个数据绑定控件,而且是一个早期的控件,不能进行复杂运算和精确定位,建议你使用MSHflexgrid或MsFlexgrid,个人更推荐你使用MshFlexgrid,它比MsFlexgrid更好用。它可以将文本、图片,或者文本和图片,放在MSHFlexGrid 的任意单元中。Row 和 Col 属性指定了MSHFlexGrid 中的当前单元。程序员可以在代...

vb中如何把查询到的数据显示在msflexgrid上呢 请高手来围观解答啊_百度...
1、添加 MSFlexGrid 控件:“工程”->"部件"->"选择 Microsoft FlexGrid Control 6.0"->"确定"2、Data 控件应该会设置吧 3、窗体上放置该控件,设置其 DataSource 属性=Data1 3、添加需要的程序 4、程序中的 "F1" 是我用字段名称,代表的是“错误编号”5、查询中用 Like 语句可以获得相关的结...

VB6.0 msflexgrid控件一共十三行八列,第一行开始依次是1到12月份,第一...
MSFlexGrid1.Rows = 13 MSFlexGrid1.Cols = 8 MSFlexGrid1.TextMatrix(0, 1) = "星期一"MSFlexGrid1.TextMatrix(0, 2) = "星期二"'...MSFlexGrid1.TextMatrix(0, 7) = "星期天"MSFlexGrid1.TextMatrix(1, 0) = "一月"MSFlexGrid1.TextMatrix(2, 0) = "二月"'...MSFlexGrid1.TextMa...

VB 6.0中用msflexgrid控件修改数据库的代码怎么写
'MSHFlexGrid1是不能输入的,只有通过一个text来输入 Private Sub MSHFlexGrid1_Click()Dim i As Long With MSHFlexGrid1 If .Col = 1 Then Text1.Text = Trim(.Text)Text1.Left = .CellLeft - 10 Text1.Top = .CellTop - 10 Text1.Height = .CellHeight Text1.Width = .CellWidth Text...

VB 6.0中使用msflexgrid控件,删除选中行
Private Sub Command1_Click()Dim rSel As Long With MSFlexGrid1 If .Rows = 0 Or .RowSel = 0 Then Exit Sub rSel = .RowSel If rSel <> .Rows - 1 Then For i = rSel + 1 To .Rows - 1 For j = 1 To .Cols - 1 .TextMatrix(i - 1, j) = .TextMatrix(i, j)Next Ne...

VB 6.0中使用msflexgrid控件,如何插入一行?
msflexgrid.Rows = msflexgrid.Rows + 1 For i = msflexgrid.Rows - 1 To msflexgrid.Row + 2 Step -1 For j = 0 To msflexgrid.Cols - 1 msflexgrid.TextMatrix(i, j) = msflexgrid.TextMatrix(i - 1, j)Next Next msflexgrid.Row = msflexgrid.Row + 1 For i = msflexgrid.Row...

VB 6.0 中的“DATE GRID”与“MSFlexGrid”控件在哪里?
鼠标右键点击“工具箱”,选择“部件”,在列表中就可以找到“Microsoft FlexGrid Control”,点击前面的复选框,使之选中,单击“确定”。然后在工具箱里面就会出现MsflexGrid 控件,DATA控件的添加与上面基本类似

vb 6.0中MSFlexGrid控件如何调整单元格宽度
可以写 MSHFlexGrid1.ColWidth(1) = 1000 单元格对齐方式用CellAlignment属性,比如设置单元格水平左对齐,垂直居中,可以写MSHFlexGrid1.CellAlignment = flexAlignLeftCenter 列对齐方式用ColAlignment属性,比如设置第一列为水平垂直都居中对齐,可以写MSHFlexGrid1.ColAlignment(1) = flexAlignCenterCenter ...

VB 6.0中使用msflexgrid控件,如何插入一行?
MSFlexGrid1.AddItem "插入内容",n n为插入后的行号

相似回答