【例8.1】编写程序,定义MSFlexGrid1控件为10行、5列表格,给每一个单元格赋值为Row+Col,其中Row与Col分别表示控件单元格的行号与列号。 新建一个工程(ex8_1.vbp),窗体名为Form_ex81.frm。在窗体上添加一个MSFlexGrid控件与一个Command控件,双击Command控件,输入如下程序: Private Sub Command1_Click() Dim Row, Col As Integer '定义两个变量用于接收表格的行与列 With MSFlexGrid1 .Rows = 10'定义表格为10行 .Cols = 5'定义表格为5列 For Row = 0 To .Rows - 1 For Col = 0 To .Cols - 1 .TextMatrix(Row, Col) = Row + Col '将表格中的每一个单元格赋值为Row+Col Next Col Next Row End With End Sub 运行程序后的界面如图8.3所示。
|