C# と VB.NET の質問掲示板

先日はありがとうございました。
再び質問させていただきます。

VB.NET 2008 Express Editionを使っています

リストボックス内を検索する際、予め決めておいたID（プログラム内にはラベルで表示させてあるだけです）をテキストボックスに入力すると、IDが表示されるように
プログラムを組みました。

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = (13) Then
            ListBox1.SetSelected(0, True)
        ElseIf TextBox1.Text = (1) Then
            ListBox1.SetSelected(1, True)

このようにID13を入力してボタン１をクリックするとリストボックの0番目が選択されるようになったのですが、
空白または数字以外のものを入力してボタン１を押すとエラーが出てしまいます。

IDは0と19以降の数字は使っていません。それ以外の文字・数字が入力されたらメッセージボックスを使って警告したいのですが、
どのように入力すればよろしいのでしょうか？

■No46026 (Jitta さん) に返信
> ■No46023 (Surarin さん) に返信
>>        If TextBox1.Text = (13) Then
>>        ElseIf TextBox1.Text = (1) Then
>>
> 　これがどういう意味を持っているか、特に「TextBox1.Text= (13)」がどういう意味を持っているか、まず、調べてください。
> 
> 
> 　あと、エラーが出るときは、どこでどのようなエラーが出るか、きっちり書いてください。
> まぁ、今回は上の If の行で、空白を数字に変換できない、みたいなエラーだと思いますけど。

エラーは以下のとおりです

System.InvalidCastException はハンドルされませんでした。
  Message="String "" から型 'Double' への変換は無効です。"
  Source="Microsoft.VisualBasic"
  StackTrace:
       場所 Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
       場所 Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value)
       場所 IVMP_Weapons_sID_viewbar.Form1.Button1_Click_1(Object sender, EventArgs e) 場所 C:\Documents and Settings\OOO\デスクトップ\VB\test004\test004\idvw.vb:行 484
       場所 System.Windows.Forms.Control.OnClick(EventArgs e)
       場所 System.Windows.Forms.Button.OnClick(EventArgs e)
       場所 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       場所 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       場所 System.Windows.Forms.Control.WndProc(Message& m)
       場所 System.Windows.Forms.ButtonBase.WndProc(Message& m)
       場所 System.Windows.Forms.Button.WndProc(Message& m)
       場所 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       場所 System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       場所 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       場所 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       場所 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       場所 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       場所 System.Windows.Forms.Application.Run(ApplicationContext context)
       場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       場所 IVMP_Weapons_sID_viewbar.My.MyApplication.Main(String[] Args) 場所 17d14f5c-a337-4978-8281-53493378c1071.vb:行 81
       場所 System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
       場所 System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
       場所 System.Runtime.Hosting.ManifestRunner.Run(Boolean checkAptModel)
       場所 System.Runtime.Hosting.ManifestRunner.ExecuteAsAssembly()
       場所 System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData)
       場所 System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext)
       場所 System.Activator.CreateInstance(ActivationContext activationContext)
       場所 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone()
       場所 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       場所 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       場所 System.Threading.ThreadHelper.ThreadStart()
  InnerException: System.FormatException
       Message="入力文字列の形式が正しくありません。"
       Source="Microsoft.VisualBasic"
       StackTrace:
            場所 Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
            場所 Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
       InnerException: 


TextBox.Text はテキストを設定するものだから、間違っているのでしょうか・・・？

■No46027 (Surarin さん) に返信

> If TextBox1.Text = (13) Then
TextBox1.Text は String 型
13 は Integer 型
異なる型の比較を行うため暗黙的な型変換が行われます。
数字以外の文字列が入力された場合は型変換に失敗するために例外が発生します。

対策としては

例外の種類は System.InvalidCastException だとわかったので、これを捕まえる。
Try
	If TextBox1.Text = 13 Then
		ListBox1.SelectedIndex = 0
	End If
Catch ex As InvalidCastException
	MessageBox.Show("変換できないですよー")
	Return
End Try

試験的な型変換を行って例外を捕まえる。
Try
	Integer.Parse(TextBox1.Text)
Catch ex As System.FormatException
	MessageBox.Show("変換できないですよー")
	Return
End Try

If TextBox1.Text = 13 Then
	ListBox1.SelectedIndex = 0
End If

型変換を行う前に予測する。
If TextBox1.Text = "" Then
	MessageBox.Show("変換できないですよー")
	Return
End If

If Regex.IsMatch(TextBox1.Text, "[^0-9]") Then
	MessageBox.Show("変換できないですよー")
	Return
End If

If TextBox1.Text = 13 Then
	ListBox1.SelectedIndex = 0
End If