none
請問如何修改Option Strict On的錯誤訊息 RRS feed

  • 問題

  • 1.

    Option Strict On 不允許從'System.Object'到'System.Array'的隱含轉換

    ex :        
            If IsArray(myRawData) = False Or UBound(myRawData) = 0 Then
                Exit Sub
            End If
    2.

    Option Strict On 禁止使用Object型別(屬於運算子'&')的運算元
    ex :

      AppendText("<A[" & lItemNum & "] " & Chr(34) & ItemData & Chr(34) & ">" & vbNewLine)

       Private Sub AppendText(ByVal myText As String)
            ' Clear text if its too long
            If Len(edtCommInform.Text) > 8192 Then
                edtCommInform.Text = ""
            End If

            ' New-line character is added only when there's already texts
            ' in the Edit Control
            If edtCommInform.Text <> "" Then
                edtCommInform.Text = edtCommInform.Text & myText
            Else
                edtCommInform.Text = myText
            End If
            ' Put the caret in the end of the text
            edtCommInform.SelectionStart = edtCommInform.Text.Length
            ' Scroll to the caret
            edtCommInform.ScrollToCaret()
        End Sub

    Option Strict On 不允許晚期繫結

    ex :

             DisplayString = DisplayString & " 0x" & Hex(ItemData(i))

    2006年7月17日 上午 02:06

解答

  • 我是不知道你要改什麼,那些都是系統內建的錯誤訊息,如果你要改變的話,你必須要捕捉這個例外,然後再丟一個例外,但這個例外是包含你的錯誤訊息 .

    sample:

    Try

         ....

    Catch e As Exception

         Throw New Exception("Your Error Message")

    Finally

         ...

    End Try

    2006年7月17日 上午 06:28
    版主

所有回覆

  • 我是不知道你要改什麼,那些都是系統內建的錯誤訊息,如果你要改變的話,你必須要捕捉這個例外,然後再丟一個例外,但這個例外是包含你的錯誤訊息 .

    sample:

    Try

         ....

    Catch e As Exception

         Throw New Exception("Your Error Message")

    Finally

         ...

    End Try

    2006年7月17日 上午 06:28
    版主
  • 感溫咧..

    最後我還是向較不嚴謹的Option Strict Off妥協了.

    謝謝您的回應

    2006年7月17日 上午 08:57