This is a migrated thread and some comments may be shown as answers.

online dragdrop vb.net example not working

1 Answer 90 Views

DragAndDrop

This is a migrated thread and some comments may be shown as answers.

This question is locked. New answers and comments are not allowed.

jtby asked on 05 Jan 2010, 11:40 PM

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

1 Answer, 1 is accepted

answered on 08 Jan 2010, 01:29 PM

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.