online dragdrop vb.net example not working

2 posts, 0 answers
  1. jtby
    jtby avatar
    43 posts
    Member since:
    Feb 2007

    Posted 05 Jan 2010 Link to this post

    The online dragdrop vb.net example is not working, missing this part from the c# example:

     new ApplicationInfo()
                    {
                        Name = "Large Collider",
                        Author = "C.E.R.N.",
                        IconPath = @"/DragAndDrop/Images/LargeIcons/Atom.png"
                    },
                    new ApplicationInfo()
                    {
                        Name = "Paintbrush",
                        Author = "Imagine Inc.",
                        IconPath = @"/DragAndDrop/Images/LargeIcons/Brush.png"
                    },
                    new ApplicationInfo()
    .... can you recommend how to put that in Vb.NET, your code convertor does not do it
  3. Kiril Stanoev
    Admin
    Kiril Stanoev avatar
    1512 posts

    Posted 08 Jan 2010 Link to this post

    Hello John,

    This is how the GenerateApplicationInfos looks in VB:

    Public Shared Function GenerateApplicationInfos() As ObservableCollection(Of ApplicationInfo)
     
        Dim infos As New ObservableCollection(Of ApplicationInfo)()
     
        Dim info1 As New ApplicationInfo()
        info1.Name = "Large Collider"
        info1.Author = "C.E.R.N."
        info1.IconPath = "/DragAndDrop/Images/LargeIcons/Atom.png"
        infos.Add(info1)
     
        Dim info2 As New ApplicationInfo()
        info2.Name = "Fire Burning ROM"
        info2.Author = "The CD Factory"
        info2.IconPath = "/DragAndDrop/Images/LargeIcons/CDBurn.png"
        infos.Add(info2)
     
        Dim info3 As New ApplicationInfo()
        info3.Name = "Paintbrush"
        info3.Author = "Imagine Inc."
        info3.IconPath = "/DragAndDrop/Images/LargeIcons/Brush.png"
        infos.Add(info3)
     
     
        Dim info4 As New ApplicationInfo()
        info4.Name = "Lively Calendar"
        info4.Author = "Control AG"
        info4.IconPath = "/DragAndDrop/Images/LargeIcons/CalendarEvents.png"
        infos.Add(info4)
     
        Dim info5 As New ApplicationInfo()
        info5.Name = "Fire Burning ROM"
        info5.Author = "The CD Factory"
        info5.IconPath = "/DragAndDrop/Images/LargeIcons/CDBurn.png"
        infos.Add(info5)
     
        Dim info6 As New ApplicationInfo()
        info6.Name = "Fav Explorer"
        info6.Author = "Star Factory"
        info6.IconPath = "/DragAndDrop/Images/LargeIcons/favorites.png"
        infos.Add(info6)
     
        Dim info7 As New ApplicationInfo()
        info7.Name = "IE Fox"
        info7.Author = "Open Org"
        info7.IconPath = "/DragAndDrop/Images/LargeIcons/Connected.png"
        infos.Add(info7)
     
        Dim info8 As New ApplicationInfo()
        info8.Name = "Charting"
        info8.Author = "AA-AZ inc"
        info8.IconPath = "/DragAndDrop/Images/LargeIcons/ChartDot.png"
        infos.Add(info8)
     
        Dim info9 As New ApplicationInfo()
        info9.Name = "SuperPlay"
        info9.Author = "EB Games"
        info9.IconPath = "/DragAndDrop/Images/LargeIcons/Games.png"
        infos.Add(info8)
     
        Return infos
    End Function

    Let me know how it works for you.

    Kind regards,
    Kiril Stanoev
    the Telerik team

    Instantly find answers to your questions on the new Telerik Support Portal.
    Watch a video on how to optimize your support resource searches and check out more tips on the blogs.
Back to Top