| Вопрос: День программиста | Добавлено: 10.11.07 20:03 |
Автор вопроса:  Docal | ICQ: 408802757 |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 16 Автор ответа:  Docal ICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #16 | Добавлено: 12.11.07 17:49 |
|
On error goto er
er: msgbox "da nah tebe eta proga den programisa kazhduy den ",vbinformation,"ura" |
||
|
Номер ответа: 17 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #17 | Добавлено: 12.11.07 17:54 |
| Da kstati kto slushal o "erl" ya chital eto ne dokumentirovanaxa ficha vb kotoraya vozvrashchayet stroku gde oshubka.No dlya yeyo robotu nada zagruzit kakoy to add-ins.Kto cho ob etom sluhal | ||
|
Номер ответа: 18 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #18 | Добавлено: 12.11.07 18:59 |
|
on error goto e
.... exit sub e: MsgBox Err.Description |
||
|
Номер ответа: 19 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #19 | Добавлено: 12.11.07 23:50 |
| Debug.Print err.Description | ||
|
Номер ответа: 20 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #20 | Добавлено: 13.11.07 00:30 |
|
Da kstati kto slushal o "erl" ya chital eto ne dokumentirovanaxa ficha vb kotoraya vozvrashchayet stroku gde oshubka.No dlya yeyo robotu nada zagruzit kakoy to add-ins.Kto cho ob etom sluhal Где читал? Откуда такая недокументированная информация? 
|
||
|
Номер ответа: 21 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #21 | Добавлено: 13.11.07 22:51 |
|
Функция Erl
Erl() Недокументированная функция Erl(Error line) определяет локальный номер строки, в которой произошла последняя ошибка времени исполнения. Может быть полезной при отладке сложных процедур, в которых по номеру ошибки, выдаваемому объектом Err, сложно определить ее происхождение. Рекомендуется использовать в бета-версиях программ, что позволить узнать места ошибок. Для этого надо включить информацию из нее в каждый обработчик ошибок и перенумеровать все строки внутри процедур (Существуют Add-in, позволяющие перенумеровать все строки) Возвращаемое значение Функция возвращает значение типа Long, содержащее значение номера строки. Локальные номера строк задаются программистом. Если на строке, в которой произошла ошибка, номера не задано, функция возвращает ноль Параметры Функция не имеет параметров Пример ' Пример использования функции Erl ' при попытке выполнить ошибочную операцию ' Вставьте код в General Declarations Private Const MODULE_NAME As String = "Form1" ' Код для кнопки Command1 Private Sub Command1_Click() On Error GoTo Error_In_Command1_Click: 1 Dim sErrorDescription As String 2 Const sProcSig = MODULE_NAME & "Command1_Click" ' Неправильный код. Кнопки Command2 не существует 3 Debug.Print Command2.Show 4 Exit Sub ' Обработчик ошибки Error_In_Command1_Click: 5 With Err 6 sErrorDescription = "Ошибка '" & .Number & " " & _ .Description & "' произошла в " & sProcSig & _ IIf(Erl < > 0, " на строке " & CStr(Erl) & ".", "." 
7 End With 8 Select Case MsgBox(sErrorDescription, _ vbAbortRetryIgnore, _ App.Title & " Error"
Case vbAbort 9 Resume Exit_Command1_Click: 10 Case vbRetry 11 Resume 12 Case vbIgnore 13 Resume Next 14 Case Else 15 End 16 End Select Exit_Command1_Click: End Sub |
||
|
Номер ответа: 22 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #22 | Добавлено: 13.11.07 22:55 |
| Вот я только что ето за адд-инс что бы строки нумеровать я хз.Кто знает буду раз за помощ | ||
|
Номер ответа: 23 Автор ответа:  MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #23 | Добавлено: 19.11.07 02:47 |
|
Moi varianti s 256
1. 25 iyun 2. 2 may 2006 512 - 5 dekobra 1024 - 24 okty 2048 - 48 qod perviy russkiy evm na 20 rele(maqnitn?x) 32 -peqviy den sleduyusheqo mesaca. 16-den avansa (polucki) 64 - 6 aprela 1964 - smotrite viki! Srazu uznaete! |
||