Foro de elhacker.net

Como Hago Para que cuando yo termino lo que digite me salga este mensaje

sin usar comandos

Private Sub TXTprecio_Change()
If TXTprecio = TXTprecio Then
TXTprecio.SetFocus
End If
MsgBox "La Transferencia Ha Sido Completada"
End Sub

HOLA!!!

No se a que te refieres con sin usar comandos, pero para hacer lo que pedis alcanza con colocar en la linea del msgbox lo siguiente:

MsgBox "La Transferencia Ha Sido Completada y ha sido de " & TXTPrecio.text

como ves el & se usa para unir textos.

Aunque por lo que veo tu codigo genera un textbox del cual no podes salir y a cada tecla que apretas aparece un msgbox. Para solucionar esto deberias usar el evento lostfocus, luego de eso, tu if no tiene sentido, siempre es true, por ende siempre vuelve al setfocus, deberias arreglar eso.

GRACIAS POR LEER!!!

Es correcto lo que te escribio el compañero R3Z, esperamos que nuestras respuestas te puedan solucionar tu problema.

Private Sub txtprecio_LostFocus()
If IsNumeric(txtprecio.Text) Then
    If txtprecio.Text = txtprecio.Text Then
        MsgBox "La Transferencia Ha Sido Completada y ha sido de " & txtprecio.Text
    End If
End If
End Sub
 

No entiendo bien la consulta pero,
 si haces esta comparacion

If TXTprecio = TXTprecio Then

en evento change siempre va a ingresar pero comparar el mismo objeto???

Creo que necesitas algo así.

Const Comparar = "HOLA"

Private Sub Text1_Change()
If UCase(Text1.Text) = Comparar Then
    MsgBox "Tarea realizada: " & Text1.Text
End If
End Sub

Hola...
Entiendo que estás en VB y no VB.NET dicho esto no entiendo muy bien lo que quieres pero a ver si te sirve esto. Muestra el mensaje al pulsar Enter.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text1.SetFocus
MsgBox ("La Transferencia Ha Sido Completada")
End If
End Sub
 

En VB.NET

   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Convert.ToChar(Keys.Enter) Then
            MsgBox("La Transferencia Ha Sido Completada")
        End If
    End Sub

Según entiendo quieres introducir una información y luego ingresar dicha información. 'Enter' sería el acto en sí de 'ingresar información' o 'Aceptar' e inmediatamente al pulsar muestra el mensaje.