dashley
Well-known member
Im running the code below. I want the data to scroll verticllay.
If I change---- ListView1.View = View.List
TO ----ListView1.View = View.Details
The data disappears
Any Help would be appreciated
Dan
[/size]
If I change---- ListView1.View = View.List
TO ----ListView1.View = View.Details
The data disappears
Any Help would be appreciated
Dan
VB.NET:
[size=2][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] FileLine [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String
[/color][/size][size=2][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] pre_FileLine [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String
[/color][/size][size=2][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] sr [/size][size=2][color=#0000ff]As[/color][/size][size=2] StreamReader = [/size][size=2][color=#0000ff]New[/color][/size][size=2] StreamReader("mtrxcura.txt")
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] myArray [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2]()
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] j [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer
[/color][/size][size=2][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] LV1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] ListViewItem
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] x
ListView1.View = View.Details
[/size][size=2][color=#0000ff]While[/color][/size][size=2] sr.Peek > 0
pre_FileLine = (sr.ReadLine)
FileLine = Replace((pre_FileLine), Chr(34), " ")
myArray = FileLine.Split(",")
[/size][size=2][color=#0000ff]If[/color][/size][size=2] UBound(myArray) = 0 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]ListView1.Items.Add(myArray(0))
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][/size][size=2][color=#0000ff]If[/color][/size][size=2] UBound(myArray) = 1 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]ListView1.Items.Add(myArray(0) & myArray(1))
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][/size][size=2][color=#0000ff]If[/color][/size][size=2] UBound(myArray) >= 3 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]ListView1.Items.Add(myArray(0) & myArray(1) & myArray(2))
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]While
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add(ListView1)
sr.Close()