VB6-помогите начинающему - Программирование

15.10.2002, 18:39

Hello!

Может кто знает, как сделать так, чтобы в текстовое поле
Text, пользователь мог вводить информацию, только в виде
чисел. И вообще возможно ли это.

Спасибо.

Gorik.

*helldomain* · 16.10.2002, 02:44

Mojno. 2 sposoba. 1 - opredelit masku. 2 - postawit event na izmenenie soderjimogo polya i proveryat stroku, chto nahoditsya w pole.

16.10.2002, 18:43

Спасибо. По второму способу все получилось, а определять маску я пока не умею.

Gorik.

*helldomain* · 17.10.2002, 03:12

Smotri chto-to wrode InputMask ili tam pohojij editor s maskoi bil.

10.11.2002, 19:15

привет! Может это сообщение и опоздало безнадежно, но можно попробовать такой вариант. процедурка отслеживает все нажатия на кнопы и разрешает только цифири и пробелы

Private Sub txt_info_KeyPress(KeyAscii As Integer)
If txt_info.Text = "" Then KeyAscii = 0
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 32 Then
KeyAscii = 0
Exit Sub
End If

End Sub

11.11.2002, 22:39

:idea: Great thanks!

Чумовая процедурка. Мне очень пригодилась!

Еще раз спасибо.

Gorik

11.11.2002, 23:36

:rotate:
не за что. пользуйся на здоровье

*helldomain* · 12.11.2002, 05:32

Gorik, k thanksu polojenno eshe i reiting prisowokuplyat.

12.11.2002, 17:44

Присовокуплять рейтинг - это что значит?

Gorik

12.11.2002, 18:30

даже не представляю, что это такое...)))(((

*helldomain* · 13.11.2002, 02:39

Smotri slewa, pod nikom est combobox "progolosowat". Wibiraesh ocenku. Esli otkliucheni skripti - ryadom eshe na knopku najimaesh.

12.11.2002, 05:32	# 8
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	Gorik, k thanksu polojenno eshe i reiting prisowokuplyat. __________________ Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд.

15.10.2002, 18:39	# 1
Gorik Guest Сообщения: n/a	VB6-помогите начинающему Hello! Может кто знает, как сделать так, чтобы в текстовое поле Text, пользователь мог вводить информацию, только в виде чисел. И вообще возможно ли это. Спасибо. Gorik.

16.10.2002, 02:44	# 2
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	Mojno. 2 sposoba. 1 - opredelit masku. 2 - postawit event na izmenenie soderjimogo polya i proveryat stroku, chto nahoditsya w pole.

16.10.2002, 18:43	# 3
Gorik Guest Сообщения: n/a	Спасибо. По второму способу все получилось, а определять маску я пока не умею. Gorik.

17.10.2002, 03:12	# 4
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	Smotri chto-to wrode InputMask ili tam pohojij editor s maskoi bil.

10.11.2002, 19:15	# 5
lavalit Guest Сообщения: n/a	привет! Может это сообщение и опоздало безнадежно, но можно попробовать такой вариант. процедурка отслеживает все нажатия на кнопы и разрешает только цифири и пробелы Private Sub txt_info_KeyPress(KeyAscii As Integer) If txt_info.Text = "" Then KeyAscii = 0 If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 32 Then KeyAscii = 0 Exit Sub End If End Sub

11.11.2002, 22:39	# 6
Gorik Guest Сообщения: n/a	:idea: Great thanks! Чумовая процедурка. Мне очень пригодилась! Еще раз спасибо. Gorik

11.11.2002, 23:36	# 7
lavalit Guest Сообщения: n/a	:rotate: не за что. пользуйся на здоровье

12.11.2002, 17:44	# 9
Gorik Guest Сообщения: n/a	Присовокуплять рейтинг - это что значит? Gorik

12.11.2002, 18:30	# 10
lavalit Guest Сообщения: n/a	даже не представляю, что это такое...)))(((

13.11.2002, 02:39	# 11
helldomain Administrator Регистрация: 13.05.2002 Сообщения: 11 227	Smotri slewa, pod nikom est combobox "progolosowat". Wibiraesh ocenku. Esli otkliucheni skripti - ryadom eshe na knopku najimaesh. __________________ Осколки прошлого, как снег, закрутит ураган времён, В ушедший день для нас навек, обрушив мост, Оставив в наших душах след, тьма уплывёт за горизонт, И в чистом небе вспыхнет свет, свет новых звёзд.