Type textbox
Field x%
Field y%
Field image$
Field state% = 0
End Type

user.textbox = New textbox
user\x = 100
user\y = 100

Function bla(blubb.textbox)
	...
End Function

user.textbox = New textbox
user\x = 100
user\y = 100

test.textbox = New textbox
test\x = 200
test\y = 200

Graphics 800, 600
SetBuffer BackBuffer()

Type TextBox
Field name$
Field x,y
Field width, height
Field state = 0 ;0 = inaktiv, 1 = aktiv, 2 = hover
Field maxlen
End Type

Function CreateTextBox(n$, x, y, w, h, m)
a.TextBox = New TextBox
a\name = n
a\x = x
a\y = y
a\width = w
a\height = h 
a\maxlen = m
Rect a\x, a\y, a\width, a\height
End Function

Function CheckTextBox$()
md1 = MouseDown(1)
mx = MouseX()
my = MouseY()

	For a.TextBox = Each TextBox
		If mx >= a\x And mx <= a\x + a\width Then
			If my >= a\y And my <= a\y + a\height Then
				If md1 = True Then
				a\state = 1
				Else
				a\state = 2
				End If
				Return a\name
			End If	
		End If
	Next
End Function



While Not KeyDown(1)
Cls

CreateTextBox("test1", 500, 500, 200, 100, 30)
CreateTextBox("test2", 100, 100, 200, 100, 30)


For a.TextBox = Each TextBox
If a\name = CheckTextBox() Then
Text 400, 420, a\state
End If
Next


Text 400, 400, CheckTextBox()

Flip
Wend

End

Graphics 800, 600
SetBuffer BackBuffer()

Type TextBox
Field name$
Field x,y
Field width, height
Field state ;0 = inaktiv, 1 = aktiv, 2 = hover
Field maxlen
End Type

Function CreateTextBox(n$, x, y, w, h, m)
a.TextBox = New TextBox
a\name = n
a\x = x
a\y = y
a\width = w
a\height = h 
a\maxlen = m
Rect a\x, a\y, a\width, a\height
End Function

Function CheckTextBox$()
md1 = MouseDown(1)
mx = MouseX()
my = MouseY()

	For a.TextBox = Each TextBox
		If mx >= a\x And mx <= a\x + a\width And my >= a\y And my <= a\y + a\height Then
				If md1 = True Then
				a\state = 1
				Else
				a\state = 2
				End If
				Return a\name
		Else
		a\state = 0
		End If
	Next
End Function



While Not KeyDown(1)
Cls

CreateTextBox("druff", 500, 500, 200, 100, 30)
CreateTextBox("suff", 100, 100, 200, 100, 30)


For a.TextBox = Each TextBox
If a\name = CheckTextBox() Then
Text 420, 420, a\state
End If
Next


Text 400, 400, CheckTextBox()

Flip
Wend

End

For a.TextBox = Each TextBox
If a\name = CheckTextBox() Then
Text 420, 420, a\state
End If
Next

For a.TextBox = Each TextBox
If a\name = CheckTextBox() Then
Text 420, 420, a\state
End If
Next

Local Container1.TextBox=CreateTextBox("abc", 0, 0, 100, 25, 1);2 TextBox-Objekte werden erstellt.
Local Container2.TextBox=CreateTextBox("bla", 30, 0, 100, 25, 1)

Local Container3=Container2;Das Objekt selbst wird nicht kopiert! Man greift mit den beiden Containern auf das selbe Objekt zu.

Container1=Null;Das Objekt ist auch immer noch in der Liste. Man kann aber nicht mehr über diesen Container auf dieses Objekt zugreifen.
Container1=Last TextBox;Ab jetzt zeigt jede dieser Variablen auf das selbe Objekt: die zweite TextBox

Graphics 800, 600, 0, 2
SetBuffer BackBuffer()
Local timer = CreateTimer(60)

Global mx, my, md1

Type TextBox
	Field name$
	Field x,y
	Field width, height
	Field state ;0 = inaktiv, 1 = aktiv, 2 = hover
	Field maxlen
End Type

Function CreateTextBox(n$, x, y, w, h, m)
	Local a.TextBox = New TextBox
	a\name = n
	a\x = x
	a\y = y
	a\width = w
	a\height = h
	a\maxlen = m
	;Rect a\x, a\y, a\width, a\height
End Function

Function DrawTextBoxes()
	Local a.TextBox
	For a.TextBox = Each TextBox
		Rect a\x, a\y, a\width, a\height
	Next
End Function

Function CheckTextBox$()
	Local a.TextBox
	
	For a.TextBox = Each TextBox
		If mx >= a\x And mx <= a\x + a\width And my >= a\y And my <= a\y + a\height Then
			If md1 = True Then
				a\state = 1
			Else
				a\state = 2
			End If
			Return a\name
		Else
			a\state = 0
		End If
	Next
End Function

CreateTextBox("druff", 500, 500, 200, 100, 30)
CreateTextBox("suff", 100, 100, 200, 100, 30)

Local a.TextBox
While Not KeyDown(1)
	Cls
	
	md1 = MouseDown(1)
	mx = MouseX()
	my = MouseY()
	
	DrawTextBoxes()
	For a.TextBox = Each TextBox
		If a\name = CheckTextBox() Then
			Text 420, 420, a\state
		End If
	Next
	
	
	Text 400, 400, CheckTextBox()
	
	Flip(0)
	WaitTimer(timer)
