タイトル : Re^4: 'System.InvalidCastException' 投稿日 : 2007/04/24(Tue) 16:58 投稿者 : ひでと
ありがとうございます。 アドバイスいただいた方に改めて御礼申し上げます。 VS2005をいじり始めて、まだ数週間といったところです。 VB6で挫折していたクラスの利用が、VS2005になって急に理解が出来てきました。 これも皆様のご助言によるものです。ありがとうございます。 現在は「継承」と「namespace」「イベント」の理解を進めながら、過去数年間 やりたくてたまらなかったものに挑戦しています。出来そうな気がしております。 今後もよろしくお願いします。 > お世話になります。 > > 魔界の仮面弁士さんや、よねKENさんからアドバイスがあった通り > こんな感じでもう少しすっきりできるのでは。 > > 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 |