Listview View.details prob

dashley

Well-known member
Joined
May 27, 2005
Messages
59
Location
Tennessee
Programming Experience
10+
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


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()
[/size]
 
Back
Top