Gambas Documentation
Application Repository
Code Snippets
Compilation & Installation
Components
gb
*[]
.Array.Bounds
.Stat.Perm
.Stream.Lines
.Stream.Term
.Symbol
_BoxedString
Application
Args
Array
Boolean[]
Byte[]
Class
Classes
Collection
Component
Components
Date[]
Enum
Env
Error
File
Float[]
gb
Integer[]
Jit
Long[]
Object
Address
Attach
Call
CanRaise
Class
Count
Data
Detach
GetProperty
Is
IsLocked
IsValid
Lock
New
Parent
Raise
SetProperty
SizeOf
Type
Unlock
Object[]
Observer
Param
Pointer[]
Process
Short[]
Single[]
Stat
Stream
String
String[]
System
Task
Timer
User
Variant[]
gb.args
gb.cairo
gb.chart
gb.clipper
gb.complex
gb.compress
gb.crypt
gb.data
gb.db
gb.db.form
gb.db.mysql
gb.db.odbc
gb.db.postgresql
gb.db.sqlite2
gb.db.sqlite3
gb.dbus
gb.dbus.trayicon
gb.debug
gb.desktop
gb.desktop.gnome.keyring
gb.desktop.x11
gb.eval
gb.eval.highlight
gb.form
gb.form.dialog
gb.form.editor
gb.form.htmlview
gb.form.mdi
gb.form.print
gb.form.stock
gb.form.terminal
gb.gmp
gb.gsl
gb.gtk
gb.gtk.opengl
gb.gtk3
gb.gtk3.opengl
gb.gtk3.webview
gb.gui
gb.gui.opengl
gb.gui.qt
gb.gui.qt.ext
gb.gui.qt.opengl
gb.gui.qt.webkit
gb.gui.trayicon
gb.gui.webview
gb.hash
gb.highlight
gb.image
gb.image.effect
gb.image.imlib
gb.image.io
gb.inotify
gb.jit
gb.libxml
gb.logging
gb.map
gb.markdown
gb.media
gb.media.form
gb.memcached
gb.mime
gb.mongodb
gb.mysql
gb.ncurses
gb.net
gb.net.curl
gb.net.pop3
gb.net.smtp
gb.openal
gb.opengl
gb.opengl.glsl
gb.opengl.glu
gb.opengl.sge
gb.openssl
gb.option
gb.pcre
gb.pdf
gb.poppler
gb.qt4
gb.qt4.ext
gb.qt4.opengl
gb.qt4.webkit
gb.qt4.webview
gb.qt5
gb.qt5.ext
gb.qt5.opengl
gb.qt5.webkit
gb.qt5.webview
gb.qt6
gb.qt6.ext
gb.qt6.opengl
gb.qt6.webview
gb.report
gb.report2
gb.scanner
gb.sdl
gb.sdl.sound
gb.sdl2
gb.sdl2.audio
gb.settings
gb.signal
gb.term
gb.test
gb.util
gb.util.web
gb.v4l
gb.vb
gb.web
gb.web.feed
gb.web.form
gb.web.gui
gb.xml
gb.xml.html
gb.xml.rpc
gb.xml.xslt
Controls pictures
Deprecated components
Developer Documentation
Development Environment Documentation
Documents
Error Messages
Gambas Playground
How To's
Language Index
Language Overviews
Last Changes
Lexicon
README
Search the wiki
To Do
Topics
Tutorials
Wiki License
Wiki Manual

Object.Attach (gb)

Static Sub Attach ( Object As Object, Parent As Object, Name As String )

Attach an object to its parent.

Name is the name used for searching event handlers in the Parent object.

Every event raised by the object will be managed by an event-handler located in its parent.

If the parent is a class, then the the event-handlers will be static methods of the class.

The following code:

hObject = NEW MyClass
Object.Attach(hObject, ME, "EventName")

is equivalent to:

hObject = NEW MyClass AS "EventName"

Examples

PUBLIC Process1 AS Process
...
Process1 = SHELL "find /" FOR READ
Object.Attach(Process1, ME, "Process1")
...

PUBLIC SUB Process1_Read()

   Message.Info("Got output from Process1!")
   ' and then read and do something with the output...

END

The next example will create 8 PictureBoxes and each time one of the picture boxes is clicked (MouseUp) then the on/off state in the Tag property and the Picture are toggled.

Here is demonstrated how an array of control elements can receive a signal, in this example the signal "MouseUp"

Private $picOn As Picture = Picture["icon:/32/connect"]
Private $picOff As Picture = Picture["icon:/32/disconnect"]

Public Sub Form_Show()
  Dim i As Integer
  Dim hSwitch As PictureBox

  ' Align all PictureBoxes neatly in a row
  Me.Arrangement = Arrange.Row
  ' Create 8 PictureBoxes
  For i = 1 To 8
    hSwitch = New PictureBox(Me)
    hSwitch.Resize(32, 32)
    ' The Tag indicates if the switch is on or off
    hSwitch.Tag = False
    hSwitch.Picture = $picOff
    ' Note: Instead of Object.Attach() you should assign the event name at object creation,
    ' i.e. hSwitch = New PictureBox(Me) As "Switch"
    Object.Attach(hSwitch, Me, "Switch")
  Next
End

Public Sub Switch_MouseUp()
  Dim hSwitch As PictureBox = Last ' get the box that raised the event (was clicked on)

  ' Flip switch and assign the appropriate picture
  hSwitch.Tag = Not hSwitch.Tag
  If hSwitch.Tag Then
    hSwitch.Picture = $picOn
  Else
    hSwitch.Picture = $picOff
  Endif
End