Hola : he creado la siguiente funcion, la cual me permite limpiar los textbox de un fomulario



El mensaje de error es : valuebox.text is readonly
Me gustaría saber que estoy haciendo mal.
Estoy usando el componente gb.gtk

saludos y gracias por anticipado

Hola, lo que estas haciendo esta bien para controles TextBox. El error que te da es que quieres hacer lo mismo con un ValueBox. Debes asignar  0 a un ValueBox, no "" a su propiedad text que es de solo lectura. Mira si funciona asi:

FUNCTION limpiartextbox()

  DIM ctl AS Control
  DIM txt AS TextBox
  DIM vbx AS ValueBox

   FOR EACH ctl IN ME.Controls
        IF OBJECT.Type(ctl) = "TextBox" THEN
             txt = ctl
             IF txt.Name <> "codficha" THEN txt.text = ""  
        ENDIF
        IF OBJECT.Type(ctl) = "ValueBox" THEN             ' Esto con los tipos de control que
             vbx = ctl                                                     ' quieras limpiar (o inicializar)
             vbx.Value = 0
        ENDIF    
    NEXT
END


Si tienes muchos tipos de control (TextArea, Botones de radio, check, etc.) deberias hacer un SELECT CASE para la comprobacion. Lo pongo con IF  y solo compruebo textbox y valuebox, pero si hay mas clases, no las inicializara.

Un saludo

Muchas gracias. Funciona como quiero

También puedes usar el método Clear que proveen varios controles, entre ellos TextBox y ValueBox.

===================
Cómo programar con Gambas

Speed Books: informática libre.

Gracias  favian, tu aporte también es tenido en cuenta.

saludos