vb Check1问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 19:48:48
窗体1有一个MSFlexGrid1，还有一个按键Command1，和一个Check1，在MSFlexGrid1（1，1）以下行的（列不变）每个单元格都只有一个3位数的数字如在MSFlexGrid1（1，1）是567，MSFlexGrid1（2，1）是019，MSFlexGrid1（3，1）是428，MSFlexGrid1（4，1）是028
效果：当Check1被选择时，点击Command1，那么在MSFlexGrid1每个单元格里数据的和等于14的将被删除，然后从新把保留的数据显示在MSFlexGrid1，如上面的例子MSFlexGrid1（3，1）是428，4+2+8=14，那么它将被删除，重新显示MSFlexGrid1（1，1）是567，MSFlexGrid1（2，1）是019，MSFlexGrid1（3，1）是028，这时428行已被删除。这段代码该如何写

'新建一个文本文档，将以下代码复制到文本文档，然后文本文档改名为form1.frm，用vb6.0编译器打开，运行之。。。。

VERSION 5.00
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 5430
ClientLeft = 60
ClientTop = 450
ClientWidth = 8505
LinkTopic = "Form2"
ScaleHeight = 5430
ScaleWidth = 8505
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 615
Left = 960
TabIndex = 1
Top = 3000
Width = 2055
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Height = 2055
Left = 360
TabIndex = 0