{"id":5833,"date":"2007-07-03T19:28:00","date_gmt":"2007-07-03T19:28:00","guid":{"rendered":"https:\/\/blogs.msdn.microsoft.com\/vbteam\/2007\/07\/03\/linq-cookbook-recipe-5-concatenating-the-selected-strings-from-a-checkedlistbox-kit-george\/"},"modified":"2024-07-05T14:44:19","modified_gmt":"2024-07-05T21:44:19","slug":"linq-cookbook-recipe-5-concatenating-the-selected-strings-from-a-checkedlistbox-kit-george","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/vbteam\/linq-cookbook-recipe-5-concatenating-the-selected-strings-from-a-checkedlistbox-kit-george\/","title":{"rendered":"LINQ Cookbook, Recipe 5: Concatenating the selected strings from a CheckedListBox (Kit George)"},"content":{"rendered":"
\n

Ingredients:<\/p>\n

<\/font><\/font><\/h2>\n

–<\/font>          <\/span><\/span><\/span>Visual Studio 2008 (Beta2 or Higher)<\/font><\/font><\/p>\n

<\/font> <\/p>\n

Categories: LINQ-To-Objects, LINQ and WinForms<\/font><\/font><\/p>\n

<\/font><\/font> <\/p>\n

Instructions:<\/p>\n

<\/font><\/font><\/p>\n

    \n
  • \n
    Open Visual Studio 2008, and Click ‘File\/New Project’. Create a new Windows Forms Application project<\/font><\/font><\/div>\n<\/li>\n
  • \n
    From the toolbox, <\/font><\/span><\/span>drag a CheckedListBox to the main form, and a button. Ensure the listbox is large enough to view multiple items<\/font><\/font><\/div>\n<\/li>\n
  • \n
    DoubleClick the form to creat the load event. Add this code to the load event (this simply populates the CheckedListBox with entries)<\/font><\/div>\n<\/li>\n<\/ul>\n

    <\/p>\n

    CheckedListBox1.Items.AddRange( _<\/font><\/p>\n

    <\/span><\/span><\/span><\/p>\n

    <\/p>\n

    <\/p>\n

      New<\/font> <\/font>String<\/font>() {<\/font>“Apple”<\/font>, <\/font>“Orange”<\/font>, <\/font>“Banana”<\/font>, _<\/font><\/p>\n

    <\/span><\/p>\n

    <\/span><\/span><\/dd>\n

    <\/p>\n

    <\/p>\n

      “Avocado”<\/font>, <\/font>“Tomato”<\/font>, <\/font>“Tamarillo”<\/font>, _<\/font><\/p>\n

    <\/span><\/p>\n

    <\/span><\/span><\/dd>\n

    <\/p>\n

    <\/p>\n

      “Kiwifruit”<\/font>, <\/font>“Cherry”<\/font>})<\/font><\/p>\n

    <\/span><\/p>\n

    <\/span><\/span><\/dd>\n

    <\/p>\n

    <\/p>\n

    <\/span>     <\/span><\/p>\n

  • \n
    Create the click event for the button (in the code editors dropdowns, in the left drop down, select Button1) and add this code<\/font><\/font><\/div>\n<\/li>\n

    <\/span><\/span><\/dd>\n

     <\/p>\n

    MsgBox( _<\/font><\/span><\/span><\/span><\/p>\n

    \n

      Aggregate<\/font> Box <\/font>In<\/font> CheckedListBox1.CheckedItems _<\/font><\/span><\/span><\/span><\/p>\n<\/dd>\n

    \n

      Into<\/font> Concat())<\/font><\/span><\/span><\/span><\/p>\n<\/dd>\n

      \n
    • \n
      At the very bottom of the code (after End Class) add this code. This code creates the aggregate ‘Concat’ function which enables this code to be used on the ‘Into’ above<\/font><\/font><\/span><\/span><\/span> <\/span><\/span><\/span><\/div>\n<\/li>\n<\/ul>\n

      Public<\/font> <\/font>Module<\/font> AggregateModule<\/font><\/span><\/span><\/span><\/p>\n

        <Extension()> <\/font>Public<\/font> <\/font>Function<\/font> Concat(Of<\/font> Type)<\/font>( _<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>        ByVal<\/font> ie <\/font>As<\/font> IEnumerable(<\/font>Of<\/font> Type)) <\/font>As<\/font> <\/font>String<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>    Dim<\/font><\/font> str <\/font>As<\/font> <\/font>String<\/font> = <\/font>“”<\/font><\/span><\/span><\/span><\/p>\n

          <\/font><\/span>For<\/font> <\/font>Each<\/font> item <\/font>In<\/font> ie<\/font><\/span><\/span><\/span><\/p>\n

          <\/span>If<\/font> str <> <\/font>“”<\/font> <\/font>Then<\/font> str &= <\/font>“,”<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>      <\/font>str &= item.ToString()<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>    Next<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>    Return<\/font><\/font> str<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>  End<\/font> <\/font>Function<\/font><\/span><\/span><\/span><\/p>\n

      <\/span>End<\/font> <\/font>Module<\/font><\/span><\/span><\/span><\/p>\n

      <\/p>\n

        \n
      • \n
        Alternatively, change the code in the button to be the following and remove the function we created (this is less code, but if you’re going to use this code a lot, then writing the Concat function is preferred)<\/font><\/font><\/span><\/span><\/span> <\/span><\/span><\/span><\/div>\n<\/li>\n<\/ul>\n

        <\/span><\/span><\/span>MsgBox((<\/font>From<\/font> c <\/font>In<\/font> _<\/font><\/span><\/span><\/span><\/p>\n

                CheckedListBox1.CheckedItems).<\/font>Aggregate<\/font>( _<\/font><\/span><\/span><\/span><\/p>\n

        \n

           Function<\/font>(<\/font>ByVal<\/font> x, <\/font>ByVal<\/font> y) x + <\/font>“,”<\/font> + y))<\/font><\/span><\/span><\/span><\/p>\n<\/dd>\n

        <\/span><\/dd>\n","protected":false},"excerpt":{"rendered":"

        Ingredients: –          Visual Studio 2008 (Beta2 or Higher)   Categories: LINQ-To-Objects, LINQ and WinForms   Instructions: Open Visual Studio 2008, and Click ‘File\/New Project’. Create a new Windows Forms Application project From the toolbox, drag a CheckedListBox to the main form, and a button. Ensure the listbox is large enough to view multiple items DoubleClick […]<\/p>\n","protected":false},"author":260,"featured_media":8818,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[192,195],"tags":[90,93,94,166],"class_list":["post-5833","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-featured","category-visual-basic","tag-kit-george","tag-linq-cookbook","tag-linqvb9","tag-vb2008"],"acf":[],"blog_post_summary":"

        Ingredients: –          Visual Studio 2008 (Beta2 or Higher)   Categories: LINQ-To-Objects, LINQ and WinForms   Instructions: Open Visual Studio 2008, and Click ‘File\/New Project’. Create a new Windows Forms Application project From the toolbox, drag a CheckedListBox to the main form, and a button. Ensure the listbox is large enough to view multiple items DoubleClick […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/5833","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/users\/260"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/comments?post=5833"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/5833\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media\/8818"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media?parent=5833"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/categories?post=5833"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/tags?post=5833"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}