- Код: Выделить всё
Form1.strDocumentLocation = Form1.strToDocumentLocation
Form1.BackForwardPosition += 1
Form1.BackForwardArray(Form1.BackForwardPosition) = Form1.strDocumentLocation
Dim a As Integer
a = InStrRev(Form1.strDocumentLocation, "ns="
If a > 0 Then
Form1.strLastTarget = Mid(Form1.strDocumentLocation, a + 3)
End If
Form1.txtAdress.Text = Form1.strDocumentLocation
Значит получаю в строке
- Код: Выделить всё
a = InStrRev(Form1.strDocumentLocation, "ns="
IndexOutOfRangeException и переход в режим отладки.
Ну думаю .Net вообще отъехал, массивов то тут в помине нет
Ну ладно, не в состоянии определить причину ошибки, удаляю кусок
- Код: Выделить всё
Dim a As Integer
a = InStrRev(Form1.strDocumentLocation, "ns="
If a > 0 Then
Form1.strLastTarget = Mid(Form1.strDocumentLocation, a + 3)
End If
нафиг.
Возникает IndexOutOfRangeException, но уже выделяет строку
- Код: Выделить всё
Form1.txtAdress.Text = Form1.strDocumentLocation
...
Ставлю
- Код: Выделить всё
Try
Form1.txtAdress.Text = Form1.strDocumentLocation
Catch ex As System.IndexOutOfRangeException
End Try
VB.net все еще не понял.. Опять переход в режим отладки на ту же строку
В результате поисков и раздумий, было выяснено что ошибка здесь (никто ведь не подумал что он может так гнать, внаглую
)- Код: Выделить всё
Form1.BackForwardArray(Form1.BackForwardPosition) = Form1.strDocumentLocation
Ну и как вам такая отладка? Точна как атомные часы у бабушек в кладовке..
