Visual Basic :: Listview Columns

Resizing Columns In One Listview To Automatically Resize Corresponding Columns In Another.
I'm currently building the front end to a VB6 application. This app is largely based on entering data into a Listview. In order facilitate data entry, I need to create an editable row beneath the listview, comprising of text boxes(unless there is a better method) and an "add" button. The problem is that when a column in the Listview is moved or resized, the array of textboxes need to reflect this change of order/size, as each textbox needs to appear beneath its corresponding column. Also, if the listview contains a large number of columns, and therefore a horizontal scrollbar, the textboxes will need to scroll also... I would be very grateful for any help..! Thanks...

Adding Columns To A Listview That Already Has Columns
Hi

I'm new to VB6 (I usually program in VB.NET but have been asked to make an enhancement to a VB6 application).

I have a listview which has columns defined within it in the designer. The code I am looking at then retrieves data from a db and puts it into the listview.

I've been asked to add another column in the middle of the listview e.g. there are 10 columns defined in the designer and this new column needs to go at position 6. However, the data that needs to go in the new column needs to come from a different query than the one that fills the other columns. I therefore thought that the best way to do it was fill up the original columns and then slot in the new column and fill it from another query. I've been searching around but can't find any example of how to do this.

Please can anyone help, or suggest a better way to do it? Thanks!

ListView Columns
How do i add columns to a ListView and also how do i insert information into a listview box? For my listview i require 3 columns: 'Artist', 'Track' and 'CD'.

I have tried adding columns using the properties dialog, but they don't appear when i run the form.

Any help is much appreciated!

James

Listview Columns
if I do lvwListView.listitems.additem ,, "test"
it adds an item in the first column of the listview
how do i add data in the second column of a listview

ListView Columns
I have four columns in a list view, each taking up 25% of the available space. When the form resizes, I am successfully resizing the ListView, but how do I resize each of the columns back to 25% of the new size.

I have tried ListView1.ColumnHeaders.Items(0).Width, but that results in a Out of Bounds Error. I have also tried with Items(1) with the same result.

Any idaes

Listview Columns
thought i would have a go using a listview in report mode.

i must be missing something and see what.
when i insert a column and give it a caption it will insert it but then i have 2 columns.
i wanted 3 columns altogether but it shows 4, always 1 more.

what am i missing ?

thanks
thingimijig.

ListView Columns
If I have 2 columns in a ListView (set to Report), how can I add data to them? I have tried for ages, and I cant figure it out.

Columns To A ListView
Is it possible to add Columns to a ListView manually or does it have to be done at runtime?

Two Columns In Listview
sorry, this may be a silly question but its very frustrating,

all i need is for my listview to display two columns of data, taken from a query currently i can achieve one column but i need to add another with "LastName" cheers, here is my code so far

Code:
Set cn = New ADODB.Connection 'we've declared it as a ADODB connection lets set it.
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:vdmcertymate VBdatadata.mdb" 'this is the connection string explained in the notes section.
cn.Open
Set rs = New ADODB.Recordset 'as we did with the connection
rs.Open "qryEmployees", cn, adOpenKeyset, adLockPessimistic, adCmdTable 'opening the recordset explained in the notes

'Code to populate the listView
While Not rs.EOF
lstvEmployees.ListItems.Add , , rs.Fields("FirstName").Value
rs.MoveNext
Wend

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Me.MousePointer = 0 'Resets Mouse Pointer

oh. and how do i get the listview to add a verticle scrollbar?

