vb System.Workflow.ComponentModel.Design.WorkflowDesignerLoader.LoadDesignerLayout类(方法)实例源码

Public Sub LoadLayout()
    Using reader As XmlReader = XmlReader.Create("wfInstanceId.designer.xml")

        Dim layoutLoadErrors As IList = CType(New ArrayList(), IList)
        Me.LoadDesignerLayout(reader, layoutLoadErrors)

        If layoutLoadErrors.Count > 0 Then
            Dim sb As New System.Text.StringBuilder("Errors:\r\n")
            For Each errorMessage As WorkflowMarkupSerializationException In layoutLoadErrors
                sb.Append(errorMessage.Message + "\r\n")
            Next
            MessageBox.Show(sb.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End If
    End Using
End Sub