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

[bes]

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

[gjghjc]

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

[Хакер]

Зря я наверное учётную запись активировал.

[Lumen]

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

[dr.MIG]

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

[bes]

А работаю я с 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
А потом, что опять конвертить в текст?

[Хакер]

Функцию StrInSng фтопку. Мало того, она ещё и неправильная (InStr)

[bes]

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

[gjghjc]

Ну для того чтобы занести данные полученные после сложения в текстовое поле то

Код: Выделить всё

TextBox1.TEXT = CSng(TextBox1) + CSng(TextBox3)

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