UC知道按点击顺序移动一行数据
来源：百度知道 编辑：UC知道 时间：2024/05/24 10:40:16
按点击顺序移动一行数据
请高手帮帮忙编写下面的小程序
第一次点conmd1把text1窗口内的8行中的第一行数据提出来放入text2中.
第二次点conmd1把text1窗口内的8行中的第二行数据提出来放入text2中.
点N次,就把把text1窗口内的N行数据提出来放入text2中.
在text1 窗口内的检验数据(双色球数据)
06 07 14 19 21 23
03 18 21 24 27 33
06 08 11 18 27 32
02 04 09 24 31 32
05 07 09 10 17 19 20 22 27 28 29 32
05 10 17 18 19 20 22 25 26 27 28 32
02 05 07 09 13 17 19 21 25 27 28 32
05 17 19 27 28 32
老大谢谢你的帮助，如果我想点一次提取3行怎么改，还是按次序提取
请高手帮帮忙编写下面的小程序
第一次点conmd1把text1窗口内的8行中的第一行数据提出来放入text2中.
第二次点conmd1把text1窗口内的8行中的第二行数据提出来放入text2中.
点N次,就把把text1窗口内的N行数据提出来放入text2中.
在text1 窗口内的检验数据(双色球数据)
06 07 14 19 21 23
03 18 21 24 27 33
06 08 11 18 27 32
02 04 09 24 31 32
05 07 09 10 17 19 20 22 27 28 29 32
05 10 17 18 19 20 22 25 26 27 28 32
02 05 07 09 13 17 19 21 25 27 28 32
05 17 19 27 28 32
老大谢谢你的帮助，如果我想点一次提取3行怎么改，还是按次序提取
Private Sub Form_click()
a = Split(Text1.Text, vbCrLf)
Static i
Text2.Text = a(i)
i = i + 1
If i = UBound(a) + 1 Then i = 0
End Sub
==================
Private Sub Form_click()
Static i As Integer
Text2.Text = ""
a = Split(Text1.Text, vbCrLf)
For x = 1 To 3
If i = UBound(a) + 1 Then i = 0
Text2.Text = Text2.Text & a(i) & vbCrLf
i = i + 1
Next x
End Sub