NEW
Object = NEW Class [ ( Constructor parameters... ) ] [ AS Name ]
Instantiates the class
Class.
If a name is specified, the new object will be able to raise events by calling a public procedure or function in its "parent".
-
This parent, or default event observer, is the object or class where the new object is instantiated.
-
The name of this event handler is the name of the object followed by an underscore and the name of the event.
If you forget to specify the Name part, your object will never raise events!
NEW is not an operator. You can only use it within an assignment.
But you can use the
Object.New function instead.
Common event handlers
Two different objects can have the same event name. Thus, you can manage events of multiple objects in the same event procedure, provided these objects raise the same events.
This feature is used by the IDE for implementing the Group property.
Instantiating Forms (GUI components)
The Form class is by default its own event observer, using the event name
Form. This is what allows you to write
Public Sub Form_Open()
Print "I'm here"
End
inside of a form's class file to intercept events of the same form.
If you create an instance of a form using the
New MyForm As Name syntax, this will no longer happen. The form will be attached to the
current object, and especially (since each object can have at most one default event observer) it will
not be attached to itself.
So the Form_Open() event handler inside your form's code will not be called anymore. If you want multiple classes to receive events of a single object,
use the
Observer class.
Examples
hButton = NEW Button(ME) AS "MyButton"
...
PUBLIC PROCEDURE MyButton_Click()
PRINT "My button was clicked !"
END
' This example creates 9*9*9 small textboxes which can be accessed through the
' public Object[] array objIsImpossible
PUBLIC bIsInitialised AS Boolean
PUBLIC objIsImpossible AS Object[]
PUBLIC SUB Form_Open()
DIM iR AS Integer
DIM iR2 AS Integer
DIM iC AS Integer
DIM iC2 AS Integer
DIM iDigit AS Integer
DIM iX AS Integer
DIM objTextBox AS TextBox
IF NOT bIsInitialised THEN
objIsImpossible = NEW Object[] ' Need to create the array
iX = 0
FOR iR = 0 TO 8
FOR iC = 0 TO 8
FOR iDigit = 0 TO 8
iR2 = iDigit MOD 3
iC2 = iDigit / 3
objTextBox = NEW TextBox(ME) ' create the next of the 9*9*9 TextBoxes
objTextBox.X = (iR * 3 + iR2) * 12 + 2
objTextBox.y = (iC * 3 + iC2) * 12 + 2
objTextBox.Width = 10
objTextBox.Height = 10
objIsImpossible.Add(objTextBox, iX)
iX = iX + 1
NEXT ' iDigit
NEXT ' iC
NEXT ' iR
ENDIF
END
Dynamic instanciation
Object = NEW ( ClassName [ , Constructor parameters... ] ) [ AS Name ]
That second syntax allows you to specify the class name dynamically as a string.
Examples
' This creates an 3x3 array of float.
DIM MyArray AS NEW Float[3, 3]
' And this too
DIM MyArray AS Object
DIM MyClassName AS String
MyClassName = "Float[]"
MyArray = NEW (MyClassName, 3, 3)
See also