Question

我有一个我不再想使用的功能而且我正在调用它。所以我想使用不同的功能但修改调用。我该怎么做？

旧功能

    Shared Function DetermineDocumentTypeCodeWord(ByRef aobjXMLCaseDoc As XmlDocument, ByVal aintDocketEntryTypeCode As Integer, ByVal aintDocketEntrySubTypeCode As Integer, ByVal astrCaseCategory As String) As String
'
End Function

调用旧功能

    objDocument = New Msc.Integration.Mncis.Library.v4.Document(DetermineDocumentTypeCodeWord(objXMLCaseDoc, CInt(objXMLNode.SelectSingleNode("@docketEntryTypeCode").InnerText), CInt(objXMLNode.SelectSingleNode("@docketEntrySubTypeCode").InnerText), objXMLCaseDoc.DocumentElement.SelectSingleNode("Case/CaseCategory").InnerText), _
DetermineDocumentName(CInt(objXMLNode.SelectSingleNode("@docketEntryTypeCode").InnerText), CInt(objXMLNode.SelectSingleNode("@docketEntrySubTypeCode").InnerText)), strDocumentDescription,                     Msc.Integration.Mncis.Library.v4.Document.GetMimeType(objXMLNode.SelectSingleNode("@binaryObjectType").InnerText), _
System.Convert.FromBase64String(strDocumentObjectString), strDocumentSecurityCodeWord)

新功能

    Private Shared Function CaseHasDomesticNoContactOFPChips(ByRef aobjXMLCaseDoc As XmlDocument) As Boolean
'
End Function

如何修改旧函数的以下调用以调用新函数功能吗

修改此调用

objDocument = New Msc.Integration.Mncis.Library.v4.Document(DetermineDocumentTypeCodeWord(objXMLCaseDoc, CInt(objXMLNode.SelectSingleNode("@docketEntryTypeCode").InnerText), CInt(objXMLNode.SelectSingleNode("@docketEntrySubTypeCode").InnerText), objXMLCaseDoc.DocumentElement.SelectSingleNode("Case/CaseCategory").InnerText), _
DetermineDocumentName(CInt(objXMLNode.SelectSingleNode("@docketEntryTypeCode").InnerText), CInt(objXMLNode.SelectSingleNode("@docketEntrySubTypeCode").InnerText)), strDocumentDescription,                     Msc.Integration.Mncis.Library.v4.Document.GetMimeType(objXMLNode.SelectSingleNode("@binaryObjectType").InnerText), _
System.Convert.FromBase64String(strDocumentObjectString), strDocumentSecurityCodeWord)

如何修改现有函数调用？

0 个答案: