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

タイトル ： Re^3: 'System.InvalidCastException'
投稿日： 2007/04/24(Tue) 14:25
投稿者： なおこ(・∀・)
お世話になります。

魔界の仮面弁士さんや、よねＫＥＮさんからアドバイスがあった通り
こんな感じでもう少しすっきりできるのでは。

    Public Function 文字to数字(ByVal 文字 As String) As Object
        If Not String.IsNullOrEmpty(文字) Then
            Dim shortValue As Short
            If Short.TryParse(文字, shortValue) Then Return shortValue

            Dim intValue As Integer
            If Integer.TryParse(文字, intValue) Then Return intValue

            Dim longValue As Long
            If Long.TryParse(文字, longValue) Then Return longValue

            Dim singleValue As Single
            If Single.TryParse(文字, singleValue) Then Return singleValue

            Dim doubleValue As Double
            If Double.TryParse(文字, doubleValue) Then Return doubleValue
        End If
        Return 文字
    End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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