Завершение ввода Textbox

@ali_vlad · Регистрация: 21.07.2013

Студворк — интернет-сервис помощи студентам

Ввожу число в Textbox1. Как сделать, чтобы данные обрабатывались только по нажатию на клавишу Enter и курсор убирался из Textbox1?

Visual Basic
1
2
3
4
5
6
7
Private Sub text1_change()
If IsNumeric(Text1.Text) Then
Label1.Caption = Text1.Text
Else
Label1.Caption = ""
End If
End Sub

@Catstail · 28.07.2013, 09:55

Так, как написал ты - неверно. Этот код будет вызываться при вводе каждого символа. Нужно задействовать другое событие (KeyPress или KeyDown).

Добавлено через 3 минуты
Вот код, который при нажатии Enter выводит сообщение и устанавливает фокус у кнопки.

Visual Basic
1
2
3
4
5
6
Private Sub Text1_KeyPress(KeyAscii As Integer)
       If KeyAscii = 13 Then
          MsgBox "OK!"
          Me.Command1.SetFocus
       End If
End Sub

@ali_vlad · 28.07.2013, 12:03 **[ТС]**

Данный код позволяет ввести только один символ, мне же надо вводить несколько символов с проверкой является введенный текст числом. И еще в вопрос в догонку: как округлить число до сотых?

morgann55 · 28.07.2013, 12:33

Сообщение от ali_vlad

Данный код позволяет ввести только один символ, мне же надо вводить несколько символов с проверкой является введенный текст числом. И еще в вопрос в догонку: как округлить число до сотых?

Округлить до двух знаков после запятой:

Visual Basic
1
число = Round(число,2)

По проверке вопрос: кроме цифр и букв ещё чего-то будет вводиться (. , и тд) ??

@ali_vlad · 28.07.2013, 12:38 **[ТС]**

Предполагается, что вводится будет только 3-х, 4-х значное число, НО! Пытливость ума и тяга к экспериментам конечного юзера безграничны, поэтому нужна проверка, является ли введеный текст числом

morgann55 · 28.07.2013, 12:51

Вверху раздела есть менюшка "ИскатьВЭтомРазделе" - введи туда свои последние слова (или чуть покомбинируй) и найдёшь несколько тем...

@ali_vlad · 28.07.2013, 13:37 **[ТС]**

Сообщение от ali_vlad

Предполагается, что вводится будет только 3-х, 4-х значное число, НО! Пытливость ума и тяга к экспериментам конечного юзера безграничны, поэтому нужна проверка, является ли введеный текст числом

Вопрос остается открытым

@The trick · 28.07.2013, 14:04

Сообщение от ali_vlad

является ли введеный текст числом

IsNumeric

@ali_vlad · 28.07.2013, 14:08 **[ТС]**

Сообщение от ali_vlad

Ввожу число в Textbox1. Как сделать, чтобы данные обрабатывались только по нажатию на клавишу Enter и курсор убирался из Textbox1?

Private Sub text1_change()
If IsNumeric(Text1.Text) Then
Label1.Caption = Text1.Text
Else
Label1.Caption = ""
End If
End Sub

Я про этот вопрос. И еще: как вообще убрать кнопку развернуть/восстановить и как перехватить нажатие на крестик закрытия?

@The trick · 28.07.2013, 14:15

Сообщение от ali_vlad

убрать кнопку развернуть/восстановить

BorderStyle = 1

Сообщение от ali_vlad

как перехватить нажатие на крестик закрытия?

Событие QueryUnload формы

