Create new objects

[Manolo]

Is it possible to extend or modify an object?
For example, I need an EDIT object that accepts just Alphabet and numbers. (no symbols, no space)
Tnx.

[Marco]

here some code it needs only one simple sub
and in the string you put what you want the editbox to accept.
best regards


`=================================================
`=edit box that only exepts alphabet and numbers.=
`=================================================
object myform as form
  object editbox as edit
    onkeypress=filter
  end object
  showmodal
end object

sub filter(key as byte)
  if instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",ucase$(chr$(key)))=0 then
    key=0
  end if
end sub

[Manolo]

It works perfect, tnx a lot!!!
(but could be interesting to have possibility to extend objects.)