UC知道关于VB输出表格的问题
来源：百度知道 编辑：UC知道 时间：2024/05/24 20:56:48
现有一个数组a(i)，赋值工作已完成，想将这组数据用表格纵列的形式显示出来，不知道用什么控件合适。
要求只有一个，就是程序运行、显示输出时，希望可以用鼠标选中表格中的数据，并且能够复制到一个EXCEL表格当中，格式依然是一纵列。
请达人帮忙指点一下，不胜感激，加分。
一楼的朋友速度很快哈 不过说实话 小弟水平很低 没看懂 能详细解释下吗？我现在用了FlexGrid控件 已经能够实现表格显示了 但是显示出来的数据不能复制粘贴到excel表格 如果我这个思路对的话 请达人指点我下一步怎么做 如果不对的话 告诉小弟应该用什么控件 以实现输出数据的选中和复制粘贴
要求只有一个，就是程序运行、显示输出时，希望可以用鼠标选中表格中的数据，并且能够复制到一个EXCEL表格当中，格式依然是一纵列。
请达人帮忙指点一下，不胜感激，加分。
一楼的朋友速度很快哈 不过说实话 小弟水平很低 没看懂 能详细解释下吗？我现在用了FlexGrid控件 已经能够实现表格显示了 但是显示出来的数据不能复制粘贴到excel表格 如果我这个思路对的话 请达人指点我下一步怎么做 如果不对的话 告诉小弟应该用什么控件 以实现输出数据的选中和复制粘贴
'《做表格》
'添加 Text1 名称改为 Txt
'如：Txt（0）
'代码
Dim i
Dim YYY, XXX
Dim ChuShu
Private Sub Form_Load()
YYY = 200
XXX = 300
ChuShu = 7
End Sub
'文本改变时保存
Private Sub Txt_Change(Index As Integer)
'Txt (Index)
End Sub
Private Sub Txt_DblClick(Index As Integer)
If Txt(Index).Alignment = 0 Then
Txt(Index).Alignment = 1
ElseIf Txt(Index).Alignment = 1 Then
Txt(Index).Alignment = 2
ElseIf Txt(Index).Alignment = 2 Then
Txt(Index).Alignment = 0
End If
End Sub
'删除text控件
Private Sub Txt_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Shu As Integer
If Button = 2 And i >= ChuShu Then
For Shu = 1 To ChuShu
Unload Txt(i) '删除text控件
i = i - 1
Next Shu
XXX = XXX -