Vscroll no me responde.

[IAO]

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.

Código: [Seleccionar]

'''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


Código: [Seleccionar]

''' 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('_').

[c4_esp_VR]

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.

[IAO]

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.

Código: [Seleccionar]

'''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


Código: [Seleccionar]

'''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('_').

[c4_esp_VR]

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