My easy input box code (with example)

[Azan]

here it is

current version 1.1
Its open Source, feel free to modify it but please tell me that you are using it
Note this module is for inserting information, its not to be used like a chat thing as the box doesnt clear itself, I will be releasing a module that can do that though.

Type inpbox
	Field x#,y#,width#,height#,maxlegnth,name$,active,clicked
	Field insidered,insidegreen,insideblue
	Field borderred,bordergreen,borderblue
	Field chat$,linex,counter
End Type


Function inputboxes()
	updateinpbox()
End Function
Function inpbox(x#,y#,width#,height#,maxlegnth,name$,active,insidered,insidegreen,insideblue,borderred,bordergreen,borderblue)
	i.inpbox=New inpbox
	i\x#=x#
	i\y#=y#
	i\width#=width#
	i\height#=height#
	i\maxlegnth=maxlegnth
	i\name$=name$
	i\active=active
	i\clicked=False
	i\linex=i\x+4
	i\counter=0
	i\insidered=insidered
	i\insidegreen=insidegreen
	i\insideblue=insideblue
	i\borderred=borderred
	i\bordergreen=bordergreen
	i\borderblue=borderblue
End Function

Function updateinpbox()
	For i.inpbox=Each inpbox
		If i\active=True Then
			Local centery#=i\y+i\height#/2
			Local mx=MouseX()
			Local my=MouseY()
			Color i\borderred,i\bordergreen,i\borderblue
			Rect i\x#,i\y#,i\width#,i\height#
			Color i\insidered,i\insidegreen,i\insideblue
			Rect i\x#+2,i\y#+2,i\width#-4,i\height#-4
			
			;;;;;;;;;;;;;;;;;;
			If MouseDown(1) Then
				If i\clicked=True Then
					i\clicked=False
				EndIf
				If i\clicked=False Then
					If mx<=i\x+i\width# And mx>=i\x Then 
					If my<=i\y+i\height# And my>=i\y And i\clicked=False Then
						i\clicked=True
						FlushKeys 
					EndIf
				EndIf	
			EndIf
			EndIf
			EndIf
			;;;;;;;;;;;;;;;;
			
			If i\clicked=True And i\active=True Then
				Color i\borderred,i\bordergreen,i\borderblue
				i\counter=i\counter+1
				If i\counter<80 And i\counter>20 Then
					Line i\linex,centery#+7,i\linex,centery#-7
				EndIf
				If i\counter>=80 Then
					i\counter=0
				EndIf
				key=GetKey()
				If key Then
					If key=8 Or KeyDown(8) Then
						If Len(i\chat$)>0 Then
							i\chat$=Left$(i\chat$,Len(i\chat$)-1)
							i\linex=i\linex-7.5
						EndIf
					EndIf
					If key>=32 And key<127 Or KeyDown(key) Then
						i\chat$=i\chat$+Chr$(key)
						i\linex=i\linex+7.5
					EndIf
					If i\maxlegnth<=0 Then 
						If Len(i\chat$)>i\width#/8 Then
							i\chat$=Left$(i\chat$,Len(i\chat$)-1)
							i\linex=i\linex-7.5
						EndIf
					Else:
						If Len(i\chat$)>i\maxlegnth Then
							i\chat$=Left$(i\chat$,Len(i\chat$)-1)
							i\linex=i\linex-7.5	
						EndIf
					EndIf					
				EndIf
			EndIf
			If i\active=True Then
				Color i\borderred,i\bordergreen,i\borderblue
				Text i\x+2,centery#-7,i\chat$
			EndIf
	Next
End Function

Function inputbox$(name$)
	For i.inpbox=Each inpbox
	If i\name$=name$ And i\clicked=False Then
		Return i\chat$
	EndIf
	Next
End Function

Function hideinputbox(name$)
	For i.inpbox=Each inpbox
	If i\name$=name$ And i\active=True And i\clicked=False Then
		i\active=False
	EndIf
	Next
End Function

Function unhideinputbox(name$)
	For i.inpbox=Each inpbox
	If i\name$=name$ And i\active=False Then
		i\active=True
	EndIf
	Next
End Function		

[Azan]

heres the example

;here are the parameters for the inpbox
;inpbox(x#,y#,width#,height#,maxlegnth,name$,active,insidered,insidegreen,insideblue,borderred,bordergreen,borderblue)
;
;x# ~ the x coordinate
;
; y# ~ the y coordinate
;
; width# ~ the x size
;
; height# ~ the y size
;
; maxlegnth ~ this allows you to set a character legnth for you inputbox,
; if its set to 0 then it will go as long as the box is 
;
; name$ this is how you will call the input box for when you want to find its value
; (as seen below as the text (inputbox$("left") is the left box value)
;
; active, set this to false if you want to hide it, or set it to true to make it visible 
;
;and the rest are color values
;
;functions
;
;inputbox$(name$) returns the input value (as a string)
;
;hideinputbox(name$) hides the input box
;
;unhideinputbox(name$) unhides the input box
;
;more coming soon
;

Graphics 800,600
SetBuffer BackBuffer()
Include "inputmodule.bb"
inpbox(125,145,55,25,0,"left",True,255,0,0,0,0,255) ; this character legnth is 0 so it can be as long the box is
inpbox(225,145,55,25,3,"middle",True,255,0,0,0,0,255) ;character legnth is 3
inpbox(325,145,55,25,6,"right",True,255,0,0,0,0,255) ;character legnth is 6
ClsColor 155,155,155
While Not KeyHit(1)
Flip
Cls
inputboxes()
Text 555,505,"you typed"+" "+inputbox$("left")
Text 555,525,"you typed"+" "+inputbox$("middle")
Text 555,545,"you typed"+" "+inputbox$("right")
If KeyHit(57) Then
	hideinputbox("left") ;if the spacebar is hit then hide
EndIf
If KeyHit(28) Then
	unhideinputbox("left") ;if enter is hit then unhide if hidden
EndIf
Wend
End

[glow=red,2,300]Let me know about any errors/opinions on this [/glow]

[Azan]

Added Functions

Feel free to make functions that add features to it, just post em here and ill add em to the list.

(place these functions at the bottom of your inputmodule)

*****Enter Value with a key instead of mouse*****

What it does: it allows you to deselect a inputbox with a key instead of hitting a mouse (like enter for example)

Function endwithkey(name$,key)
For i.inpbox=Each inpbox
	If i\name$=name$ And i\active=True Then
		If KeyHit(key) Then
			i\clicked=False
		EndIf
	EndIf
Next
End Function

Parameters:
name$ is the name of the inputbox
key is the key you want to have used (28 is enter which will mostly be used)

*************************************************

[Umbrafire]

excellent module, thanks a lot

[Azan]

Thanks, now to work on my next module Scroll window (with input)