Блог

Переношу мой код VB на VB.net для автоматизации Visio. Я получаю сообщение об ошибке в Page.GetResults «Указанный массив не был ожидаемого типа». Я предполагаю, что ошибка связана с Variant, но я не смог ее устранить.

Спасибо за любую помощь

Если вы просмотрите исходный код этого проекта codeplex, вы найдете образец VB для Page.GetResults с использованием Visual Studio 2010. Это в файле под названием «VS2010_VB_Samples.vb»

Я включил исходный код ниже. Этот пример предназначен для обучения использованию API. Это не

     ' CREATE REQUEST
    Dim request = {
           New With { _
            Key .ID = CShort(shape.ID16), _
            Key .Section = CShort(IVisio.VisSectionIndices.visSectionObject), _
            Key .Row = CShort(IVisio.VisRowIndices.visRowXFormOut), _
            Key .Cell = CShort(IVisio.VisCellIndices.visXFormWidth), _
            Key .UnitCode = CShort(IVisio.VisUnitCodes.visNoCast) _
           }, 
          New With { _
            Key .ID = CShort(shape.ID16), _
            Key .Section = CShort(IVisio.VisSectionIndices.visSectionObject), _
            Key .Row = CShort(IVisio.VisRowIndices.visRowXFormOut), _
            Key .Cell = CShort(IVisio.VisCellIndices.visXFormHeight), _
            Key .UnitCode = CShort(IVisio.VisUnitCodes.visNoCast) _
            }
         }

    ' MAP THE REQUEST TO THE STRUCTURES VISIO EXPECTS
    Dim SID_SRCStream = New Short(request.Length * 4 - 1) {}
    Dim unitcodes = New Object(request.Length - 1) {}
    For i As Integer = 0 To request.Length - 1
        SID_SRCStream((i * 4)   0) = request(i).ID
        SID_SRCStream((i * 4)   1) = request(i).Section
        SID_SRCStream((i * 4)   2) = request(i).Row
        SID_SRCStream((i * 4)   3) = request(i).Cell
        unitcodes(i) = request(i).UnitCode
    Next

    ' EXECUTE THE REQUEST
    Dim flags = CShort(IVisio.VisGetSetArgs.visGetFloats)
    Dim results_sa As System.Array = Nothing
    page.GetResults(SID_SRCStream, flags, unitcodes, results_sa)

    ' MAP OUTPUT BACK TO SOMETHING USEFUL 
    Dim results_doubles = New Double(results_sa.Length - 1) {}
    results_sa.CopyTo(results_doubles, 0)

    ' DISPLAY THE INFORMATION
    shape.Text = String.Format("Results={0},{1}", results_doubles(0), results_doubles(1))