У меня вопрос: как мне правильно вызвать исключение а потом отловить его? Я пробовал так: если пароль занесли неправильный, я вызываю исключение ошибки деления на нуль (11) и пытаюсь его отловить. Но программа не ловит его а показывает ошибку (как в Дельфи "Access violation error at address ...")
Я начал программировать на VB 2 дня назад, так что не обезсудьте.
Function OpenFromFile(ByVal FileName As String) As Boolean
Dim Stream As StreamReader
Dim FStream As FileStream
Dim Idx As Integer
Dim Result As Boolean = True
Dim PasswordDialog As PasswordForm
Try
FStream = New FileStream(FileName, FileMode.Open, FileAccess.Read)
Stream = New StreamReader(FStream)
Password = Decrypt(Stream.ReadLine)
PasswordDialog = New PasswordForm()
PasswordDialog.Password = Password
If PasswordDialog.ShowDialog(Me) = DialogResult.No Then
Error 11 'Здесь вызываю исключение
End If
QwestionCount = Stream.ReadLine()
ReDim Preserve Qwestions(QwestionCount)
For Idx = 0 To QwestionCount - 1
With Qwestions(Idx)
.sQwestion = Stream.ReadLine()
.sAnswer1 = Stream.ReadLine()
.sAnswer2 = Stream.ReadLine()
.sAnswer3 = Stream.ReadLine()
.sAnswer4 = Stream.ReadLine()
.RightAnswer = Val(Stream.ReadLine())
End With
Next Idx
GotoQwestion(0)
QwUpDown.Maximum = QwestionCount
Catch eIO As Exception
MsgBox("Error reading file: " & eIO.ToString, MsgBoxStyle.Critical, "IO ERROR")
Result = False
Catch eFile As Exception
MsgBox("Error open file: " & eFile.ToString, MsgBoxStyle.Critical, "FILE ERROR")
Result = False
Catch e As DivideByZeroException 'Здесь я ловлю
MsgBox("Access denied! Incorrect password!", MsgBoxStyle.Critical, "Access not allowed")
Result = False
Finally
Stream.Close()
FStream.Close()
End Try
Return Result
End Function