Есть ли в VB controls, чтобы можно было работатьс числами –

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
bes
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 02.12.2007 (Вс) 16:37
Откуда: Русь-матушка

Есть ли в VB controls, чтобы можно было работатьс числами –

Сообщение bes » 05.12.2007 (Ср) 22:11

Есть ли в VB controls, чтобы можно было работатьс числами – single (Например, -12500,85) без
лишней мозго[Хакер]::Вырезано..

gjghjc
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 661
Зарегистрирован: 13.10.2002 (Вс) 8:28
Откуда: БАЛАКЛАВА!!

Сообщение gjghjc » 05.12.2007 (Ср) 22:28

А что Вы понимаете под этим всеобъемлющим понятием "мозго[Хакер]::Вырезано."?
Утро добрым не бывает!

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 05.12.2007 (Ср) 22:29

Зря я наверное учётную запись активировал.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

Lumen
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 841
Зарегистрирован: 03.12.2005 (Сб) 16:09
Откуда: Брянск

Сообщение Lumen » 05.12.2007 (Ср) 22:29

А какие с ними могут быть проблемы? И чем стандартные средства не устраивают? Вообще опищи, что ты хочешь сделать...
Подпись проходит рефакторинг

dr.MIG
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1441
Зарегистрирован: 18.12.2004 (Сб) 9:53
Откуда: г.Ярославль

Сообщение dr.MIG » 05.12.2007 (Ср) 22:31

Что значит работать? Имеется в виду текстовое поле, в которое можно вводить только такой тип данных? Если надо именно это, то в стандартных элементах управления такого нет. Можно искать сторонний компонент в сети -- должен быть где-нибудь... Или писать свой.
Salus populi suprema lex

bes
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 02.12.2007 (Вс) 16:37
Откуда: Русь-матушка

Сообщение bes » 05.12.2007 (Ср) 22:35

А работаю я с TextBox… Сперва (для видимости)
Public Function StrInSng(StrLine As String) As String
Dim Pos As Integer

Pos = Len(StrLine) - InStr(StrLine, ",")
If StrLine = "" Then
StrInSng = "0,00"
ElseIf InStr(StrLine, ",") = 0 Then
StrInSng = StrLine + ",00"
ElseIf Pos < 2 Then
StrInSng = StrLine + String(Pos, "0")
End If

End Function
Затем, например, - для вычисления…

If TglButton2.Visible = False Then
Label8.Caption = "Всего"
TextBox1 = CSng(TextBox1) + CSng(TextBox3)
End If
А потом, что опять конвертить в текст?

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 05.12.2007 (Ср) 22:38

Функцию StrInSng фтопку. Мало того, она ещё и неправильная (InStr)
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

bes
Начинающий
Начинающий
 
Сообщения: 13
Зарегистрирован: 02.12.2007 (Вс) 16:37
Откуда: Русь-матушка

Сообщение bes » 05.12.2007 (Ср) 22:40

Грех, господа, смеяться над начинающими!!! Никогда так не выучить «мастеров»…

gjghjc
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 661
Зарегистрирован: 13.10.2002 (Вс) 8:28
Откуда: БАЛАКЛАВА!!

Сообщение gjghjc » 05.12.2007 (Ср) 23:09

Ну для того чтобы занести данные полученные после сложения в текстовое поле то
Код: Выделить всё
TextBox1.TEXT = CSng(TextBox1) + CSng(TextBox3)


Чтобы пользователи не вводили левоту в поля то советую использовать контрол Microsoft Masked Edit Control. Разделитель разрядов в котором установи исходя из региональных настроек компьютера
Утро добрым не бывает!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 2

    TopList  
cron