Wend

End

Graphics 800, 600
SetBuffer BackBuffer()

Global md1, mx, my

Type TextBox
Field name$
Field x,y
Field width, height
Field state ;0 = inaktiv, 1 = aktiv, 2 = hover
Field maxlen
End Type

Function CreateTextBox(n$, x, y, w, h, m)
a.TextBox = New TextBox
a\name = n
a\x = x
a\y = y
a\width = w
a\height = h 
a\maxlen = m
End Function

Function DrawTextBox()
For a.TextBox = Each TextBox
Rect a\x, a\y, a\width, a\height
Next
End Function

Function ShowState()
Local i = 0
For a.TextBox = Each TextBox
Text 100, 400 + i, a\name
Text 100, 420 + i, a\state
i = i + 100
Next 
End Function

Function CheckTextBox.TextBox()
md1 = MouseDown(1)
mx = MouseX()
my = MouseY()

	For a.TextBox = Each TextBox
		If mx >= a\x And mx <= a\x + a\width And my >= a\y And my <= a\y + a\height Then
				If md1 = True Then
				a\state = 1
				Else
				a\state = 2
				End If
				Return a
		Else
		a\state = 0
		End If
	Next
Return Null
End Function


CreateTextBox("box1", 500, 500, 200, 100, 30)
CreateTextBox("box2", 100, 100, 200, 100, 30)


While Not KeyDown(1)
Cls

DrawTextBox()

ShowState()

aktiv.TextBox = CheckTextBox()
If aktiv.TextBox <> Null Then
Text 400, 400, aktiv\name
Text 400, 420, aktiv\state
End If

Flip
Wend

End

Graphics 800, 600
SetBuffer BackBuffer()

Global gm, mx, my


Type textbox
Field name$
Field x,y
Field width, height
Field state = 0 ; 0 = inaktiv , 1 = aktiv , 2 = hover
Field active = False
Field max_len
End Type

Function create_textbox(name$, x, y, width, height, max_len)
t.textbox = New textbox
t\name = name
t\x = x
t\y = y
t\width = width
t\height = height
t\max_len = max_len
End Function

Function draw_textbox()
For t.textbox = Each textbox
	If t\state = 1 Then
	Color 0,0,100
	Else If t\state = 2 Then
	Color 100,0,0
	Else
	Color 255, 255, 255
	End If
	Rect t\x, t\y, t\width, t\height
	If t\active = True Then
	Color 0,255,0
	Line t\x + 2, t\y + t\height - 2, t\x + t\width - 2, t\y + t\height - 2
	End If
Next
Color 255,255,255
End Function

Function check_textbox.textbox()
gm = GetMouse()
mx = MouseX()
my = MouseY()

For t.textbox = Each textbox
		If(mx >= t\x And mx <= t\x + t\width And my >= t\y And my <= t\y + t\height) Then
			If(gm = 1) Then
				t\state = 1
				If t\active = False Then
				t\active = True
				Else
				t\active = False
				End If
			Else
			t\state = 2
			End If
			Return t 
		Else
			t\state = 0
		End If
Next
Return Null
End Function

create_textbox("test", 100, 150, 150, 35, 30)
create_textbox("test2", 300, 150, 150, 35, 12)

While Not KeyDown(1)
Cls


aktiv.textbox = check_textbox()
If aktiv <> Null Then
	Text 100, 500, aktiv\name
End If

draw_textbox()


Flip
Wend
End

Graphics 800, 600, 0, 2
SetBuffer BackBuffer()
Local timer=CreateTimer(60)
Global gm, mx, my


Type textbox
	Field name$
	Field x,y
	Field width, height
	Field state = 0 ; 0 = inaktiv , 1 = aktiv , 2 = hover
	Field active = False
	Field max_len
End Type

Function create_textbox(name$, x, y, width, height, max_len)
	t.textbox = New textbox
	t\name = name
	t\x = x
	t\y = y
	t\width = width
	t\height = height
	t\max_len = max_len
End Function

Function draw_textbox()
	For t.textbox = Each textbox
		If t\state = 1 Then
			Color 0,0,100
		Else If t\state = 2 Then
			Color 100,0,0
		Else
			Color 255, 255, 255
		End If
		Rect t\x, t\y, t\width, t\height
		If t\active = True Then
			Color 0,255,0
			Line t\x + 2, t\y + t\height - 2, t\x + t\width - 2, t\y + t\height - 2
		End If
	Next
	Color 255,255,255
End Function

Function check_textbox.textbox()
	gm = GetMouse()
	mx = MouseX()
	my = MouseY()
	
	Local t.textbox
	For t.textbox = Each textbox
		If(mx >= t\x And mx <= t\x + t\width And my >= t\y And my <= t\y + t\height) Then
			If(gm = 1) Then
				t\state = 1
				If t\active = False Then
					;t\active = True
					Return t
				Else
					;t\active = False
				End If
			Else
				t\state = 2
			End If
			Return t
		Else
			t\state = 0
		End If
	Next
	Return Null
End Function

create_textbox("test", 100, 150, 150, 35, 30)
create_textbox("test2", 300, 150, 150, 35, 12)
Local aktiv.textbox

While Not KeyDown(1)
	Cls
	
	
	aktiv = check_textbox()
	If aktiv <> Null Then
		Text 100, 500, aktiv\name
	End If
	
	draw_textbox()
	
	
	Flip(0)
	WaitTimer(timer)
Wend
End