Holas de nuevo, que tal seguimos? Bueno, me di cuenta de que no era muy explicito, pero es que no estaba seguro de si el otro mensaje se habia mandado o no, y en ese si estaba mas explicado el problema. Luego, cuando lo mande, pensando, me di cuenta de que era posible que no se hubiera mandado, pero ya no habia remedio. En fin hiper mega cosmico de sorrys.
Bueno, aqui va el resumen de lo que estoy haciendo. Lo primero decir que llevo no mas de 4 meses metido con visual basic, por supuesto tengo conocimientos en otros lenguajes de programacion asi que, lo basico lo tengo. Pues al lio. Estoy haciendo lo que en un futuro sera una aplicacion de gestion para una libreria. Estoy en los comienzos. Esta duda seria sobre el modulo que podria pertenecer a las busquedas de libros, editoriales, etc.
Pues bien, lo quiero hacer todo en tiempo de ejecucion y lo que se ve cuando ejecutas el form es:
cinco radio button con varias opciones de busqueda y un boton que le llamo conectar.
Obviamente, cuando introduces la busqueda, das al boton conectar y te sale el resultado. Ese resultado quiero que sean: etiquetas para las cabeceras de los campos y textbox para cada uno de los campos de la respuesta. Pues bien, ahora mismo, para que me funcione, lo tengo de la siguiente manera:
A nivel de formulario ( es decir, fuera de todo pero no del todo ) declaro muchas cosas, pero sobre todo, dos arrays de controles
Public etiqueta(7) as Label
Public texto (50,7) as TextBox
En el form1_load Ademas de muchas otras cosas capturo el evento click del boton conectar
AddHandler boton.Click, AddressOf subnavegar
Y en el metodo subnavegar, por supuesto, ademas de mas cosas esto
Dim btn as Button=DirectCast (Sender,Button)
realizo la conexion con el conector OLEDB (todo sale correcto)
creo la consulta y la mando correctamente
if btn.Tag="conectar" Then
creo las etiquetas y los textbox sin problemas
cambio el tag del boton a desconectar
else
se borran los controles correctamente
Pues bien. Si lo hago de esta forma que voy a exponer a continuacion. Repito, que todo lo que digo que declaro, etc, etc, no me da ningun error, solo es en este punto lo que no funciona correctamente pero no da errores ni nada. sencillamente no hace nada. Pues lo hago de la siguiente manera
A nivel de formulario ( fuera de todo pero no del todo) ademas de muchas cosas esto
Public etiqueta () as Label
Public texto PARENTESIS,PARENTESIS as TextBox
En el form1_load capturo el evento del raton
AddHandler boton.Click,AddressOf subnavegar
En el metodo subnavegar
Dim btn as button=DirectCast (Sender,Button)
hago la conexion a la base de datos correctamente
lanzo la consulta correctamente
ReDim etiqueta (ds.Tables(0).Columns.Count)
ReDim texto (ds.Tables(0).Rows.Count,ds.Tables(0).Columns.Count)
if btn.Tag="conectar" Then
creo las etiquetas y los textbox correctamente
cambio el tag del boton a desconectar
else
NO SE BORRA NADA
Repito, que si declaro elementos en los arrays de controles al principio del todo. Todo funciona, se crean y se destruyen. Si redimensiono el array es como si no reconociera los elementos. El caso es que los crea correctamente. Estoy seguro que es por ese redimensionamiento dinamico. Agradeceria cualquier solucion.
Espero haberme explicado mas o menos claramente. Agradezco la atencion prestada.
Hasta prontisimo.
