Ayuda Con MsgBox????

[R3Z]

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

sin usar comandos

Código (vb) [Seleccionar] Expandir

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

[79137913]

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:

Código (vb) [Seleccionar] Expandir

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!!!

[scavdr]

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

Código (vb) [Seleccionar] Expandir


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


[KristianC10]

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

[XresH]

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.

[Lekim]

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.

Código (vb) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

  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.