您所在位置：主题：[讨论]VB6 如何改变储存的内容排位格式?
cskms
[专家分：0] 发布于 2009-11-02 16:41:00
VB6 如何改变储存的内容排位格式?
[List1] [List2]
[text1] [text2]
如果我在VB6的版面中将list1,2 + text1,2 位置排成跟上面一样，
再用command1把它们的内容用( .doc/.txt/.xls)储存起来，
储存起来后不论是哪一种格式，得出来的排位都变成跟下面的一样，
[list1] [list2] [text1] [text2]
请问有办法将储存位置变成上下各二的那样吗?
这是我所用的储存文字code：
Dim i As Long
On Error GoTo ErrHandler
CommonDialog1.Filter = "Text files(*.doc) | *.doc"
CommonDialog1.FilterIndex = 1
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1
Print #1, List1.List(i), List2.List(i), Text1.Text, Text2.Text
Close #1
ErrHandler:
Exit Sub
另外为什么list1/2储存后只会储存一个，例如list1 上有+10+20+30+30，但是
储存后用(doc /txt/xls)开来看，只见到+10，”+20+30+30”没有储存/不见了?
再三请问，下图中的蓝色有办法将它向下伸延而不是向上吗?
Columns的数值会有关系吗?
[IMG]http://i156.photobucket.com/albums/t38/30828312/sdsd.jpg[/IMG]
[List1] [List2]
[text1] [text2]
如果我在VB6的版面中将list1,2 + text1,2 位置排成跟上面一样，
再用command1把它们的内容用( .doc/.txt/.xls)储存起来，
储存起来后不论是哪一种格式，得出来的排位都变成跟下面的一样，
[list1] [list2] [text1] [text2]
请问有办法将储存位置变成上下各二的那样吗?
这是我所用的储存文字code：
Dim i As Long
On Error GoTo ErrHandler
CommonDialog1.Filter = "Text files(*.doc) | *.doc"
CommonDialog1.FilterIndex = 1
CommonDialog1.Action = 2
Open CommonDialog1.FileName For Output As #1
Print #1, List1.List(i), List2.List(i), Text1.Text, Text2.Text
Close #1
ErrHandler:
Exit Sub
另外为什么list1/2储存后只会储存一个，例如list1 上有+10+20+30+30，但是
储存后用(doc /txt/xls)开来看，只见到+10，”+20+30+30”没有储存/不见了?
再三请问，下图中的蓝色有办法将它向下伸延而不是向上吗?
Columns的数值会有关系吗?
[IMG]http://i156.photobucket.com/albums/t38/30828312/sdsd.jpg[/IMG]