This is a migrated thread and some comments may be shown as answers.
online dragdrop vb.net example not working
1 Answer 15 Views
This is a migrated thread and some comments may be shown as answers.
jtby
Top achievements
Rank 1
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

Sort by
0
Kiril Stanoev
Telerik team
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.
Asked by
jtby
Top achievements
Rank 1
Answers by
Kiril Stanoev
Telerik team
Share this question
or