none
Migrating My application from VB 6.0 to VB.NET RRS feed

  • Question

  • Hi Team,

    Good Day..

    We are upgrading my application from VB 6.0 to VS 2005. While upgrading I am facing some issues. Can you please assist on priority.

    I got error like " Interface BCOSOrder_IBCOSOrderProps" cannot be indexed because it has no default property

    Option Strict Off
    Option Explicit On
    <System.Runtime.InteropServices.ProgId("CLocalJETOrder_NET.CLocalJETOrder")> Public Class CLocalJETOrder
        Implements _IBCOSOrder

    Private Property IBCOSOrder_OrderStatus() As IBCOSOrder.OrderStatus Implements _IBCOSOrder.OrderStatus
            Get


                Select Case Me.BCOSOrder.OrderProps("DESTATUS")
                    'select Case Me.BCOSOrder.OrderProps(
                    'Note: "PY" is Inquiry, but old "Pre-Inquiry" used "PN"
                    Case "PY", "PN" : IBCOSOrder_OrderStatus = IBCOSOrder.OrderStatus.osInquiry
                    Case "FO" : IBCOSOrder_OrderStatus = IBCOSOrder.OrderStatus.osFirm
                End Select
            End Get
            Set(ByVal Value As IBCOSOrder.OrderStatus)

                If Value <> IBCOSOrder_OrderStatus Then
                    Select Case Value
                        Case IBCOSOrder.OrderStatus.osInquiry
                            'UPGRADE_WARNING: Couldn't resolve default property of object Me.BCOSOrder.OrderProps(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Me.BCOSOrder.OrderProps("DESTATUS") = "PY"
                        Case IBCOSOrder.OrderStatus.osFirm
                            'UPGRADE_WARNING: Couldn't resolve default property of object Me.BCOSOrder.OrderProps(). Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
                            Me.BCOSOrder.OrderProps("DESTATUS") = "FO"
                    End Select
                End If
            End Set
        End Property

    Thank you so much in advance.

    Thursday, January 11, 2018 9:52 AM

Answers

  • Hello,

    This forum does not deal with anything to do with VB6 even for conversions. Please use the forum below which is VB6 

    http://www.vbforums.com/forumdisplay.php?1-Visual-Basic-6-and-Earlier

    Or their VB.NET forum

    http://www.vbforums.com/forumdisplay.php?25-Visual-Basic-NET


    Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem. Contact via my Twitter (Karen Payne) or Facebook (Karen Payne) via my MSDN profile but will not answer coding question on either.
    VB Forums - moderator
    profile for Karen Payne on Stack Exchange, a network of free, community-driven Q&A sites

    • Marked as answer by Nareshraoch Thursday, January 11, 2018 1:01 PM
    Thursday, January 11, 2018 10:30 AM