VB中如何获取MSHFlexGrid里一整列的内容包括列标题 - 编程论坛

#2

jatqqk20012019-07-07 22:01

要写个循环输出一整列
我也才学~你试试

[此贴子已经被作者于2019-7-7 22:18编辑过]

#3

wufuzhang2019-07-08 10:26

回复楼主我爱学习编程

Private Sub Command1_Click()
  Dim i As Long
  For i = 0 To MSHFlexGrid1.Rows - 1
      Text1 = Text1 & MSHFlexGrid1.TextMatrix(i, 2)
  Next
End Sub

#4

我爱学习编程2019-07-13 21:45

e恩谢谢想着连同表格格式一起过去
这个只能移动内容么

#5

wufuzhang2019-07-13 22:24

回复 4楼我爱学习编程

TextBox控件只能放文本内容，网格是格式，怎么放得进去？
如果你想带格式的输出，那么就放在另一个网格里面。

#6

我爱学习编程2019-07-17 22:22

回复 5楼 wufuzhang

这个该如何设计呢，我见过成品但是自己设计一个却不会么能请教些么我qq 214378095

#7

wufuzhang2019-07-18 09:12

回复 6楼我爱学习编程

Private Sub Command2_Click()
  Dim i As Long
  MSHFlexGrid2.Rows = MSHFlexGrid1.Rows
  MSHFlexGrid2.Cols = 2
  For i = 0 To MSHFlexGrid1.Rows - 1
      MSHFlexGrid2.TextMatrix(i, 1) = MSHFlexGrid1.TextMatrix(i, 2)
  Next
End Sub

只有本站会员才能查看附件，请登录

#8

我爱学习编程2019-07-18 18:51

非常感谢，按照你给的弄成功了么我想着能不能移动一行呢？这样的代码怎么写？

#9

wufuzhang2019-07-18 22:43

for循环那段话你看懂了吗？如果看懂了，列换成行你就会做了。

#10

我爱学习编程2019-07-19 18:31

恩谢谢你么弄好了

[此贴子已经被作者于2019-7-19 19:15编辑过]

#11

我爱学习编程2019-07-19 19:26

回复 9楼 wufuzhang

谢谢我想着鼠标选中哪一行就移动哪一行需不需要在定义一个变量呢求指教

只有本站会员才能查看附件，请登录

#12

wufuzhang2019-07-19 20:45

最好定义一个数组，记录移动过的行，这样下次点击重复行的时候就不用再移动了。

#13

我爱学习编程2019-07-19 21:15

回复 12楼 wufuzhang

z这个我不会么能麻烦你闲了给我写下么我重新发个贴