| Вопрос: Непонятный run-time error '13' type mismatch | Добавлено: 16.07.03 15:00 |
Автор вопроса:  Alexandru Dumitras
|
|
Вот простая програмка: ---------------------------------------------- Private Sub Command1_Click() --------------------------------------------- Private Sub Command2_Click() -------------------------------------------- При нажатии второй кнопки поивляется этот самый run-time error '13' , и так во всех программах. Я переустановил visual basic 6 на Windows XP, а там тоже самое. Даже пробовал сменить настройки в Языки и Стандарты из Панели управления как другие советовали , но не помогает |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #1 | Добавлено: 16.07.03 15:14 |
| Обыное несоответские типов, скорй всего в Text1.Text у тебя сиволы/буквы, а не числовое занчение от 0 до 255. | ||
|
Номер ответа: 2 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #2 | Добавлено: 16.07.03 15:14 |
| Обыное несоответские типов, скорй всего в Text1.Text у тебя сиволы/буквы, а не числовое занчение от 0 до 255. | ||
|
Номер ответа: 3 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #3 | Добавлено: 16.07.03 15:25 |
|
Попробуй так: Private Sub Command1_Click() Text2.Text = Asc(Text1.Text) End Sub Private Sub Command2_Click() If IsNumeric(Text1.Text) = True Then Text2.Text = Chr(Text1.Text) Else MsgBox "Ошибка! Проверьте тип данных. В Text2 должно быть число от 0 до 255" End If |
||
|
Номер ответа: 4 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #4 | Добавлено: 16.07.03 15:26 |
|
Извентиляюсь: MsgBox "Ошибка! Проверьте тип данных. В Text1 должно быть число от 0 до 255" |
||
|
Номер ответа: 5 Автор ответа:  Hydralisk Вопросов: 5 Ответов: 13 |
Профиль | | #5 | Добавлено: 17.07.03 18:51 |
|
Private Sub Command2_Click() Text2.Text = Chr(Val(Text1.Text)) End Sub |
||
Страница: 1 |