Как задать формат TextBox?

@Ser Artur · Регистрация: 19.07.2011

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

Как задать формат (т.е. NumberFormat) TextBox-например 1,000,000
т.е. при вводе в TextBox чмсла 1000000 он показал 1,000,000

01.05.2012, 11:15

Больно смотреть как человек мучается!
Тут компоненты для ввода чисел и т.п. в том формате
который тебе нужен. Если понравится, то пришлю по мылу кряк.

@Ser Artur · 01.05.2012, 12:17 **[ТС]**

Вот вариант

Visual Basic

Private Sub TextBox24_Change()
Stri = TextBox24.Text
Stri = Application.WorksheetFunction.Substitute(Stri, ".", "")
If IsNumeric(Stri) = True Then
Stri = Format(CDbl(Stri), "#,##0")
Stri = Application.WorksheetFunction.Substitute(Stri, " ", ".")
TextBox24.Text = Stri
End If
End Sub

01.05.2012, 12:53

А что будет если в поле ввести нечисловое значение?

@Ser Artur · 01.05.2012, 17:16 **[ТС]**

Neznaju poprobuy

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
		1
	Как задать формат TextBox? 01.05.2012, 10:30. Показов 7805. Ответов 4 Метки нет (Все метки) Как задать формат (т.е. NumberFormat) TextBox-например 1,000,000 т.е. при вводе в TextBox чмсла 1000000 он показал 1,000,000 0

Silver
	01.05.2012, 11:15	2
	Больно смотреть как человек мучается! Тут компоненты для ввода чисел и т.п. в том формате который тебе нужен. Если понравится, то пришлю по мылу кряк.

Silver
	01.05.2012, 12:53	4
	А что будет если в поле ввести нечисловое значение?

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
	01.05.2012, 17:16 [ТС]	5
	Neznaju poprobuy 0