tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 'System.InvalidCastException'
投稿日： 2007/04/20(Fri) 17:37
投稿者： ひでと
お世話になります。
下のようなFunctionを作り、「文字として入力した数字」を 強制的に数字に変換しようとしています。
エラーはトラップできているようなのですが、イミディエイトウインドウに、
  「'System.InvalidCastException' の初回例外が
Microsoft.VisualBasic.dll で発生しました。」
と毎回でてきます。
これを避ける方法は無いでしょうか。

Public Function 文字to数字(ByVal 文字 As String) As Object
        文字to数字 = 文字
        If 文字 = "" Then Exit Function
        Try
            If 文字 = CStr(CShort(文字)) Then 文字to数字 = CShort(文字) : Exit Try
            If 文字 = CStr(CInt(文字)) Then 文字to数字 = CInt(文字) : Exit Try
            If 文字 = CStr(CLng(文字)) Then 文字to数字 = CLng(文字) : Exit Try
            If 文字 = CStr(CSng(文字)) Then 文字to数字 = CSng(文字) : Exit Try
            If 文字 = CStr(CDbl(文字)) Then 文字to数字 = CDbl(文字) : Exit Try
        Catch ex As System.Exception
            Exit Function
        End Try
    End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。