 |
|
Модераторы: Akina |
 
|
|
InputBox выдает ошибку 
| Guest |
|
|||
|
Unregistered |
InputBox в нем 2 кнопки ок и отмена если нажать отмена выдает сообщение Run-time error '13' Type mismatch и программа закрывается...
Что и где прописать чтобы такого не было... |
|||
|
||||
Загрузка ...
| Voldemar2004 |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1650 Регистрация: 25.12.2004 Репутация: 7 Всего: 23 |
Ты че там вводишь-то? Небось не объявил ничего, умножаешь слово на цифру?
 Добавлено @ 20:51
есть такая вещь: Option Explicit Называется воткни в General явно объяви типы. В больших прогах неявно объявленные типы даннных это ужаааассс. (Akina меня поймет) -------------------- i_i (';') (V)  |
|||
|
||||
| Gannibal |
|
||||
 Опытный Профиль Группа: Участник Сообщений: 742 Регистрация: 15.4.2003 Где: 010101 Репутация: 18 Всего: 17 |
это ты чтото пересмотрел.. такая тема уже была и не раз.. и не давно в ФАК было добавлено смотреть здесь http://vingrad.ru/VB-VB-002498 Добавлено @ 22:38
пользуйтесь поиском -------------------- Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить! |
||||
|
|||||
| Papirus |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 298 Регистрация: 19.4.2005 Где: Санкт-Петербург Репутация: нет Всего: 1 |
Dim I
I = InputBox() If IsMissing(I) Then ' нажата отмена If Not IsNumeric(I) Then 'не число |
|||
|
||||
| Exception |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 4525 Регистрация: 26.12.2004 Репутация: 7 Всего: 186 |
Я не пойму народ, чего вы тут обсуждаете??? По-моему информации мягко говоря недостаточно  Ошибка может вылезти из-за чего угодно, смотря, что он творит с результом. Исходный код давай, дорогой Гуэст ЗЫ Это не ты нас постоянно доставал с RichTextBox ??? |
|||
|
||||
| efedron |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 135 Регистрация: 16.3.2005 Репутация: 4 Всего: 4 |
Papirus
во-первых в inputbox не хватает параметра prompt (InpurBox("Введите число")) во-вторых функция inputbox возвращает строку, поэтому и переменную объявляй как string втретих функция IsMissing тебе в данном случае никак не поможет и всегда будет возвращать false вот только isnumeric будет работать. Предалагаю проверять, если возвращенная строка=vbNullString, то считать, что нажата кнопка отмена, больше в голову мыслей не приходит... --------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений. |
|||
|
||||
| Gannibal |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 742 Регистрация: 15.4.2003 Где: 010101 Репутация: 18 Всего: 17 |
о чём вы все думаете какую вы здесь проблему решаете когда куна уже давно решена.. я ссылку дал? дал... так вот в чём проблема там всё написано невижу повода розбирать дальше
-------------------- Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить! |
|||
|
||||
| Voldemar2004 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1650 Регистрация: 25.12.2004 Репутация: 7 Всего: 23 |
Я думаю, что он. -------------------- i_i (';') (V) |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0538 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |