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

1 respuesta

Respuesta
1
Creo entender que en lugar de usar imputbox. Deseas usar textbox..
En ese caso, lo mas adecuado seria que pases los valores a tu sub. Como parámetros..
Ya que como comprobastes, si intentas leer dichos controles desde el modulo, no te servirá
Por ejemplo:
Sub DiseñoMu(fprimac as double,fy as double,B as double, H as double,D as double)
'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
'-------------------------
en el form. tendrías que invocar a ru sub, pasando el valor text de cada control
Call DiseñoMu(val(text1.text),val(text2.text),val(text3.text),val(text4.text),val(text5.text))
Se trabaja de esta manera en vb6.
Lo probaré y veremos, ¡gracias por la respuesta!
Favor de finalizar o descartar la pregunta
Carlos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas