Ayuda Con Funcion


Objetivo: Ayuda Con Funcion
Buenas Amigos Foreros, estoy tratando de validar varios combox a la ves y pues para eso necesito de su ayuda... estoy tratando de hacerlo por medio de una funcion, tengo 5 combox con diferentes valores y al momento de precionar un boton que me valide todos los 5 combox

PUBLIC SUB Button2_Click()
DIM i AS Integer

FOR i = 1 TO 5
validar_combos("ComboBox" + i) 'lo que quiero hacer es que lo haga automaticamente para cada combo mediante un ciclo
NEXT

END


y pues en realidad no se como declarar la variable o como pasar el nombre del combo que quiero utilizar para validar

FUNCTION validar_combos(t AS String)

DIM combos AS NEW ComboBox(t)

Message.Info(combos.Text)

END


espero me entiendan y puedan ayudar...! e intentado de muchas maneras pero no he podido

Perfil MP  
Objetivo: Re: Ayuda Con Funcion
Hola Jesús.

A ver, no voy a darte la pista completa. Pero si una ayuda.
Es un ejemplo que hemos visto en la comunidad. Tienes que adaptarlo a los combobox.

Imagina que tienes en un formulario un numero x de cajas de textos y quieres borrar el contenido de todas estas
cajas de textos.Necesitaras x cajas de texto y un botón de comando para limpiar el contenido.


PUBLIC SUB Button1_Click()
DIM cajatexto AS Object

FOR EACH cajatexto IN FormCajaTexto.Controls
IF cajatexto IS TextBox THEN cajatexto.text = ""
NEXT

END



En vez de declarar la variable como combobox, declárala como objeto.Juega con el for each dentro de la función.
No olvides la propiedad controls de tu formulario.Fíjate que si cambias el tipo de la variable cajatexto a textbox no funciona.

Espero que este ejemplo te motive para acabar tu ejemplo.

Saludos

última edición por Shell el Lunes, 22 Agosto 2011, 08:13; editado 1 vez
Objetivo: Re: Ayuda Con Funcion
Hola,

Algo parecido:

PRIVATE combos AS NEW Object[]

'Cuando los creas los metes dentro del objeto. Por ejemplo:

PUBLIC SUB Form_Open()
combos.Add(ComboBox1)
combos.Add(ComboBox2)
END


PUBLIC SUB Button1_Click()
DIM combito AS ComboBox
FOR EACH combito IN combos
if valida_combo(combito)=False THEN
Message.Error("ESTO ES UNA TRAGEDIA")
BREAK
ENDIF
NEXT
END




PUBLIC FUNCTION valida_combo(combo AS ComboBox) AS boolean
'el algoritmo de validación que quieras
END



Saludos

última edición por ljma el Lunes, 22 Agosto 2011, 22:20; editado 1 vez

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.411s (PHP: -81% SQL: 181%)
Consultas SQL: 46 - Debug off - GZIP Activado