vb如何在form中显示表格

从excel读取了二维数组,如何在form中用表格的形式显示出来。... 从excel读取了二维数组,如何在form中用表格的形式显示出来。 展开
 我来答
syx54
推荐于2017-09-11 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2738万
展开全部

用 FlexGrid 网格控件好了。

我给你个例子;

方法,在VB6里,使用菜单,[工程] -- [部件],勾选  Microsoft FlexGrid Control 6.0 (SP6)

该控件图标出现在工具箱里,添加1个到你的窗体上,再添加一个按钮;

界面如下:


编写代码如下:

Option Explicit

Private Sub Command1_Click()

Dim d(5, 5) As Integer

Dim i As Integer

Dim j As Integer

'用随机函数生成二维数组数据

For i = 1 To 5

   For j = 1 To 5

      d(i, j) = Int(Rnd * 99) + 1

   Next j

Next i

'设置网格控件的行列

MSFlexGrid1.Cols = 6

MSFlexGrid1.Rows = 6

'在网格控件里显示二维数组数据

For i = 1 To 5

   MSFlexGrid1.Col = i

   For j = 1 To 5

      MSFlexGrid1.Row = j

      MSFlexGrid1.Text = d(i, j)

   Next j

Next i

End Sub


运行程序,单击按钮。

追问
我用vs2012  找不到这个- -
追答
哦,我只有VB 2005,但是2012里应该也有 DataGridView 控件吧?

添加1个DataGridView1 控件,一个按钮,代码如下:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d(5, 5) As Integer
Dim i As Integer
Dim j As Integer
'添加网格每行5列
For i = 1 To 5
DataGridView1.Columns.Add("", "")
Next i
'添加网格为5行----在原来基础上再添加4行
For i = 1 To 4
DataGridView1.Rows.Add()
Next i
'生成5*5的二维数组的数据
For i = 1 To 5
For j = 1 To 5
d(i, j) = Int(Rnd() * 99) + 1
Next
Next
'把数组数据添加到网格里
For i = 1 To 5
For j = 1 To 5
DataGridView1.Rows(i - 1).Cells(j - 1).Value = d(i, j)
Next j
Next i
End Sub
End Class
鱼木混猪哟
高粉答主

推荐于2017-09-04 · 专注Office,尤其Excel和VBA
鱼木混猪哟
采纳数:6078 获赞数:33694

向TA提问 私信TA
展开全部
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等

使用的多的是微软的FlexGrid控件。
通过菜单"Project" -> "Components" -> 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zgjing33
2013-03-13 · TA获得超过265个赞
知道小有建树答主
回答量:386
采纳率:0%
帮助的人:168万
展开全部

窗体放数据控件,把数组写到控件里。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式