Split into array ?

[mac_shinobi]

VB .NET 2008 Express

Public Shared Function GetPrintersCollection() As StringCollection
        Dim printerNameCollection As New StringCollection()
        Dim searchQuery As String = "SELECT * FROM Win32_Printer"
        Dim searchPrinters As New ManagementObjectSearcher(searchQuery)
        Dim printerCollection As ManagementObjectCollection = searchPrinters.[Get]()
        For Each printer As ManagementObject In printerCollection
            printerNameCollection.Add(printer.Properties("Name").Value.ToString())

        Next
        Return (printerNameCollection)
    End Function

I want to be able to add each of the printers to a listview but need to somehow split the data but because its a stringcollection I dont understand how to do it.

Any help please ?

[mac_shinobi]

bump the thread

[mac_shinobi]

Windows Control: The List Box

so because its a function could I just use the addrange property so in my case would be

lstPrinters.items.addrange(GetPrintersCollection())

Just tried that and am getting the following error message as per screen grab

Also its a stringcollection data type so not sure if that makes any difference

[mac_shinobi]

Actually as a stringcollection this should do the trick

lstPrinters.items.addrange(GetPrintersCollection().ObjectCollection)

VBForums - View Single Post - ListBox.AddRange

Or possibly

lstPrinters.items.addrange(GetPrintersCollection().ToArray())

ListBox.Items collection

neither of those worked


Error for the ObjectCollection property I get

Error 1 'ObjectCollection' is not a member of 'System.Collections.Specialized.StringCollection'. C:\vb 2008 current\Printer_Management\Printer_Management\Form 1.vb 11 36 Printer_Management



Error for the ToArray property I get

Error 1 'ToArray' is not a member of 'System.Collections.Specialized.StringCollection'. C:\vb 2008 current\Printer_Management\Printer_Management\Form 1.vb 11 36 Printer_Management

[SYNACK]

Right I officially hate StringCollection, use this instead
List(Of String)

Public Shared Function GetPrintersCollection() As List(Of String)
        Dim printerNameCollection As New List(Of String)
        Dim searchQuery As String = "SELECT * FROM Win32_Printer"
        Dim searchPrinters As New ManagementObjectSearcher(searchQuery)
        Dim printerCollection As ManagementObjectCollection = searchPrinters.[Get]()
        For Each printer As ManagementObject In printerCollection
            printerNameCollection.Add(printer.Properties("Name").Value.ToString())
 
        Next
        Return (printerNameCollection)
    End Function

ListBox1.Items.AddRange(GetPrintersCollection().ToArray)

Filthy VB, I had to fire up VS 2010 for that

Edit: killed off above posts of mine as they were reproduced in quote form anyhow and they were also wrong, for shame

[mac_shinobi]

Right I officially hate StringCollection, use this instead
List(Of String)

Public Shared Function GetPrintersCollection() As List(Of String)
        Dim printerNameCollection As New List(Of String)
        Dim searchQuery As String = "SELECT * FROM Win32_Printer"
        Dim searchPrinters As New ManagementObjectSearcher(searchQuery)
        Dim printerCollection As ManagementObjectCollection = searchPrinters.[Get]()
        For Each printer As ManagementObject In printerCollection
            printerNameCollection.Add(printer.Properties("Name").Value.ToString())
 
        Next
        Return (printerNameCollection)
    End Function

ListBox1.Items.AddRange(GetPrintersCollection().ToArray)

Filthy VB, I had to fire up VS 2010 for that

Edit: killed off above posts of mine as they were reproduced in quote form anyhow and they were also wrong, for shame

Its a listview I am using not a listbox

Error 1 Overload resolution failed because no accessible 'AddRange' can be called with these arguments:
'Public Sub AddRange(items As System.Windows.Forms.ListView.ListViewItemCollecti on)': Value of type '1-dimensional array of String' cannot be converted to 'System.Windows.Forms.ListView.ListViewItemCollect ion'.
'Public Sub AddRange(items() As System.Windows.Forms.ListViewItem)': Value of type '1-dimensional array of String' cannot be converted to '1-dimensional array of System.Windows.Forms.ListViewItem' because 'String' is not derived from 'System.Windows.Forms.ListViewItem'. C:\vb 2008 current\Printer_Management\Printer_Management\Form 1.vb 11 9 Printer_Management


I've tried C# but its too hard core for me at the min lol - I aint that good.

Im trying to get to grips with when Im meant to use subs, functions, classes etc

Getting confused with it a bit lol

Nevermind solved

your function as per here

Public Shared Function GetPrintersCollection() As List(Of String)
        Dim printerNameCollection As New List(Of String)
        Dim searchQuery As String = "SELECT * FROM Win32_Printer"
        Dim searchPrinters As New ManagementObjectSearcher(searchQuery)
        Dim printerCollection As ManagementObjectCollection = searchPrinters.[Get]()
        For Each printer As ManagementObject In printerCollection
            printerNameCollection.Add(printer.Properties("Name").Value.ToString())
 
        Next
        Return (printerNameCollection)
    End Function

Then this code

Dim mylist as List(of String) = GetPrintersCollection()
For Each s as string in mylist
      ListView1.Items.Add(s)
Next