|
78
|
Is it possible to change the line's height
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "(1+6.25)/4*6/3"
.InsertText "(2+6.25)/4*6/3\r\n",1
.InsertText "(3+6.25)/4*6/3\r\n",1
.InsertText "(4+6.25)/4*6/3\r\n",1
.InsertText "Total"
.LineHeight = "value + 8 * dpi"
.DrawGridLines = True
End With
End Function
</SCRIPT>
</BODY>
|
|
77
|
How do I put a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.Picture = CalcEdit1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 0
.MultiLine = True
.Text = "(1+6.25)/4*6/3"
.InsertText "\r\n",1
.InsertText "\r\n",1
.InsertText "\r\n",1
alert( "Expression: " )
alert( .Text )
alert( "Result: " )
alert( .Result() )
End With
End Function
</SCRIPT>
</BODY>
|
|
76
|
How do I get the numbers only, with no Total fields (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatResult = "<fgcolor=808080><r> = %%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
.InsertText "Total"
alert( .ExecuteTemplate("FormatABC(""lower(A) replace `total` with ``"", Text)") )
End With
End Function
</SCRIPT>
</BODY>
|
|
75
|
How do I get the numbers only, with no Total fields (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatResult = "<fgcolor=808080><r> = %%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
.InsertText "Total"
alert( .FormatABC("lower(A) replace `total` with ``",.Text) )
End With
End Function
</SCRIPT>
</BODY>
|
|
74
|
How do I customize the format to display the result (right,local,2 decimals,less,font)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.LineHeight = "value + 8 * dpi"
.FormatLocal = "( value < 10000 ? `<fgcolor=000000><b><font ;16>` : ``) + (value format `2`)"
.FormatResult = "<fgcolor=808080><r> = %l%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
73
|
How do I customize the format to display the result (right,local,2 decimals,greater,color)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatLocal = "( value > 10000 ? `<fgcolor=FF0000><b>` : ``) + (value format `2`)"
.FormatResult = "<fgcolor=808080><r> = %l%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
72
|
How do I customize the format to display the result (right,local,all decimals)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatLocal = "value"
.FormatResult = "<fgcolor=808080><r> = %l%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
71
|
How do I customize the format to display the result (right,local,2 decimals)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatLocal = "value format `2`"
.FormatResult = "<fgcolor=808080><r> = %l%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
70
|
How do I customize the format to display the result (right,local,curency)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatLocal = "currency(value)"
.FormatResult = "<fgcolor=808080><r> = %l%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
69
|
How do I customize the format to display the result (right,local)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatResult = "<fgcolor=808080><r> = %l%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
68
|
How do I customize the format to display the result (right)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.FormatResult = "<fgcolor=808080><r> = %%"
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
67
|
How do I customize the format to display the result (default)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.InsertText "100 * 200"
.InsertText "300 * 400 * 1.5"
.InsertText "200 + ( 400 * 1.5 + 300 / 1.19)"
End With
End Function
</SCRIPT>
</BODY>
|
|
66
|
How can I force a line to be there all the time, so user can not delete it, for instance Total
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.InsertLockedText "Total"
.InsertText "100"
.InsertText "200"
.InsertText "300"
End With
End Function
</SCRIPT>
</BODY>
|
|
65
|
Is it possible to get the value of specified variable
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "TVA = Total * 0.19"
.InsertText "Total"
alert( "The TVA is: " )
alert( .Variable("TVA") )
End With
End Function
</SCRIPT>
</BODY>
|
|
64
|
How do I get the total
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
alert( "The total is: " )
alert( .Variable("Total") )
End With
End Function
</SCRIPT>
</BODY>
|
|
63
|
How do I get the easter date
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.CalcType = -1
.ClearWildFormats
.FormatResult = "<r><fgcolor=008000><b>(%%)"
.AllowComments = "<fgcolor=008000>//"
.AddWildFormat "*=*<fgcolor=008000>//*"
.AddWildFormat "<fgcolor=808080>V*=*"
.AddWildFormat "<b>EasterSundayDay*=*"
.BackColorLockedLine = RGB(0,0,0)
.ForeColorLockedLine = RGB(0,0,0)
.Text = "Year = 2018 // change here the year, to get the Easter Sunday for giving year"
.InsertLockedText "V1 = (((255 - 11 * (Year mod 19)) - 21) mod 30)"
.InsertLockedText "V2 = ((V1 + 21) + (V1 > 48 ? -1 : 0) + 6 - ((Year + int(Year / 4)) + V1 + (V1 > 48 ? -1 : 0) + 1) mod 7)"
.InsertLockedText "EasterSundayDay = date(dateS('3/1/' + Year) + V2)"
alert( "Easter Sunday Day is " )
alert( .Variable("EasterSundayDay") )
alert( " for year " )
alert( .Variable("Year") )
End With
End Function
</SCRIPT>
</BODY>
|
|
62
|
I've got a red line while I type into the control. How can I disable that (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.AllowFormatInvalidOnTyping = False
.MultiLine = True
.Text = "100 + 200(invalid)"
End With
End Function
</SCRIPT>
</BODY>
|
|
61
|
I've got a red line while I type into the control. How can I disable that (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatInvalid = ""
.Text = "100 + 200(invalid)"
End With
End Function
</SCRIPT>
</BODY>
|
|
60
|
How do I specify the color to show the locked lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatResult = "<r>[=%l%]"
.FormatLocal = "currency(value)"
.FormatTotalResult = "<r><b> <fgcolor=FFFFFF>= %l%</b>"
.BackColorLockedLine = RGB(0,0,1)
.ForeColorLockedLine = RGB(255,255,255)
.InsertText "100"
.InsertText "200"
.InsertLockedText "VAT = Total * 0.20"
.InsertLockedText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
59
|
Can I remove the colors that indicates locked lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatResult = "<r><fgcolor=808080>[=%l%]"
.FormatLocal = "currency(value)"
.FormatTotalResult = "<r><b> = %l%</b>"
.BackColorLockedLine = RGB(0,0,0)
.ForeColorLockedLine = RGB(0,0,0)
.InsertText "100"
.InsertText "200"
.InsertLockedText "VAT = Total * 0.20"
.InsertLockedText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
58
|
Can I add lines to the control, so the user can not remove/delete them ( locked lines )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.CalcType = -1
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatResult = "<r><fgcolor=808080>[=%l%]"
.FormatLocal = "currency(value)"
.FormatTotalResult = "<r><b> = %l%</b>"
.Text = "1000"
.InsertText "2000"
.InsertLockedText "Commission = Total * 0.05 + (Total ? 2.95 : 0)"
.InsertLockedText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
57
|
Is it possible to highlight a specified line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatResult = "<r><fgcolor=808080>[=%l%]"
.FormatLocal = "currency(value)"
.FormatTotalResult = "<r><b> = %l%</b>"
.AddWildFormat "<fgcolor=00FF00>*<b>Commission</b>*=*"
.Text = "100.50 + 123"
.InsertText "200 + 20/5"
.InsertText "300 + 3 * 15"
.InsertText "400 + 200 * (10 + 12/45)"
.InsertText "50 * 45"
.InsertText "VAT = Total * 0.19"
.InsertText "NET = Total - VAT"
.InsertText "Monthly = Total / 12"
.InsertText "Commission = Total * 0.05 + 2.95"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
56
|
Is it possible to display the result as currency
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatLocal = "currency(value)"
.FormatTotalResult = "<r><b> = %l%</b>"
.BackColorTotal = RGB(240,240,240)
.Text = "100.50"
.InsertText "200"
.InsertText "300"
.InsertText "400"
.InsertText "VAT = Total * 0.19"
.InsertText "NET = Total - VAT"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
55
|
Is it possible to display the result with no decimals
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatLocal = "value format `0`"
.FormatTotalResult = "<r><b> = %l%</b>"
.BackColorTotal = RGB(240,240,240)
.Text = "100.50"
.InsertText "200"
.InsertText "300"
.InsertText "400"
.InsertText "VAT = Total * 0.19"
.InsertText "NET = Total - VAT"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
54
|
Is it possible to display the result exactly how it is defined in the control panel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatLocal = "value format ``"
.FormatTotalResult = "<r><b> = %l%</b>"
.BackColorTotal = RGB(240,240,240)
.Text = "100.50"
.InsertText "200"
.InsertText "300"
.InsertText "400"
.InsertText "VAT = Total * 0.19"
.InsertText "NET = Total - VAT"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
53
|
How can I count the lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowCount = "count"
.AllowSubCount = "subcount"
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.InsertText "100"
.InsertText "200"
.InsertText "SubCount"
.InsertText "300"
.InsertText "400"
.InsertText "500"
.InsertText "SubCount"
.InsertText "Count"
End With
End Function
</SCRIPT>
</BODY>
|
|
52
|
How can I compute the average
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatTotalResult = "<r><b> = %l%</b>"
.BackColorTotal = RGB(240,240,240)
.Text = "Average = Total / Count"
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "400"
.InsertText "VAT = Total * 0.19"
.InsertText "NET = Total - VAT"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
51
|
Variables or Computed Fields
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatTotalResult = "<r><b> = %l%</b>"
.BackColorTotal = RGB(240,240,240)
.Text = "100"
.InsertText "200"
.InsertText "300"
.InsertText "400"
.InsertText "VAT = Total * 0.19"
.InsertText "NET = Total - VAT"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
50
|
I have noticed that definition of the variable is shown in italics. Can I change that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.ClearWildFormats
.AddWildFormat "<b>*=*"
.Text = "A = 400"
.InsertText ""
.InsertText "B = A + 0.22"
.InsertText "A + B"
.InsertText "B = B * .19"
.InsertText "A + B"
End With
End Function
</SCRIPT>
</BODY>
|
|
49
|
I have noticed that definition of the variable is shown in italics. Can I remove that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.ClearWildFormats
.Text = "A = 300"
.InsertText ""
.InsertText "B = A + 0.22"
.InsertText "A + B"
.InsertText "B = B * .19"
.InsertText "A + B"
End With
End Function
</SCRIPT>
</BODY>
|
|
48
|
Can I define variables (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "is"
.ClearWildFormats
.AddWildFormat "<b>*is*"
.Text = "A is 200"
.InsertText ""
.InsertText "B is A + 0.22"
.InsertText "A + B"
.InsertText "B is B * .19"
.InsertText "A + B"
End With
End Function
</SCRIPT>
</BODY>
|
|
47
|
Can I define variables (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowVariables = "="
.Text = "A = 100.22"
.InsertText ""
.InsertText "B = A + 0.22"
.InsertText "A + B"
.InsertText "B = B * .19"
.InsertText "A + B"
End With
End Function
</SCRIPT>
</BODY>
|
|
46
|
Comments and Prefixes
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowPrefixes = "<fgcolor=808080>:</fgcolor>"
.AllowComments = "<fgcolor=008080>'</fgcolor>"
.Text = "Field A: 100 ' this is the field A"
.InsertText "Field B: 200 ' this is the field B"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
45
|
Can I display something at the start of each line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowPrefixes = "<b>:</b>"
.Text = "Field A: 100"
.InsertText "Field B: 200"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
44
|
I can not use TAB key. Is it possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.UseTabKey = True
End With
End Function
</SCRIPT>
</BODY>
|
|
43
|
Does your control support comments
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.CalcType = -1
.AllowComments = "<fgcolor=008080>//</fgcolor>"
.Text = "104 mod 51 // modulo function"
.InsertText "int(104/51) // int function"
.InsertText "51 * int(104/51) + (104 mod 51) // check"
End With
End Function
</SCRIPT>
</BODY>
|
|
42
|
Can I use the modulo function ( rest )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.CalcType = -1
.Text = "104 mod 51"
.InsertText "int(104/51)"
.InsertText "51 * int(104/51) + (104 mod 51)"
End With
End Function
</SCRIPT>
</BODY>
|
|
41
|
Can I use acos function
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "acos(cos(1))"
End With
End Function
</SCRIPT>
</BODY>
|
|
40
|
Can I use asin function
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "asin(sin(1))"
End With
End Function
</SCRIPT>
</BODY>
|
|
39
|
Can I use cos function
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "cos(1)"
End With
End Function
</SCRIPT>
</BODY>
|
|
38
|
Can I use sin function
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "sin(1)"
End With
End Function
</SCRIPT>
</BODY>
|
|
37
|
Can I use abs function (absolute part of the number)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "abs(-100.99)"
End With
End Function
</SCRIPT>
</BODY>
|
|
36
|
Can I use round function
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "round(100.99)"
End With
End Function
</SCRIPT>
</BODY>
|
|
35
|
Can I use int function (integer part of a number)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "int(100.99)"
End With
End Function
</SCRIPT>
</BODY>
|
|
34
|
Can I use sqrt function (square root of a number)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.CalcType = -1
.Text = "sqrt(100)"
End With
End Function
</SCRIPT>
</BODY>
|
|
33
|
How can I show invalid lines with a larger font
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.LineHeight = "value + 8 *dpi"
.DrawGridLines = True
.FormatInvalid = "<u><font ;12> </font></u>"
.InsertText "100"
.InsertText "k200"
.InsertText "300"
End With
End Function
</SCRIPT>
</BODY>
|
|
32
|
I've noticed that while I type the text is shown in red. How can I change that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatInvalid = ""
.Text = "100 * 200"
End With
End Function
</SCRIPT>
</BODY>
|
|
31
|
Can I enlarge the height of each line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.LineHeight = "value + 8 * dpi"
.DrawGridLines = True
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
30
|
How can I show grid lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.DrawGridLines = True
.GridLineColor = RGB(0,0,0)
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
29
|
How can I display the result of the total with a larger font
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.FormatTotalResult = "<r><b><font ;14>%l%</font></b>"
.AllowTotal = "<b><font ;14>Total</font></b>"
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
28
|
Is it possible to show the Total / SubTotal with a different background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowTotal = "<bgcolor=A0A0A0><b>Total</b></bgcolor>"
.AllowSubTotal = "<bgcolor=E0E0E0><b>SubTotal</b></bgcolor>"
.InsertText "100"
.InsertText "200"
.InsertText "SubTotal"
.InsertText "300"
.InsertText "400 * 1.5"
.InsertText "SubTotal"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
27
|
Is it possible to show the Total / SubTotal with a different background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.BackColorTotal = RGB(196,196,196)
.BackColorSubTotal = RGB(240,240,240)
.InsertText "100"
.InsertText "200"
.InsertText "SubTotal"
.InsertText "300"
.InsertText "400 * 1.5"
.InsertText "SubTotal"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
26
|
How can I change the color to show the numbers
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatNumbers = "<fgcolor=FF0000> </fgcolor>"
.Text = "1 + 2 + 3 + 4"
End With
End Function
</SCRIPT>
</BODY>
|
|
25
|
The numbers are shown in blue. How can I remove that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatNumbers = ""
.Text = "1 + 2 + 3 + 4"
End With
End Function
</SCRIPT>
</BODY>
|
|
24
|
How can I export the entire text, including the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "100 * 1.5"
.InsertText "120 * 1.5"
.InsertText "130 * 1.5"
.InsertText "Total"
alert( .Export )
End With
End Function
</SCRIPT>
</BODY>
|
|
23
|
Is it possible to display the result, using the current regional locale
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.DrawGridLines = True
.FormatResult = " <fgcolor=808080>[=%l%]</fgcolor>"
.FormatTotalResult = " <b>[=%l%]</b>"
.InsertText "100 * 100"
.InsertText "200 * 200"
.InsertText "300 * 300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
22
|
How can I change the format to display the total result (right)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.DrawGridLines = True
.FormatTotalResult = "<b><fgcolor=FF0000> = %l%</fgcolor></b>"
.AllowTotal = "<b><fgcolor=00FF00>Total</fgcolor></b>"
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
21
|
How can I change the format to display the total result (right)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.DrawGridLines = True
.LineHeight = "value + 4 * dpi"
.FormatTotalResult = "<r><b><font ;12>%l%</font></b>"
.AllowTotal = "<b><font ;12>Total</font></b>"
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
20
|
Is it possible to rename the SubTotal
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowSubTotal = "<fgcolor=FF0000>Current Amount"
.InsertText "100"
.InsertText "200"
.InsertText "Current Amount"
.InsertText "300"
.InsertText "400"
.InsertText "Current Amount"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
19
|
How can I disable the sub-totals
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowSubTotal = ""
.InsertText "100"
.InsertText "200"
.InsertText "SubTotal"
.InsertText "300"
.InsertText "400"
.InsertText "SubTotal"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
18
|
How can I add sub-totals
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.AllowComments = "<fgcolor=008000>'"
.AddWildFormat "<i>*=*<fgcolor=008000>'*"
.AllowVariables = "="
.DrawGridLines = True
.LineHeight = "value + 8 * dpi"
.GridLineColor = RGB(196,196,196)
.FormatLocal = "currency(value)"
.FormatTotalResult = "<r><b> = %l%</b>"
.FormatSubTotalResult = "<r><fgcolor=808080>[<b> = %l%</b>]"
.FormatResult = "<r><fgcolor=808080>(%l%)"
.BackColorTotal = RGB(240,240,240)
.BackColorLockedLine = RGB(0,0,0)
.ForeColorLockedLine = RGB(0,0,0)
.CalcType = -1
.Text = "100 + 200"
.InsertText "200 * 1.5"
.InsertText "SubA = SubTotal ' first subtotal"
.InsertText "300 + (200+300)/2"
.InsertText "400 + 500"
.InsertText "SubB = SubTotal ' second subtotal"
.InsertLockedText "VAT = Total * 0.19"
.InsertLockedText "Commision = Total * 0.05"
.InsertLockedText "NET = (Total - VAT) - Commision"
.InsertLockedText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
17
|
Is it possible to disable the Total
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.AllowTotal = ""
.MultiLine = True
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
16
|
Is it possible to rename the Total to Sum
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.AllowTotal = "<fgcolor=FF0000><b>Sum</b></fgcolor>"
.MultiLine = True
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Sum"
End With
End Function
</SCRIPT>
</BODY>
|
|
15
|
Is it possible to add all lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.InsertText "100"
.InsertText "200"
.InsertText "300"
.InsertText "Total"
End With
End Function
</SCRIPT>
</BODY>
|
|
14
|
How do I insert / add a new line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "100 * 1.5"
.InsertText "120 * 2.5\r\n",1
.InsertText "200 * 1.5"
End With
End Function
</SCRIPT>
</BODY>
|
|
13
|
How do I find out if a specified line is valid
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CalcEdit1_SelChange()
With CalcEdit1
alert( "CurrentLine: " )
alert( .CaretLine )
alert( "CurrentLine: " )
alert( .TextLine(.CaretLine) )
alert( "IsValid: " )
alert( .IsValid(.CaretLine) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "100 * 1.5"
.InsertText "invalid"
.InsertText "120 * 1.5"
.InsertText "130 * 1.5"
End With
End Function
</SCRIPT>
</BODY>
|
|
12
|
How do I get the current line
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CalcEdit1_SelChange()
With CalcEdit1
alert( "CurrentLine: " )
alert( .CaretLine )
alert( "CurrentLine: " )
alert( .TextLine(.CaretLine) )
alert( "CurrentResult: " )
alert( .Result(.CaretLine) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "100 * 1.5"
.InsertText "120 * 1.5"
.InsertText "130 * 1.5"
End With
End Function
</SCRIPT>
</BODY>
|
|
11
|
How do I get the line one by one, including the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "100 * 1.5"
.InsertText "120 * 1.5"
.InsertText "130 * 1.5"
alert( "Lines:" )
alert( .Count )
alert( "TextLine(1):" )
alert( .TextLine(1) )
alert( "Result(1)" )
alert( .Result(1) )
alert( "TextLine(2):" )
alert( .TextLine(2) )
alert( "Result(2)" )
alert( .Result(2) )
alert( "TextLine(3):" )
alert( .TextLine(3) )
alert( "Result(3)" )
alert( .Result(3) )
End With
End Function
</SCRIPT>
</BODY>
|
|
10
|
Does the control supports multiple lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.MultiLine = True
.Text = "100 * 1.5"
.InsertText "120 * 1.5"
.InsertText "130 * 1.5"
End With
End Function
</SCRIPT>
</BODY>
|
|
9
|
Is it possible to display the result without brakets
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatResult = "<fgcolor=808080> = %%</fgcolor>"
.Text = "12 + (12 / 100)/2"
End With
End Function
</SCRIPT>
</BODY>
|
|
8
|
How can I display the result on the right side of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatResult = "<r> <fgcolor=808080>[=%%]</fgcolor>"
.Text = "12 + (12 / 100)/2"
End With
End Function
</SCRIPT>
</BODY>
|
|
7
|
Can you please advise how to change fontname and size (sample 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.Template = "Font.Size = 20; Font.Name = `Tahoma`; Refresh"
.Text = "1/2"
End With
End Function
</SCRIPT>
</BODY>
|
|
6
|
Can you please advise how to change fontname and size (sample 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.Font.Size = 20
.Text = "1/2"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
5
|
How can I disable evaluating the selection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.EvaluateSel = False
.HideSelection = False
.Text = "(1+6.25)/4*6/3"
.SelStart = 1
.SelLength = 6
.SelBackColor = RGB(0,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
4
|
Can I define a different decimal separator
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.AddDecimalSep = ","
.Text = "(1+6,25)/4*6/3"
End With
End Function
</SCRIPT>
</BODY>
|
|
3
|
How do I change the color of the entire control, if the expression is not valid
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CalcEdit1_Change()
With CalcEdit1
alert( "Valid:" )
alert( .IsValid() )
.ForeColor = RGB(255,0,0)
.FormatNumbers = "<fgcolor FF0000>"
.FormatResult = ""
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.FormatInvalid = ""
.Text = "invalid(1+6.25)/4*6/3"
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
Is there any function to know if the expression is valid
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CalcEdit1_Change()
With CalcEdit1
alert( "Valid:" )
alert( .IsValid() )
alert( "Expression: " )
alert( .Text )
alert( "Result: " )
alert( .Result() )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.Text = "(1+6.25)/4*6/3"
End With
End Function
</SCRIPT>
</BODY>
|
|
1
|
How do I programatically save / load the expression and the result
<BODY onload="Init()">
<OBJECT CLASSID="clsid:0D4EE794-3E13-4226-81F9-499EE6EDCCF7" id="CalcEdit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With CalcEdit1
.Text = "(1+6.25)/4*6/3"
alert( "Expression: " )
alert( .Text )
alert( "Result: " )
alert( .Result() )
End With
End Function
</SCRIPT>
</BODY>
|