@gaw · 28.07.2013, 16:04

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Unload(Cancel As Integer)
Cancel = IIf(UCase(InputBox("Y-?")) = "Y", 0, 1)
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Round(Val(Text1.Text), 2)
Command1.SetFocus
Else
If KeyAscii = 44 Then KeyAscii = 46
KeyAscii = IIf(InStr(1, "0123456789-." & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
If KeyAscii = 0 Then MsgBox "!"
End If
End Sub

@Catstail · 28.07.2013, 16:40

Сообщение от ali_vlad

Данный код позволяет ввести только один символ,

- ничего подобного! Вводи сколько хочешь - сработает только на завершающий Enter.

@ali_vlad · 28.07.2013, 23:06 **[ТС]**

Код, приведенный gaw, работает. Но вот беда, у меня на форме нет ни одной кнопки. Есть 5 ComboBox и 1 TextBox. Из них 3 combo неактивны, пока не выбрано что-то из первых двух. Но суть не в этом. При запуске формы одно combo уже в фокусе. При выборе чего-то из combobox это что-то остается подсвеченым, пока не перейдешь к следующему активному элементу. Если просто нажать на выбраный текст, подсветка пропадает, но появляется курсор! Курсор в TextBox также торчит, пока не нажмешь на Combo. (Порочный круг) В соответствии с изложеным вопрос: Существует ли способ куда нибудь девать этот фокус после завершения выбора/ввода? (Form.SetFocus не помогает).

@The trick · 28.07.2013, 23:16

Сообщение от ali_vlad

При выборе чего-то из combobox это что-то остается подсвеченым, пока не перейдешь к следующему активному элементу. Если просто нажать на выбраный текст, подсветка пропадает, но появляется курсор!

Ну это логично, т.к. каретка (а не курсор) нужна для отображения позиции ввода. Непонятно что хочется? Можно отключить ввод с клавы поставив свойству Style комбо значение 2 (Dropdown list), можно убирать выделение текста изменив соответственно SelLength

@gaw · 28.07.2013, 23:24

Сообщение от ali_vlad

Но вот беда, у меня на форме нет ни одной кнопки

поставить и спрятать

@ali_vlad · 03.08.2013, 20:11 **[ТС]**

Пытался поставить и спрятать кнопку, но в этом случае (command1.setfocus) возникает ошибка.
Combo ведет себя еще "хуже". Если установить Style 2, то ведет себя "как мне надо", но свойство Text становится только для чтения. Мне же надо, чтобы по умолчанию combo.text было пустое или его можно очистить. Но это возможно только если установить стиль 0. Это тоже не совсем подходит (я писал об этом выше).

@gaw · 04.08.2013, 13:19

Сообщение от ali_vlad

(command1.setfocus) возникает ошибка

это смотря как прятать, как рабочий вариант для этого случая - например command1.Left=-5000

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

Завершение ввода Textbox

Решение

Решение

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	28.07.2013, 12:03 [ТС]
	Данный код позволяет ввести только один символ, мне же надо вводить несколько символов с проверкой является введенный текст числом. И еще в вопрос в догонку: как округлить число до сотых? 0

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	28.07.2013, 12:38 [ТС]
	Предполагается, что вводится будет только 3-х, 4-х значное число, НО! Пытливость ума и тяга к экспериментам конечного юзера безграничны, поэтому нужна проверка, является ли введеный текст числом 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	28.07.2013, 12:51
	Вверху раздела есть менюшка "ИскатьВЭтомРазделе" - введи туда свои последние слова (или чуть покомбинируй) и найдёшь несколько тем... 0

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	28.07.2013, 23:06 [ТС]
	Код, приведенный gaw, работает. Но вот беда, у меня на форме нет ни одной кнопки. Есть 5 ComboBox и 1 TextBox. Из них 3 combo неактивны, пока не выбрано что-то из первых двух. Но суть не в этом. При запуске формы одно combo уже в фокусе. При выборе чего-то из combobox это что-то остается подсвеченым, пока не перейдешь к следующему активному элементу. Если просто нажать на выбраный текст, подсветка пропадает, но появляется курсор! Курсор в TextBox также торчит, пока не нажмешь на Combo. (Порочный круг) В соответствии с изложеным вопрос: Существует ли способ куда нибудь девать этот фокус после завершения выбора/ввода? (Form.SetFocus не помогает). 0

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	03.08.2013, 20:11 [ТС]
	Пытался поставить и спрятать кнопку, но в этом случае (command1.setfocus) возникает ошибка. Combo ведет себя еще "хуже". Если установить Style 2, то ведет себя "как мне надо", но свойство Text становится только для чтения. Мне же надо, чтобы по умолчанию combo.text было пустое или его можно очистить. Но это возможно только если установить стиль 0. Это тоже не совсем подходит (я писал об этом выше). 0