Ayuda urgente por favor!
Publicado por Haf (178 intervenciones) el 05/03/2008 08:37:46
Hola amigos del foro tengo un formulario donde en el evento load del mismo hago llamado a una función llamada llenavarores el cual recibe como único parámetro un formulario entero
LLamado : llenavalores(me)
Esta función la he creado porque tengo varios formularios con tipos y nombres de objetos identicos los cuales los utilizo para rellenar cabeceras (dependiendo del valor, pero lo que realmente importa es su nombre y su tiipo de objeto)
Los nombres de los objetos son por ejemplo
text_datos1, text_datos2..... hasta el 15 (textbox)
lbl_1,lbl_2............................ hasta el 15 (Label)
Combobox1,combobox2,combobox3..... (Combobox)
En llena valores :
Public Shared Sub Llenavalores(ByVal frm As Form)
Dim CodigoHacienda As String = ReadReg("codigohacienda", "hacienda")
frm.Controls("text_datos1").Text = ObtenerCodigoHacienda(CodigoHacienda)
frm.Controls("lbl_1").Text = ObtenerDeleg(CodigoHacienda)
Hasta aqui todo bien , pero cuando me toca trabajar con los combos no puedo hacer cosas como : frm.controls("combobox1").Items.Add("99999")
ó frm.controls("combobox1")..SelectedIndex = 0
Es muy urgente por favor ayudadme!
He creado una función pública que recibe como único parámetro un formulario entero a fin de llenar los controles comunes (la función se llama llenavalores).
LLamado : llenavalores(me)
Esta función la he creado porque tengo varios formularios con tipos y nombres de objetos identicos los cuales los utilizo para rellenar cabeceras (dependiendo del valor, pero lo que realmente importa es su nombre y su tiipo de objeto)
Los nombres de los objetos son por ejemplo
text_datos1, text_datos2..... hasta el 15 (textbox)
lbl_1,lbl_2............................ hasta el 15 (Label)
Combobox1,combobox2,combobox3..... (Combobox)
En llena valores :
Public Shared Sub Llenavalores(ByVal frm As Form)
Dim CodigoHacienda As String = ReadReg("codigohacienda", "hacienda")
frm.Controls("text_datos1").Text = ObtenerCodigoHacienda(CodigoHacienda)
frm.Controls("lbl_1").Text = ObtenerDeleg(CodigoHacienda)
Hasta aqui todo bien , pero cuando me toca trabajar con los combos no puedo hacer cosas como : frm.controls("combobox1").Items.Add("99999")
ó frm.controls("combobox1")..SelectedIndex = 0
Es muy urgente por favor ayudadme!
He creado una función pública que recibe como único parámetro un formulario entero a fin de llenar los controles comunes (la función se llama llenavalores).
Valora esta pregunta
0