TODOPIC
Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: IAO en 11 de Septiembre de 2007, 19:15:59
-
Holaaaaa:
Amigos disculpen pero de verdad que no consigo solución.
Estoy tratando que un VScroll1 me reciba de el formulario1 un valor. y se incremente. He buscado en google
algo parecido, pero de verdad no doy.
'''Este es el Form1
Public val1 As Integer
Private Sub Command1_Click()
Form2.Show vbModeless, Form1
'Form2.VScroll1.Max = false .True
Form2.VScroll1.Value = val1 + 1
End Sub
''' Este es el form2
Private Sub VScroll1_Change()
'Form1.Command1.Value = val1 + 1 'True
VScroll1.Value = val1 + 1
'MsgBox ("Hello")
End Sub
Si coloco un boton en el mismo form2, y lo pulso el se incrementa pero desde el form1, solo logro
mostrar el form2, cerrarlo y nada más. Si me pueden dar un par de patadas a ver si entiendo,
Que estoy haciendo mal, se los agradecería.
Gracias. Disculpen la insistencia. :?
Bye('_').
-
Así no podrás hacerlo ya que para que el scroll se mueva tiene que estar activado el Form al que pertenece, lo único que puedes hacer es crear una variable global, darle el valor de las pulsaciones de tu botón y más tarde cuando actives el Form donde está el scroll decirle que VScroll1.Value = VariableGlobal.
Otra opción es que crees un MDIForm y ahi si que puedes hacerlo ya que heredan uno de los otros, pero ten en cuenta que sólo puedes ver visualmente lo que ocuurre dentro del Form que tienes activado.
Un saludete.
-
Holaaaa:
Sr. c4_esp_VR:
Muchas gracias. Es usted parte de los herederos del conocimiento. :-/ :-/ :-/
Aquí les dejo como quedo. Hacer form1 y colocar un boton y hacer el form2 y colocar un vscroll.
Claro está que es para los más nuevos y los que vienen llegando. Los verdugos, no necesitan de
esto.
'''Form1
Public value1 As Integer
Private Sub Command1_Click()
value1 = value1 + 1
For x = value1 To 11
Form2.VScroll1.Value = value1
Next x
End Sub
Private Sub Form_Load() '''Cuando se carga el Formulario
'''Muestra el Formulario "Form2" y se hace propietario,
'''asegura que se cierre el dialogo.
Form2.Show vbModeless, Form1
End Sub
'''Form2
Private Sub Form_Load() '''Cuando se carga el Formulario
VScroll1.Value = value1
End Sub
Sr. c4_esp_VR, usted es un cerebro. No perdón 3 cerebros. Es superpoderoso. :)
Gracias muchirrisisimas gracias.
Bye('_').
-
No me des las gracias, aqui siempre estamos para ayudarnos los unos a los otros. Me alegro mucho que la solución ofertada fuese de tu agrado.
Un saludete IAO :-)