.... quedó duplicado, al tratar de modificarlo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
dim colFrm = nueva coleccion
with colFrm
'si form1.txtBoxes.count>0) then
' esto no debe ser necesario si en efecto como dices todos tienen textbox del mismo nombre...
.Add(form1)
'end if
.Add(form7)
.Add(frmCuentas)
.Add(form12)
.Add(me) ' siendo el caso que este botón esté en este formulario...
end with
call ActualizarEstosForms(colFrm, query, conex, ...)
' activar-mostrar el form que prefieras, por ejemplo
colFrm.Item(0).show ' .BringToFront .Activate, .Visible=True . enable=true etc... según sea el caso estén cargados o no, visibles o no, etc...
private sub Main
LlenarColTextboxFromformx(form1)
LlenarColTextboxFromformx(form7)
LlenarColTextboxFromformx(frmCuentas)
LlenarColTextboxFromformx(form12)
LlenarColTextboxFromformx(frmPrincipal)
end sub
funcion LlenarColTextboxFromformx( byref f as form) as short
por cada ctrl in f.ControlCollection
si ctrl.getType.name = "TextBox" luego ' otra forma de preguntar...
f.txtBoxes.add(ctrl)
end if
siguiente
devolver f.txtBoxes.Count
fin funcion
funcion ActualizarEstosForms( colF as coleccion, ....)
dim f as form
dim tb as textbox
dim txt as string
try
consulta a la BD
por cada f en colF
por cada tb en subf.txtBoxes
try
txt = Getstring(....)
tb.Text = txt
catch
messagebox.show "Nombre del textbox no hallado, corrige el nombre" ' el error más probable, para el caso...
end try
siguiente
siguiente
catch ex as exception
mesagebox.show (ex.message) ' algún problema con la base de datos...
finally
end try
fin funcion
funcion PrintReverse(char[] Cadena, otros parametros que quieras usar)
entero j, k
j = tamaño de Cadena
bucle para k desde j-1 hasta 0 retrocediendo
imprimr caracter cadena[k]
fin bucle
fin funcion
Estructura CabeceraPGM
Magic // dos bytes "P2" ó "P5" para formato ASCII y binario respectivamente.
Ancho // píxeles de ancho en formato ASCII.
Alto // Ídem de alto "
NivelesGris // cantidad de niveles de grises usados -1. Es decir un valor 255, implica 256 niveles de gris.
fin estructura