Member 13581807 Ответов: 1

Как я могу сделать это выбрать программы работать?

Private Sub Form_Click()
Тусклый Статус Как Строка, TaxRate Как Одиночный
Статус = UCase(Val(Texta))
Выберите Статус Обращения
Случай "один"
Метка = 0,2
Дело "женат"
Метка = 0,14
Дело "ОТСТАВНОЕ"
Метка = 0,12
Дело Другое
Label = "пожалуйста, попробуйте еще раз."
Конец Выбрать
Конец Подводной Лодки

Всякий раз, когда я добавляю что-то в текстовое поле, оно выдает "пожалуйста, попробуйте еще раз". Даже если это "холост", "женат" или "на пенсии".

Что я уже пробовал:

Я новичок в этом деле, поэтому просто возился с кодом всеми возможными способами, но безрезультатно.

Richard Deeming

Если вы новичок в этом деле и вас не заставляют поддерживать устаревшее приложение, сделайте себе одолжение и забудьте VB6. Он мертв уже более 15 лет!

Вместо этого получите бесплатную копию Visual Studio Community edition[^], и либо начать с VB.NET или сразу перейти к C#.

Таким образом, вам не нужно будет отучаться от всех вредных привычек, которые VB6 навязывает вам, когда вы начинаете работать на текущем языке. :)

1 Ответов

Рейтинг:
1

OriginalGriff

Используйте отладчик.
Поставьте точку останова на линии

Status = UCase(Val(Texta))
и запустите свою программу.
Когда вы достигнете этой линии, она остановится и даст вам контроль. Смотреть на Texta затем посмотрите на свой код и на свои данные и определите , что должно произойти вручную. Затем по одному шагу в каждой строке проверяйте, что то, что вы ожидали, произойдет именно так, как и произошло. Когда это не так, тогда у вас есть проблема, и вы можете вернуться назад (или запустить ее снова и посмотреть более внимательно), чтобы выяснить, почему. Это позволит вам точно посмотреть на то, что находится внутри Status и это должно помочь вам понять, почему он не соответствует вашим струнам.