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

Тема в разделе "Visual Basic", создана пользователем -, 12 май 2012.

  1. Гость

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

    Код (LotusScript):
    [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
    не знаю как и что писать(((
     
  2. Aliquam

    Aliquam New Member

    Регистрация:
    17 мар 2012
    Сообщения:
    4
    Симпатии:
    0
    Код (LotusScript):
    Try
    'Твой код
    Catch err As Exception
    ' Обработка ошибки
    End Try
    http://msdn.microsoft.com/ru-ru/library/fk6t46tz.aspx

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

    Код (LotusScript):
    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
     
Загрузка...

Поделиться этой страницей