Usar textbox en formulario desde un módulo.
Este es mi problema:
Tengo un formulario con textbox donde el usuario debe poner el input de la data con la que se va a trabajar y en un módulo tengo las rutinas y funciones con las que voy trabajar la data que el usuario entre, sin embargo, no sé cómo decirle en el módulo que, por ejemplo:
A = textbox2.text -> Estando el textbox2 en el formulario.
Porque de inmediato aparece que no reconoce esos objetos. Uso Visual Basic 2010.
Muchas gracias.
Por si es necesario; escribo acá una de las subrutinas que estoy usando por si el error radica ahí (Como pueden ver, le doy la entrada de data al programa con inputboxes):
Sub DiseñoMu()
fprimac = InputBox("Ingrese F'c")
fy = InputBox("Ingrese Fy")
B = InputBox("Ingrese B")
H = InputBox("Ingrese H")
d = InputBox("Ingrese d")
Aacero = InputBox("Ingrese Área del acero")
fprimac1 = fprimac * 0.85
'Resultantes a Tracción y Compresión
RT = Aacero * fy RC = RT
'Altura del bloque de Whitney
a = RC / (fprimac1 * B)
'Distancia al centroide
c = a / beta1
'Momento nominal
Mn = RC * (d - a / 2)
'Momento último Mu = phi * Mn
MsgBox("El momento último que resistirá la sección será de " & Mu & " kg·cm")
End Sub
Tengo un formulario con textbox donde el usuario debe poner el input de la data con la que se va a trabajar y en un módulo tengo las rutinas y funciones con las que voy trabajar la data que el usuario entre, sin embargo, no sé cómo decirle en el módulo que, por ejemplo:
A = textbox2.text -> Estando el textbox2 en el formulario.
Porque de inmediato aparece que no reconoce esos objetos. Uso Visual Basic 2010.
Muchas gracias.
Por si es necesario; escribo acá una de las subrutinas que estoy usando por si el error radica ahí (Como pueden ver, le doy la entrada de data al programa con inputboxes):
Sub DiseñoMu()
fprimac = InputBox("Ingrese F'c")
fy = InputBox("Ingrese Fy")
B = InputBox("Ingrese B")
H = InputBox("Ingrese H")
d = InputBox("Ingrese d")
Aacero = InputBox("Ingrese Área del acero")
fprimac1 = fprimac * 0.85
'Resultantes a Tracción y Compresión
RT = Aacero * fy RC = RT
'Altura del bloque de Whitney
a = RC / (fprimac1 * B)
'Distancia al centroide
c = a / beta1
'Momento nominal
Mn = RC * (d - a / 2)
'Momento último Mu = phi * Mn
MsgBox("El momento último que resistirá la sección será de " & Mu & " kg·cm")
End Sub
1 respuesta
Respuesta de hakuario
1