请问如何实现MSFLEXGRID中内容的添加。 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 请问如何实现MSFLEXGRID中内容的添加。

标题：请问如何实现MSFLEXGRID中内容的添加。

只看楼主

em3322

等　级：新手上路
帖　子：17
专家分：0
注　册：2006-10-20

楼主

问题点数：0 回复次数：3

请问如何实现MSFLEXGRID中内容的添加。

请问如何实现将TEXT1和TEXT2中的内容。在单击COMMAND1后。依次添加到MSFLEXGIRD1中。就是添加完一次后。再在TEXT1和TEXT2中写上新的内容。再单击COMMAND1.它又添加到MSFLEXGIRD1中的下一行中。再写上。再添加到新的一行中。就是实现下图的功能.谁能给写个代码啊?

[此贴子已经被作者于2007-1-29 12:40:08编辑过]

搜索更多相关主题的帖子: MSFLEXGRID　单击　下图　代码　

2007-01-29 11:42

清澂居士

等　级：贵宾
威　望：28
帖　子：1237
专家分：7
注　册：2006-12-19

第 2 楼

得分:0

可以在COMMAND裏賦值一個變量````

佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.

2007-01-29 11:44

atomhdp

等　级：新手上路
帖　子：97
专家分：0
注　册：2005-10-2

第 3 楼

得分:0

private sub command1_click()
dim i%,flexrow%
'表格增加一行
msflexgrid.rows=msflexgrid.rows+1

flexrow=msflexgrid.rows

for i = 0 to msflexgrid.cols-1
msflexgrid.textmatrix(flexrow-1,i)= text(i).text
next i
end sub

上面代码未经调试．

2007-01-29 15:02

em3322

等　级：新手上路
帖　子：17
专家分：0
注　册：2006-10-20

第 4 楼

得分:0

以下是引用atomhdp在2007-1-29 15:02:47的发言：
private sub command1_click()
dim i%,flexrow%
'表格增加一行
msflexgrid.rows=msflexgrid.rows+1

flexrow=msflexgrid.rows

for i = 0 to msflexgrid.cols-1
msflexgrid.textmatrix(flexrow-1,i)= text(i).text
next i
end sub

上面代码未经调试．

谢谢.明白思路了.

2007-01-29 22:05

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-118664-1-1.html