devxlogo

November 11, 2002

EvaluateModule – a module for evaluating expressions

‘ A module for evaluating expressions, with support for’ parenthesis and many math functions’ Example:’ Dim expr As String = “(SQR(9)^3)+COS(0)*3+ABS(-10)”‘ txtResult.Text = Evaluate(expr).ToString ‘ ==> 27+3+10 ==> 40 Imports

DisplayXmlFile – loading a XML file in a TreeView

‘ Display a XML file in a TreeView’ Note: requires Imports System.Xml’ Example: DisplayXmlFile(“employees.xml”, TreeView1)Sub DisplayXmlFile(ByVal filename As String, ByVal tvw As TreeView) Dim xmldoc As New XmlDocument() xmldoc.Load(filename) ‘