none
Problema cambiar la posicion de un TrackBar mediante un dato de un TextBox RRS feed

  • Pregunta

  • Buenas quería ayuda con el problema que tengo el codigo es el sguiente:

    //hace q el valor del textbox cambie segun mueva el trackbar

    Private Sub TrackBar4_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar4.Scroll
            TextBox7.Text = TrackBar4.Value
        End Sub
    //hace q cambie el valor el trackbar escribiendo en el textbox
        Private Sub TextBox7_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
            TrackBar4.Value = TextBox7.Text

    el problema es en el ultimo TrackBar4.Value = TextBox7.Text, cuando ingreso un valor negativo al textbox me sale error, mi minimo en el trackbar = -90 y el maximo =90, nesecito poder ingresar tambien valores negativos y que se modifique el trackbar, pido su orientacion, soy nuevo usando el visual jeje, saludos.

    http://s16.postimg.org/v63oy4c2t/image.png


    domingo, 22 de junio de 2014 16:48

Todas las respuestas

  • Public Class Form1
    
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            TrackBar1.Minimum = -90
            TrackBar1.Maximum = 90
    
        End Sub
    
        Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
            Dim valor As Integer
    
            If (Integer.TryParse(TextBox1.Text, valor)) Then
                If valor > TrackBar1.Maximum Then Return
                If valor < TrackBar1.Minimum Then Return
                TrackBar1.Value = valor
            End If
        End Sub
    
        Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
            TextBox1.Text = TrackBar1.Value.ToString
        End Sub
    End Class
    

    domingo, 22 de junio de 2014 17:12