1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| ' Gambas class file
EXPORT
INHERITS TextBox
PRIVATE $value AS FLOAT
PROPERTY Value AS FLOAT
PRIVATE FUNCTION Value_Read() AS FLOAT
RETURN $value
END
PRIVATE SUB Value_Write(Value AS FLOAT)
ME.text = Format(Value, "$#,###.##")
$value = Value
END
|