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
El problema es que tenes que colocar algun punto que indique la finalizacion de la digitacion, no es posible adivinarla, perdiendo el foco seria lo mas acertado o colocando en el evento keypress de la caja de texto, por ejemplo usando el return (enter) como referencia, con eso bastaria aplicando el code proporcionado por el colega scavdr.
Saludos.
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.