Mensajes

hola

Tengo dos formularios uno es del login funciona pero no se como hacer para que cuando este logeado se cierre ya que me queda siempre visible ???

Código (vbnet) [Seleccionar] Expandir

Public Class Login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "jose123" Then
            MsgBox("Entraste")
            Form2.Show()
        Else
            MsgBox("seguro eres tu ?")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub
   
End Class

también  me ha pasado jajaja.. y todavía no me queda claro.

entonces te refieres a esto:?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
'te refieres a esto

if r1+10 < 80 then 'si es menor a 80 se cumnple
        TextBox2.Text = r1 + 10

        If (Val(TextBox2.Text) >= 60) Then
            Exit Sub

        End If
endif 'cierro
    End Sub
End Class


la verdad esta difícil de comprender lo que quieres :S o es que soy muy tapao'

Hurra por ti jejej funciona

Gracias chaval

Luis

estas aplicando mal el val con toda la expresión no va bien.

es así:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
        TextBox2.Text = r1 + 10

        If (Val(TextBox2.Text) >= 60) Then
            Exit Sub

        End If
    End Sub
End Class

PD: todavía no me queda claro que es lo que quieres lograr/hacer.

Siempre en programación me paso" lo de que tu sabes lo que quieres jejej pero no explicas bien"


Bien ahora de esta forma ! quiero limitar que cualquier resultado de x suma de x numeros se limite a mostrar pongamos por ejemplo desde el numero 01 hasta el 80 y si esta suma pasa del numero 80 no se muestre en los resultados

gracias por tu atencion
luis

No funciona estoy tratando con esto pero no se como hacer que no me muestre el resultado como quiero

Código [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
        TextBox2.Text = r1 + 10

        If Val(TextBox2.Text >= 60) Then
            Exit Sub

        End If
    End Sub
End Class

He aca la función que hago donde en texbox1 esta el valor introducido que no puede pasar de dos dígitos eso ya lo tengo solucionado es se hace ya saben en propiedades.bueno el asunto es que si pongo por ejemplo el cuarenta (40) la suma seria 50 yo lo que necesito es que no me muestre el 50 osea seria  el 49,tengo la idea de hacer con if una condición tipo >< pero como estoy enviando al otro texbox
el resultado no logro enterarme como se hace,como os dije en mi presentación tengo ya 53 anitos y como mi lenguaje fue foxpro me cuesta un poco saber de otros sistemas. no quiero que me hagan los programas solo orientación..

Código [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
      r1 = Val(TextBox1.Text)
       
      TextBox7.Text = r1 + 10 <--aca el resultado condicionado

     End Sub


Luis

Bueno gracias por las respuestas

tratare de explicar un poco mejor, tengo un  texbox inicial que en principio me hace una suma y ese resultado me lo envia a otro texbox :

ejemplo
introdusco en texbo1 el numero 50 y el programa le suma  30  normalmente eso es 80 como resultado no ? pues lo que necesito es que si es 80 no lo ponga si que ponga 79 en el txbox2

luis

???? alguna posible respuesta ?? con if se podria ?

luis

Hola como recien comienzo en esto de Visual aunque se parece un poco al Viejo fOX
estoy haciendo un programa que en los texbox me gustaria limitar la entrada de numeros desde 00 al 99,ya he logrado hacer que me capte solo numeros y no carapteres y que tambien no pasen de dos pero como no entiendo mucho de string

Código [Seleccionar] Expandir

Public Class Form1
    Dim Sep As Char
    Dim Número As Double

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub

End Class


Luis

Ya Funciona

Código [Seleccionar] Expandir

Public Class Form1
    Dim r1, r2, r3, r4, r5, r6 As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        r1 = Val(TextBox1.Text)
        TextBox2.Text = r1 + 1
        TextBox3.Text = r1 + 2
        TextBox4.Text = r1 + 3

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub
End Class 



gracias

no te dio por programar te dio porque alguien te haga un programa 

Otro del montón jejeje yo hice con ayuda,,,, como todo el Mundo y el que diga lo contrario es un mentiroso,, de programas que ahora los necesito en Vb y se que hay convertidores de códigos y he probado algunos que por cierto no funcionan bien y si miras bien no pido que me los conviertan, si no que si hay algún programa para eso .

Luis