Visual Basic - Ayuda por 2ª vez

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda por 2ª vez

Publicado por Juan (52 intervenciones) el 07/07/2009 20:42:11
Hola a todos, nadie me responde a mi enigma y me estoy volviendo tarumba, por favor si hay alguna mente privilegiada que me pueda echar un cable se lo agradeceré

Estoy realizando una aplicación en la que tengo dos cajas de texto. Al lado de las mismas (pegado a ellas) he colocado un Scrollbar vertical el cual utilizo para aumentar o disminuir los valores de las cajas de texto. Se que existe un control que se llama UpDown que sirve para realizar lo mismo pero este no acepta decimales así que me las he tenido que ingeniar de otra forma. El código que utilizo es el siguiente: (por si a alguien le puede ayudar)...

Private Sub Form_Load()

VScroll1.Min = 1000 ' Inicializar la barra de desplazamiento.
VScroll1.Max = 600
VScroll1.SmallChange = 5
VScroll1.Value = 750

VScroll2.Min = -2000 ' Inicializar la barra de desplazamiento.
VScroll2.Max = -100
VScroll2.SmallChange = 25
VScroll2.Value = -200

End Sub

Private Sub VScroll1_Change()

Text1.Text = FormatNumber((VScroll1.Value) / 100, 2)
Text2.Text = FormatNumber(Text4 + ((Text1.Text - Text3.Text) * 0.25 / 0.05), 2)

End Sub

Private Sub VScroll2_Change()

Text2.Text = FormatNumber((VScroll2.Value) / 100, 2)

End Sub

Con esto lo que consigo es que cuando cliko en el Scroll1 el valor de la caja de texto1 se aumenta o disminuye 0.05 y el valor de la caja de texto2 varia automáticamente un 0.25 por cada 0.05 que varie la caja de texto1 (espero que me sigais!!!).

Hasta aquí todo perfecto, el problema surge pq yo quiero que al clikar en el Scroll2 , el valor de la caja de texto2 se aumente o disminuya un 0.25 pero a partir del valor mostrado en ese momento en la caja de texto2 y no partiendo del valor inicial que como podeis ver en el VScroll2.value=-200, és -2.00.

Bueno espero alguien que quiera romperse un poco la cabeza y tenga ganas de leer me ayude.

Saludos y Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda por 2ª vez

Publicado por JaImE GuErReRo (361 intervenciones) el 07/07/2009 21:16:16
en el change del textbox2 pon

VScroll2.Value = textbox2.text
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar