ByRef參數與類型轉換

我確實創建了一個能夠處理不準確的日期和時間的XDateTime類。ByRef參數與類型轉換

該類具有轉換字符串和字符串所需的所有CType運算符，並且它在過去的幾個月中已經過全面測試。

Public Shared Widening Operator CType(ByVal xDateTime As FrameworkBL.XDateTime) As String 
    Dim retrunValue As String = Nothing 

    If xDateTime Is Nothing Then 
     retrunValue = Nothing 
    Else 
     retrunValue = xDateTime.StringValue 
    End If 

    Return retrunValue 
End Operator 

Public Shared Narrowing Operator CType(ByVal value As String) As FrameworkBL.XDateTime 
    Dim returnValue As FrameworkBL.XDateTime = Nothing 


    If String.IsNullOrEmpty(value) Then 
     returnValue = Nothing 
    Else 
     returnValue = New FrameworkBL.XDateTime(value) 
    End If 

    Return returnValue 

End Operator

然而，當一個對象的ByRef參數中返回一個字符串，我CTYPE運營商似乎被忽略和cast異常。

Private Sub Test() 
    Dim myXDateTime As FrameworkBL.XDateTime 

    myXDateTime = "200101010000007" 'Ok 
    Me.Temp1(myXDateTime) 'Ok 
    Me.Temp2(myXDateTime) 'Ok 
    Me.Temp3(myXDateTime) 'Unable to cast object of type 'System.String' to type 'FrameworkBL.XDateTime' 

End Sub 

Private Sub Temp1(ByRef myObject As String) 
    myObject = "200201010000007" 
End Sub 

Private Sub Temp2(ByRef myObject As XDateTime) 
    myObject = "200301010000007" 
End Sub 

Private Sub Temp3(ByRef myObject As Object) 
    myObject = "200401010000007" 
End Sub

這種問題是documented by Microsoft但我無法找到一個有效的解決方案來解決這個問題。我是死路一條還是有一個選項可以讓我保留我的ByRef Object參數？

來源

2012-03-19 The_Black_Smurf

解決方案是不寫這段代碼。事實上，你的代碼甚至不應該編譯，並且不要在意ByRef。你根本就不能將一個字符串分配給Object，這是正確的。您應該在項目設置中啓用Option Strict On。

這是正確和預期的行爲。

除此之外，通過利用VB If運算符，您的操作員實現可以（也應該）大大縮短。這使得冗餘初始化和分配消失：

Public Shared Widening Operator CType(ByVal xDateTime As XDateTime) As String 
    Return If(xDateTime Is Nothing, Nothing, xDateTime.StringValue) 
End Operator

相同的其他方式。也就是說，我認爲轉換運營商不應該在Nothing值上工作。這只是使Nothing蠕變到代碼不應該。

來源

2012-03-19 18:28:46

ByRef參數與類型轉換

回答

相關問題