用 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
运行程序,单击按钮。
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
使用的多的是微软的FlexGrid控件。
通过菜单"Project" -> "Components" -> 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
窗体放数据控件,把数组写到控件里。