Listview Columns
this is a quick question really can u parse a site out into a listview with columns for different info from the site?
its a bit tricky to explain and show you as i want to connect to a site in inet grab the source parse out some hardware information,how many on the site, and how many on order and the price into one listview nicely 'ordered with column headers..
i can connect and parse the hardware info into the listview fine but i was wondering on how to do the other parts but because u need an account on the site i cant show u it however here is some of the info from the source (the parts ive gotten out and im needing to parse out..

HTML Code:
>10/100MBPs NIC</a></td><td align="right">4.96 £</td><td align="right"><div class="g">4</div></td><td align="right"><div class="b">2<

theres say part of the info from the source ive gotten the 10/100 "part" fine but i need to get the "4.96, class="g">4< amount and class="b">2< amount (which change obviously...
is this possible to parse into a listview with columns to save me having to go to the site each time and then get those parts of the info which really defeats the purpose of the program? or do i need to use a different control other than listview?
any help or tips would be great

Listview With Different Columns?
In Listview I want to create 5 columns each having column header as "S.No", "From", "Subject", "Date", "Time"
I created Column headers in design time but they are not getting displayed? Also I want that S.No column to be having Checkboxes. How to do that? Thanks.

Listview Columns
I can only select the index column out of my data when in a listview. Code and input follows: Also I cannot input files other than the one I used to test with, of the same format?! (Not the one attached)

Option Explicit

Private Sub Form_Load()
Dim K As Integer
Dim itmX As ListItem
Dim clmX As ColumnHeader

K = 1

Set clmX = ListView1.ColumnHeaders.Add(, , "Column 1", ListView1.Width / 5)

ListView1.BorderStyle = ccFixedSingle
ListView1.View = lvwReport

ListView1.ListItems.Clear

Dim FF As Integer
Dim strLine As String
FF = FreeFile
Open "C:sheet.csv" For Input As #FF
Do While Not EOF(FF)
Line Input #FF, strLine
AddListView strLine
Loop
Close #FF

End Sub

Private Sub AddListView(S As String)
Dim Ar() As String
Dim i As Integer
Ar = Split(S, ",")
If UBound(Ar) > ListView1.ColumnHeaders.Count Then
For i = ListView1.ColumnHeaders.Count To UBound(Ar)
Dim clmX As ColumnHeader
Set clmX = ListView1.ColumnHeaders.Add(, , "Column " & i + 9, ListView1.Width / 5)
Next
End If
Dim lv As ListItem
Set lv = ListView1.ListItems.Add(, , Ar(0))
For i = 1 To UBound(Ar)
lv.ListSubItems.Add , , Ar(i)
Next
End Sub

Private Sub SortListView(ByRef List As ListView, ColHeadIndex As Integer)

Dim lcv As Long 'Loop Control Variable

With List
' Make sure the Sorted property is set to true
.Sorted = True

' Sort according to the colum that was clicked (off by one)
.SortKey = ColHeadIndex - 1

' Does the column already have an icon?
If .ColumnHeaders(ColHeadIndex).Icon = 0 Then
'No, So we will assume this column is not sorted

' Set to Ascending order
.SortOrder = lvwAscending

' Set the sort order to descending
.SortOrder = lvwDescending

Else
' Otherwise sort into ascending order

' Set to Ascending order
.SortOrder = lvwAscending

End If

' Refresh the display of the ListView Control
.Refresh
End With
End Sub

Listview Columns
when using a listview in report mode, do you always have to have a blank list at the end.

when i add columns through its properties there is always another blank one, and if i try and size it to fit the size i want it either still shows a bit of the blank one or i get rid of it and a scrollbar appears.

any ideas!
thanks.

thingimijig.

ListView Columns
Sups,
I got a listview with two columns on it.
I forgot how to add item to each column.
How can I do that?
tnx.

ListView And Columns
How can I set the column width to be that of the text? I tried:

VB Code:
lstOutput.ColumnHeaders(1).Width = TextWidth(strText)

But that didn't work...

Any ideas?

ListView Columns
I have 5 columns in the ListView, all were added via code at runtime. Now, for example, I want to remove column with index 2, problem is, the data from the last column disappears and all the data gets shifted so column with index 3 will now have what column with index 2 had before removing. Is there an easy way to remove column and all the data in it (like Access 2000 does) or do I have to go item by item moving subitems from each column to previous one making 2 last columns identical in data but not column header text, then it should work, because last column will be removed anyway. Here's when another problem comes up, if I add a new column, the data from last column will become visible again, so I really didn't remove column completely, just the column header and made data in the last column invisible. Maybe when I'm adding columns, I need to specify a key or index or what not to remove it completely? I just want to remove the whole column (header and data in it) completely, and shift all the columns to the left; and when I add a new column, I want it to be "blank", meaning no data in it. Of course, it all can be done via long code. I have to set each item's subitem of the new added column to "", etc. but there should be an easier way!
Thanks

Listview Columns
I have a listview with three columns. I want to load a table of names into the listview, putting last names A-F in #1, G-S in #2, and T-Z in #3.

I know how to loop through the table and load the names, but I don't know the listview code to separate the names into columns. Any ideas?

Listview With 3 Columns Help
Can anyone tell me how I can display a comma-separated textfile in a listviewbox with 3 columns when the form loads?

The textfile contains the following data:
script1, path1, time1
script2, path2, time2
script3, path3, time3
......

Listview Columns
okay,

how do I prevent the user from resizing the columns in the listview so that hidden columns (id numbers) can't be 'stretched out' and viewed?

David

Spanning Columns In ListView
I want to know if there is a way to span columns in a listview control. Like in Excel, if you have a large string in A1, and B1 is blank, it will allow that string to overflow into the B1 space. Can listview (or another such control) do this?

Here's what I'm trying to do (so you can see the big picture, and tell me if there's a better way):
I'm writing an MP3 player, and I want to add files to a list (my playlist). When the files are first added to the list, they will appear as their filename (eg "C:MyMP3sSong1.MP3") but as I go through the list and process the id3 tag, I want to display their info in columns (Title, Artist, Album, etc).

I know I could cheat and build my own "columns" in a listbox:

Code:
if HasID3Tag then
lstPlayList.AddItem SongTitle & " by " & SongArtist & " on " & SongAlbum
lstPlayList.RemoveItem OldItem
end if
but then I can't sort and arrange by columns.

Default Listview Columns
I want to draw a list of information on to a textured background. I figured that the easiest way to do this would be to use a listview as the background, and give it a picture. All works well.

The listview is set to the 'list' style, however when I add the listitems to it, they are being truncated at 1/3 the width of the listview. The strange thing is that when I add a second listitem to it, the text seems to sort itself out....

Any thoughts?

Code:
Private Sub CommandButton2_Click()

With UserForm1.ListView1
.ListItems.Add Index:=1, Text:="This is quite a long bit of text"
.View = lvwList
End With
End Sub

Sorting In A ListView With Columns
I hope you guys can help me out as it's getting frustrating

The code I have so far when a column header is clicked on in the listview is this -

Code:
Private Sub lvFaults_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

If Not lvFaults.Sorted Then
lvFaults.Sorted = True
End If

Dim intColumn

Select Case ColumnHeader
Case Is = "Fault No"
intColumn = 0
Case Is = "Reported By"
intColumn = 1
Case Is = "Office"
intColumn = 2
Case Is = "Date"
intColumn = 3
End Select

If lvFaults.SortOrder = lvwAscending Then
lvFaults.SortKey = intColumn
lvFaults.SortOrder = lvwDescending
Else
lvFaults.SortKey = intColumn
lvFaults.SortOrder = lvwAscending
End If

End Sub
This half works but the ordering is a bit funny and I'm guessing most of you know what I mean. But basically the Fault No column starts at 4 digit numbers but currently are up to 5 digit numbers (it's an autonumber from a database) so it's sorting them like this -

10282
10283
10285
8728
9644
9672

And the date is sorted like -

01/03/2004
01/10/2003
05/03/2004
09/02/2004
12/02/2004

Anyone have any ideas? Thanks

Listview And Hidden Columns
is it possible to have a hidden column in listview where if you click on a row in listview you can get the data within the hidden column?

Add Columns Dynamicly To Listview
Hi,

I am using listview to disclose the data that is stored into my classes. I don't know yet if I have all the attributes in my classes so I want to add the attributes dynamicly to the listview.

For example I have a class adresses. I use name, zipcode and street. I didn't come up with the idea of also adding city etc to the class. So in order to prevent me from redoing the listview code over en over again I want to enumerate all the variables of the class when adding them as columns. How do I do that?

I know you can enumerate a collection but how do you enumerate a variable list of the class?

Columns ... Listview ... Listbox ... ... ...
Hi everybody!

I am sure everybody knows the detail view of the explorer!

Is there anything that is just like that?

I tried it with the listbox control , but i there are no tabs!
Besides ... i couldnt get anything in the other rows.

Then i tried it with the listview and it was just the same.
I was able to put some stuff in the other columns, but i could move the items around like the icons on my desktop.

I tried the search machine and allapi.net before this thread, but either couldnt find anything or couldnt understand it.

Do you guys got some genius homemade ocx that is just fixing my problem ... or just got a hind

Greets
Ben

Listview 3 Columns In Need Of Definition
Gentlemen:

I have as a VB6 freshman developed an AMortization loan program that is working well, but I decided to improve its flexibility by enabling the User to decide if any Extra principal payments are to be made When and by how much for each.

The Program currently will calculate the Amortization based on the variables entered by the User but keep any ExtraPayment (as currently called for by the program as a fixed monthly payment) at zero (0).

I then intend to add a listview that will draw the Payment #, the Dates structured by the monthview (I call Calendar). Each Payment # row will bear a checkmark so that the User can then select which months they want to make an extraPrincipal payment, and also indicate how much the payment will be for that month.

Attached is the separate Test form I (in a zipped file) designed to see if I can accomplish the first steps of adding the columns of #, and date.
Here is the code so far, and as you can see from the snapshot attached I can't get beyond setting the Years and Periods of the loan.

In other words nothing happens. What am I coding incorrectly or lacking ???

Code:
Private Sub cmdFillListView_Click()

Dim intMonth As Integer
Dim ExtraPrincipal As Double
Dim Term As Integer
Dim Periods As Integer

Dim i

Dim d As Date

Term = Val(TxtTerm.Text)
Periods = Val(TxtPeriods.Text)

Calendar.Value = Now 'Format$(Date$, "dd/mm/yyyy")

d = Left(Calendar.Value, 8)
Dim Max As Long

txtMax.Text = Val(TxtTerm.Text) * Val(TxtPeriods.Text)

' txtMax.Text = Max

Do Until i = Max
i = 1
intMonth = 1

Calendar.Value = d
d = DateAdd("m", 1, d)

If CLng(txtMax) < 1 Or CLng(txtMax) > 360 Then
MsgBox "Number can't be less than 1 or greater than 360."
txtMax.BackColor = vbYellow
txtMax = ""
txtMax.SetFocus
Exit Sub
End If

Set lItem = ListView1.ListItems.Add(, , intMonth)
lItem.ListSubItems.Add , , d
lItem.ListSubItems.Add , , ExtraPrincipal
i = i + 1
Loop

' MsgBox i & " items added to the list box."

cmdLoopThroughListView.Enabled = True
cmdSelectAnItem.Enabled = True
txtItemToSelect.Enabled = True
txtNewValue.Enabled = True

End Sub

Is There A Way To Hide Listview Columns?
hey guys I have a listview called report. Is there a way to hide the first column, so thats its there and the program can access it, but just hidden from the user?

Thanks!

Sorting Listview Columns
I have this code to sort the columns in a listview.

Columns 1, 3, 4, 5 are not to be used for sorting.

Column 0 is a date column, so I reload the listview (from Access database) with the sort order in the SQL statement.

Column 2 is a straight forward Ascending or Descending.

The problem I am getting is that if I sort by column 2 first and then by column 0, it doesn't sort in the correct date order, even though the strSQL statement is correct.

Any ideas where I am wrong?

I am guessing it's something to do with how I set the Listvew.SortKey maybe!

Code:
Select Case ColumnHeader.Index - 1
Case 0
If lvwCourseListYear.SortKey <> ColumnHeader.Index - 1 Then
lvwCourseListYear.SortKey = ColumnHeader.Index - 1
End If

'\store the sort order
If strCourseSortOrder = "Descending" Then
strCourseSortOrder = "Ascending"
Else
strCourseSortOrder = "Descending"
End If

strSQL = "SELECT * FROM tbl_CourseList"
strSQL = strSQL & " WHERE Course_Year = '" & cmbYear(1).Text & "'"

Select Case strCourseSortOrder
Case "Ascending"
strSQL = strSQL & " ORDER BY Course_Date"
Case "Descending"
strSQL = strSQL & " ORDER BY Course_Date Desc"
End Select

lvwCourseListYear.ListItems.Clear

rs.Open strSQL, cn, adOpenForwardOnly, adLockPessimistic, adCmdText

Do While Not rs.EOF
'add to listview
Set lvwItem = lvwCourseListYear.ListItems.Add(, , Format(rs.Fields("Course_Date").Value & "", "dd - mmm - yyyy"))
lvwItem.SubItems(1) = rs.Fields("Course_Day").Value & ""
lvwItem.SubItems(2) = rs.Fields("Course_Type").Value & ""
lvwItem.SubItems(3) = rs.Fields("Course_Venue").Value & ""
lvwItem.SubItems(4) = rs.Fields("Course_Times").Value & ""
lvwItem.SubItems(5) = rs.Fields("Course_ID").Value & ""
lvwItem.SubItems(6) = rs.Fields("Course_Checked").Value & ""
ctr = ctr + 1
rs.MoveNext
Loop

rs.Close

lvwCourseListYear.Sorted = True

Case 2
'Check if the Sortkey is the same a the current one
If lvwCourseListYear.SortKey <> ColumnHeader.Index - 1 Then
lvwCourseListYear.SortKey = ColumnHeader.Index - 1
lvwCourseListYear.SortOrder = lvwAscending
Else
'If the column is already selected then change the
'sortorder to be the opposite of what is currently used

lvwCourseListYear.SortOrder = IIf(lvwCourseListYear.SortOrder = lvwAscending, _
lvwDescending, lvwAscending)
End If

lvwCourseListYear.Sorted = True

Case 1, 3, 4, 5
Set rs = Nothing
Exit Sub
End Select

Rearrange Listview Columns
In a listview in lvreport mode, I have set the AllowColumnReorder property to True at design time. At run time I try to rearrange the columns by dragging the column headers but the program just crashes at the tiniest amount of dragging. To rule out any cause related to the rest of the code I've tried it on a new project with the listview as the only control but the problem persists.

Help is much appreciated.

Invisible Columns In A ListView
If I want to create an invisible column in a listview, do I set its width to 0 or is there a more convenient way to do it?

Add Totals In Listview Columns
I have a listview that is filled with numbers, how can I total each column?

Ill have a "total" row filled with the new totals and ill need to total the "total" row too.

Thanks

Merge Columns In Listview
I have a Listview with 14 columns. Is it possable for the top row to be 7 columns?

Im using the top row as a kind of header, of the other columns.

Thanks

Help Populating Listview Columns
hi all i got program that currently it write data to 4 diffrent listbox but i want to populate the same data to listview as well. I be happy if some one help me do this.Thanks

VB Code:
Private Sub Command1_Click()Dim lvText As String Dim targetListView As dmListView Dim hWnd As Long Dim op As Integer hWnd = getNickListHwnd2 'MsgBox hWnd targetListView.hWnd = hWnd 'targetListView.hWnd = 918832 op = 0 If (dmGetListviewInfo(targetListView)) Then ' 1. Establish cross-process data pipe ' List1.Clear dmListviewAttach targetListView [b] For Item = 1 To targetListView.ItemCount name = dmListviewItem(Item, 1) name2 = dmListviewItem(Item, 2) name3 = dmListviewItem(Item, 3) name4 = dmListviewItem(Item, 4) List1.AddItem name List2.AddItem name2 List3.AddItem name3 List4.AddItem name4 'ListView1.ListItem name ===> does not work 'ListView1.SubItems(2) name ===> does not work Next '[/b] Label1.Caption = "Number of items: " & List1.ListCount End If dmListviewRelease ' release cross-process memory buffersEnd Sub

How To Populate Columns Of Listview
Hi all i dragged a listview to my form and now i want to populate the following data to one of its column but i do not how to populate a listview and how to specify the number of column on it. i have another function that needs to populate the second column of listview too.I be happy if some one show me how that can be then.Thanks

VB Code:
For N = LBound(sResult) To UBound(sResult) List2.AddItem [b]"http://localhost/" & sResult(N)[/b] Text3.Text = [b]Text3.Text & "http://localhost/" & sResult(N) & vbCrLf[/b] Next N

Sorting Listview (2 Columns)
Hi !

Is it possible to sort a listview by 2 columns ???

I want that my app sort the 1st Columns and sort the 2nd Columns without modifying the order of the 1st column...

I try this but It does'nt work

VB Code:
ListView1.SortOrder = lvwAscending ListView1.SortKey = 0 ListView1.SortKey = 1

Thanks in advance !

Sorting Listview Through Columns ???
ok i open a text file that is spilt up like so ...

MyItem.Text & Chr(9) & MyItem.SubItems(1) & Chr(9) & MyItem.SubItems(2) ' & " " & MyItem.SubItems(3)

Now i open it in the listview and it reads it fine, that is if i don't have the sorting checked off. if i have it to sort its missing some data on the second and thrid colums

I want to be able to sort the listview by clicking on the colums i searched the forums and got this but... its still giving me the same problem... missing data

here's the code I've got...

Private Sub SingersListView_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If SingersListView.SortOrder = lvwAscending Then
SingersListView.SortOrder = lvwDescending
Else
SingersListView.SortOrder = lvwAscending
End If
SingersListView.SortKey = ColumnHeader.Index - 1
End Sub

can anyone wite the code for this that would show all my data. i'm using vb 6 with windows common controls 6(sp6). thank you

How To Access Listview Columns
Hi,
I have a listview with 2 columns, I want the user to be able to select either col 1 or col 2. When user dblclick's col 1 or col 2 , I want to execute a query and display the results in a different listview.

My problem is , I 'm not sure how to select the specific col1 or col2.
Please help
My code.

VB Code:
Private Sub quotelistview_DblClick()Dim quoteidDim quotedet As ListItemquotedetlist.ListItems.clearquotedetlist.ColumnHeaders.clear Set quotedetlist.SelectedItem = quotedetlist.ListItems(1) quotedetlist.ColumnHeaders.add , , "Product", 2500quotedetlist.ColumnHeaders.add , , "Quantity", 2000quotedetlist.ColumnHeaders.add , , "Ratelb", 2000 quotedetlist.View = lvwReport 'quotelistview.View = lvwReport select_statement = "select * from custpqdetails where quoteid ='" & quotedetlist.SelectedItem & "';" qry (select_statement) Do While Not rs.EOF Set quotedet = quotedetlist.ListItems.add(, , rs!product) quotedet.SubItems(1) = rs!qty quotedet.SubItems(1) = rs!rateperlb rs.MoveNext LoopEnd Sub

Listview, Moving Columns?
Well, i cant really explain the title in just a few words. I want to add 2 more rows to my listview, but i dont want to add them at design time (alot of code to change then).

The problem is, that i want the two rows that i add, i want to move them so they are positioned in-between two columns that are already there.
So, i added rows 12,13 to my listview during design time. I want 12 and 13 to appear to be inbetween columns 1,2.

Hope it makes sense

Listview Columns

how the heck can i set up a list box so i can have a few columns?lets say 1 displayign a urlanohter for the dateanother for soemthign else?thanx?