Visual Basic :: Add Items To A Listview Multiple Columns

Adding Items In Columns In A Listview
Hello

I am using a listview control that l want to add items to. The Listview contains 2 columns. One for name and the other for price. The name and price will be input by using a text box. When the user presses the command button the 2 will be added to the listview box.

I am not sure how to add 2 items into the two columns.

My code so far.

Code:

'Create the listview headings
ListView1.ColumnHeaders.Add , , "Name of Fruit"
ListView1.ColumnHeaders.Add , , "Price of Fruit"
ListView1.View = lvwReport

'Code adding to the listview box, but not sure how to add price
Set objfruit = ListView1.ListItems.Add(, , name.Text)

Many thanks in advance

Steve

Sorting Listview By Multiple Columns
Is it possible for a listview to sort by multiple columns?

I.e Click column A then B and the listview will sort primarily by column B and any duplicated results will be sorted by column A?

E.g.

Code:
'From this,
ColA ColB
1 C
3 B
2 B
4 A
' User clicks ColA then ColB
' Would get sorted as

ColA ColB
4 A
2 B
3 B
1 C

At the moment it seems to just sort by the most recently clicked column with no clear previous order (if it should already do this then maybe to do with the custom ordering functions i'm using)

Cheers

Sorting A Listview W/ Multiple Columns..
I have two columns in my listview, and I want to sort by either column.

If I clicked on the first column, it would sort alphabetically by the first column, and same for the second.

Any help? I'm confused

How To Sort Multiple Columns In Listview Control
How can i sort multiple columns in a list view control.for ex. I want to sort one column in ascending and another column in descending. I greatly appreciate ur suggestions. my email address is allurij@hotmail.com
thanks
allurij

Moving Multiple Listview Items Up Or Down At Once
Hi, does anybody know how to move multiple selected listview items up or down at once?

I found the subs below, but they only move one item up or down, even if I have selected multiple items.

Thanks.

vb Code:
Private Enum menmDirections MoveUp = 1 MoveDown = 2End Enum Private Sub MoveItem(ByVal penmDirection As menmDirections)Dim lvwItem As ListItemDim lvwNew As ListItemDim lvwSubItem As ListSubItemDim lngIndex As Long Set lvwItem = lstView.SelectedItem If Not (lvwItem Is Nothing) Then If penmDirection = MoveUp Then lngIndex = lvwItem.Index + 2 ElseIf penmDirection = MoveDown Then lngIndex = lvwItem.Index - 1 End If If lngIndex > 0 And lngIndex <= lstView.ListItems.Count + 1 Then Set lvwNew = lstView.ListItems.Add(lngIndex, , lvwItem.Text) For Each lvwSubItem In lvwItem.ListSubItems lvwNew.ListSubItems.Add , lvwSubItem.Key, lvwSubItem.Text, lvwSubItem.ReportIcon, lvwSubItem.ToolTipText Next lvwSubItem lvwNew.Selected = True Set lvwNew = Nothing lstView.ListItems.Remove lvwItem.Index End If Set lvwItem = Nothing End IfEnd Sub

vb Code:
Private Sub MoveUp(lv As ListView) Dim itm As ListItem, itmNew As ListItem, i As Long If lv.SelectedItem.Index > 1 Then Set itm = lv.SelectedItem Set itmNew = lv.ListItems.Add(itm.Index - 1, , itm.Text, itm.Icon, itm.SmallIcon) For i = 1 To itm.ListSubItems.Count With itm.ListSubItems(i) Call itmNew.ListSubItems.Add(, .Key, .Text, .ReportIcon, .ToolTipText) End With Next lv.ListItems.Remove itm.Index itmNew.Selected = True lv.SetFocus End IfEnd Sub Private Sub MoveDown(lv As ListView) Dim itm As ListItem, itmNew As ListItem, i As Long If lv.SelectedItem.Index < lv.ListItems.Count Then Set itm = lv.SelectedItem Set itmNew = lv.ListItems.Add(itm.Index + 2, , itm.Text, itm.Icon, itm.SmallIcon) For i = 1 To itm.ListSubItems.Count With itm.ListSubItems(i) Call itmNew.ListSubItems.Add(, .Key, .Text, .ReportIcon, .ToolTipText) End With Next lv.ListItems.Remove itm.Index itmNew.Selected = True lv.SetFocus End IfEnd Sub

Listview - DragDrop Multiple Items
I have the following code that successfully will drag & drop one item at a time, but doesn't work all the time if multiple rows are selected?
When I start to drag, sometimes nothing happens.

Anybody point me in the right direction please?

Code:
Private Sub lvwSelected_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
On Error GoTo ErrTrap

Dim i As Long
Dim lvwItem As ListItem

For i = 1 To lvwSource.ListItems.Count
If lvwSource.ListItems(i).Selected = True Then
Set lvwItem = lvwSelected.ListItems.Add(, , lvwSource.ListItems(i).Text)
lvwItem.SubItems(1) = lvwSource.ListItems(i).SubItems(1)
lvwItem.SubItems(2) = lvwSource.ListItems(i).SubItems(2)
'remove original item
lvwSource.ListItems.Remove i
End If
Next

Also, when dragging multiple items across, and removing the original item, I now get an error because the ListItem.Count is now out of bounds.
How would I handle this?
Would I add 1 to the value of 'i' before the next loop?

Multiple Selected Items In A Listview
Hello, how can I find out how many selected items there are in a listview?

I'm showing a popup menu when the user right-clicks on an item, but I need to know if only 1 item is selected, so I can disable a menu option.

I've tried this, but it doesn't work.

VB Code:
If ListView.SelectedItem < 2 Then mnuCopyMultiple.Enabled = False

Dragging Multiple Items From A Listview
i have some code to let users drag an item from a listview onto a treeview node, which works fine, but now i want to let them drag multiple items.

the problem is that when then select a bunch of items, then drag them to the treeview, it leaves only the last item they clicked on selected (as if they selected them, then just left-clicked one of them). is there a way to keep them all selected?

also, just out of interest, is there a way to make the drag icon include some text from each selected listview item along with an icon (like when you drag multiple files in windows explorer)?

thanks for any help

Remove Multiple Items From ListView
I've got a ListView control with the MultiSelect property set to True and would like to remove all of the selected items only. I've looked at some of the threads concerning this issue but am still having trouble. I can remove a single selected item but not all of the selected items. My code is as follows:

Code:
Private Sub cmdRemove_Click()

Dim I As Integer

For I = 1 To lstPlot.ListItems.Count
If lstPlot.ListItems(I).Selected = True Then
lstPlot.ListItems.Remove (I)
End If
Next I

End Sub

What am I missing?

Thanks for your help!

Multiple Select Items In Listview
im having a problem in listview. ther ar 2 listviews for Excel and server. the user will select fields in th excel lisview he want to upload in server lisview. it upload a field if the user only select 1 field. but if it highlights many fields it only copy the lastselected fields the other fields highlighted dont work. heres my code:

j = LVExcel.ListItems.Count
For i = j To 1 Step -1
  If LVExcel.ListItems(i).Selected = True And LVDatabase.ListItems(i).Selected = True Then
        Set rs1 = New ADODB.Recordset
        destinationtble = "select * from [user]"
        rs1.Open destinationtble, gcn, adOpenKeyset, adLockOptimistic
           Do While Not RS.EOF
              rs1.AddNew
              rs1.Fields(LVDatabase.SelectedItem.Text) = RS.Fields(LVExcel.SelectedItem.Text)
              rs1.Update
              RS.MoveNext
           Loop
          Set RS = Nothing
  End If
next i

Please Help Me With Drag-n-Drop Of Multiple Items From One Listview To Another.
Hello!

I'm facing a problem with Listview Drog and Drop of multiple items from one listview to another listview. When I try to Drag only one single item, the item is dragged without any problem. However, when the multiple selected items are dragged, the Listview on which the items are dropped, receives information about only one item and not all selected items. The item, about which the information is received, is the same on which I click and hold mouse to start drag action. So, it looks like even though multiple items are selected in a listview, while executing the Drag-Drop action, listview treats it as single item selected!

Is this a default behavior of Listview or am I missing/doing anything wrong? Any work-around for this (seems like default) behavior of Listview? I searched for it and got a code example at http://btmtz.mvps.org/listview/ where the author has demonstrated Drag-Drop of multiple items. However, the code is specifically restricted to re-arranging items within same Listview and the information is transported via Drag-Drop to another Listview, upon which the items are dropped.

To help you all to get a better insight of my problem, I have attached a Demo of Listview Drag-n-Drop. Please see the project and you will see that when one item is dragged from left side Listview to right side Listview, no problem for VB to allow me to do it! However, when you select multiple items in left side Listview and try dragging those to right side Listview, only one item is dragged. Please let me know if I'm doing anything wrong here and please help me to get this stuff to work!

Waiting for your valuable reply ...

Regards,

Ruturaj.

Drag Multiple Items From Listview To Treeview
Does anyone have some good sample code for how to
drag multiple listviewitems to an treeview?!

I cant figure it out...

Regards

Peter

Show Multiple Items In Listview Taken From Database
How would I show multiple items from an Access database in a listview?

Example: Let's say my database looks like this:

Sender Subject Date
me@isp.com Some Subject 1-13-00 7:59AM
you@otherisp.com Some other subject 7-30-01 8:00AM

I want to load both items into a listview. My current procedure only loads one item at a time. Here is the procedure:

Code:
Dim Recordset As ADODB.Recordset
Select Case Node.Text
Case "Trash"
If Recordset.EOF = True Then Exit Sub
lvwMail.ListItems.Clear
With lvwMail.ListItems.Add(, , Recordset!Sender)
.SubItems(1) = Recordset!Subject
.SubItems(2) = Recordset!Date
End With
End Select

How To Move Multiple Selected Items To New ListView
I have 2 ListView Controls. I need to move multiple selected items from ListView1 to ListView2.

How would I go about doing this?

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!

Autofilter With Multiple Columns And Multiple Criteria
Hi

I have a sheet of data, which I need to clear up. What I want to do is use the autofilter function to filter out the information that I need, leaving what I don't need visible and then delete the visible rows.

First filter is on column D, where I need to select all rows that are in "Unit1" and then filter on column C to select all rows that are NOT "Team1" or "Team2".

Code I have is:

vb/
Dim CheckRange As Range, DeleteRange As Range

Set CheckRange = Worksheets("Sheet1").Columns(7)
CheckRange.AutoFilter Field:=4, Criteria1:="Unit1"
CheckRange.AutoFilter Field:=3, Criteria1:="<>Team1", Operator:=xlOr, Criteria2:="<>Team2"

Set DeleteRange = CheckRange.SpecialCells(xlCellTypeVisible).EntireRow
DeleteRange.Delete
/vb

However this does not work. It filters out all the non "Unit1" rows fine, but then applied a filter to Column C that does nothing!

Can someone help put me out of my misery?

Add Items To A Listbox With 3 Columns
HI, everyone!

How can i add items to listbox columns?
Let´s say for example i want to add items to the column 3 of the listbox, how can i do this?

thanks.

Adding Items To ListBox Whith 2 Columns
How can I add items to a Listbox whith some columns , from a recordset ? in a Listbox whith one column, I used Additem , but I like to feel 2 columns, each one is a field from a recordset.
Thanks,
Richard.

I Want To Make Two Columns For Adding Items In Listbox In Visualbasic6.0
i want to make two columns for adding items in listbox in visualbasic6.0 ...?

Listbox Multiple Columns
I am using a listbox and I want to have columns to devide the information. I was wondering if this is possible? I should also mention I am using VBA within Excel.

Combo Box With Multiple Columns
hi guyz...
i just wanna ask if its possible to have a
combo box with multiple column.
if its possible, how do i do this...

thnx.

Multiple Columns In Listbox
I have a listbox (VB6) with 3 columns. However, I cannot figure out how to fill in columns 2 and 3. List1.additem only takes a single string, and if i use additem again, it starts on the next line, leaving column 2 and 3 empty. How do I fill the other columns?

Selecting Multiple Columns
i need to delete multiple cloumns from worksheet. Unfortunatly, i do not have any experience with VBA and excel. Can anyone point me to the information or tell me how to select multiple noncontigous columns at once.

I was going to do it this way but it occurred to me that the columns will get renumbered as they are deleted. So i figured there has to be some way to select multiple columns and then delete them all at once.

.Range(.Columns("B")).Select '.EntireColumn.Delete
.Columns("F").EntireColumn.Delete
.Columns("J").EntireColumn.Delete
.Columns("K").EntireColumn.Delete

Thanks,

Animaul

Listbox - Multiple Columns?
Is it possible to create multiple columns in a listbox?
I read somewhere that listview can handle it but I don't know how to do.

Multiple Columns List
In Access, you can make multiples-columns ComboBox.

For example, you can determine the ComboBox content by a sql query. Then, if this query return 3 fields, you can set the Columns property to 3 and the ComboBox display the 3 data for each row.

I want to do the same thing with Visual Basic: filling a ComboBox with data from an Access database.
But is it possible get more than 1 column in the ComboBox?

Multiple Columns In VB Listbox?
Is there a way to put data in multiple columns in VB without having all these fussy vbtabs that I've seen in various solutions online?

On a listbox I'd like to put a list of teams and next to them the number of cases in the system pertaining to them.

I have multiple listboxes on the form that I have to populate so I wrote this code to do it...I was hoping whatever solution I find with multiple columns will fit what I already have (if it stinks please tell me, I'm always looking to improve):

Code:
Call ListBoxLoop(intLower, intUpper, rstArray(), strSQLArray(), ctlListArray())

Code:
Public Function ListBoxLoop(intLower, intUpper As Integer, rstArray() As ADODB.Recordset, _
strSQLArray() As String, ctlListArray() As ListBox)
Dim i As Integer
For i = intLower To intUpper
Set rstArray(i) = New ADODB.Recordset
rstArray(i).Open strSQLArray(i), cnConn, adOpenForwardOnly
ctlListArray(i).Visible = False
Do While Not rstArray(i).EOF
ctlListArray(i).AddItem (rstArray(i).Fields(0))
rstArray(i).MoveNext
Loop
ctlListArray(i).Visible = True
Next i
End Function

Multiple Columns In A Listbox
I need to have multiple columns in a listbox and don't know how.

Datareports (Multiple Columns)
Is there a way to display information in multiple columns in a datareport? I know you can do it in Access but I haven't been able to find a way to do it with VB datareports. I want to display information for two records (instead of just one) on every row. (to save space).

Multiple Columns In A Listbox
In a listbox that has been set to have multiple columns, is there a way to push added items into specific columns?

If not is there another control that would be better suited to this?

Thanks,
John

Multiple Columns In Combo Box
How can I have more than one column in a combo box as we can have in Access forms.

Is it possible to do in VB with some API?

Combobox With Multiple Columns
Is it possible to create a combobox with 2 columns? If yes, how? I couldn't figure it out on my own and I couldn't find anything in the MSDN about it.

Thanks for the help,
Andy

Multiple Columns In A Combobox ?
Ok.. yesterday it was listboxes, and today..... well you get the picture. Can someone please drop a line explaining how I would add another column to a combobox?

Multiple Columns In A ComboBox
I would like to have 3 columns in my combobox.

this is the example of my actuel code made on ONE column where each fields are "concatanate" to form a strig that I had.

rst.Open "select ru_code_rue,ru_nom_rech,vi_code_vill from gestion_rue", cnn, adOpenKeyset, adLockOptimistic, adCmdText

rst.MoveFirst
Do While Not rst.EOF
chaine = rst!ru_code_rue & " " & rst!ru_nom_rech & " " & rst!vi_code_vill
If chaine <> "" Then
cbocoderue.AddItem chaine
End If
rst.MoveNext
Loop
rst.Close

But this code that make 3 distincts columns and it's not really nice.

But It's don't let me put the string "select ru_code_rue,ru_nom_rech,vi_code_vill from gestion_rue" in the property cbocoderue.rowsource.

I know that I have to work with the boundcoulmn, columncount and the columnwidth properties but I don't know exactly how.

thank for your help.

Dominic Lavoie

ListBox With Multiple Columns
Has anyone here used multiple columns with a listbox? I haven't, I'm not quite sure how it works.

Multiple Columns In A Combo Box
Is there anyway to display multiple columns of data in a VB6 combo box?

Using the following doesn't work

combobox1.additem "Some string" & vbtab & "Some other string"

It displays some odd characters in the string. Is it possible to do this, or has anyone come across any 3rd party components that do this?

Multiple Columns In Combo Box
Hi All

I've been spoilt with MS Access where I can have a combo box containing multiple columns and set the widths of each individual column. This way I can display anything I want and still keep my index hidden.

How do I do this in VB6? I am using the standard vb6 combo control and not the data bound version.

Thanks
Steve

Multiple Columns In A Combo Box?
Hi,

Just wondering how you can go about making a combo box contain multiple columns. I have a form with 2 comboboxes which are filled from a mysql database, I'd like to try to change this to a single combo box with 2 columns instead. Is it possible?

Thanks,
Mag2

Multiple Columns Report
hello All
i want to make a muti column report.
Example
the data is showing in Detail section of the report as follows
A
B
C
D
E
F
i want to show it as follows

A D
B E
C F

Thanks

TreeView With Multiple Columns
Hello All,

Can anyone pls. tell me how to make a editable multicolumn Treeview in VB .

Thanks in advance

Preeti

Of .AddItem, AccessXP And Multiple Columns
I'm struggling a bit with populating multiple columns using the .additem command when dealing with comboboxes.

Code:
with cmbitem
If out = 0 Then
.AddItem firstcolumndata, columnpos
columnpos = columnpos + 1
.AddItem secondcolumndata, columnpos
columnpos = columnpos + 1
End If
End With
The data is being grabbed from a recordset. From what I've read in the help file the syntax for additem is expression.AddItem(Item, Index), index referring to the position in the combo box.
If I put the bits after AddItem inside the brackets, as the syntax suggests, it comes up with a comilation error and tells me an = sign is missing (where?!?)
If I leave it without an index, it just adds the next item to the next row.
I've tried the column property, but I can't seem to make head nor tail of the syntax, and it doesn't seem to work in conjunction with additem?

I'm really getting stuck at the moment. Can anyone help me at all?

Populating A ComboBox With Multiple Columns
I use to be able to fill a combo box with multiple columns when I was working with access which used rowsource. In VB I'm having a hard time with it. I can fill a single column using .additem but not more. There are a couple different comboboxes so I don't if I'm using the right one.

I would like to fill it by binding to a recordset but I would be will to use something like .additem to do it. Can someone explain how to do it both ways, please?

Thank you.

Labels Across Multiple Columns In MsChart
I have a MsChart and I want to have a label for multiple columns of data. It shows usage of a program over time, and shown on a per day basis it is fine, but if I show all data, the column labels are unreadable and there is a black strip right across the bottom. I am wondering if it is possible to have one label cover multiple entries, so for example, all the data for a week can have the label of week 1.

I have tried the DiversionsPerLabel and DiverSionsPerTick properties but haven't been able to get them to work.

Any help would be appreciated.

Thanks,
Shane

Add Items To A Listview Multiple Columns

Hi... I have a listview with 3 columns... how can i add items to the second and the third column? i know it's a stupid question but i can't solve it Thanks in advancesimons

Hi... I have a listview with 3 columns... how can i add items to the second and the third column? i know it's a stupid question but i can't solve it

Thanks in advance

simons