Переписать Программу С Try Catch

Guest · 12.05.2012

Добрый день!
написала вот такую программу

Код:

[BASIC]
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Dim InpName As String
For i = 1 To 5
InpName = InputBox("У вас есть 5 попыток ")
If (InpName = "h2frw2") Or (InpName = "H2FRW2") Then Exit For
Next i
TextBox1.Text = ""
Me.Close()
Form2.ShowDialog()
End Sub
End Class

но нужно сделать с try
вот кусочек примерно так должно быть)
Try
Catch ex As Exception
MsgBox(ex.Message, "Неверно введен код! Обратите внимание на регистр букв")
End Try
не знаю как и что писать(((

Aliquam · 11.07.2012

Код:

Try
'Твой код
Catch err As Exception
' Обработка ошибки
End Try

http://msdn.microsoft.com/ru-ru/library/fk6t46tz.aspx

У тебя это будет выглядеть так

Код:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim i As Integer
Dim InpName As String
For i = 1 To 5
InpName = InputBox("У вас есть 5 попыток ")
If (InpName = "h2frw2") Or (InpName = "H2FRW2") Then Exit For ' If InpName.ToUpper = "H2FRW2" Then Exit For
Next i
TextBox1.Text = ""
Me.Close()
Form2.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message, "Неверно введен код! Обратите внимание на регистр букв")
End Try
End Sub
End Class

Переписать Программу С Try Catch

Ещё по теме