Saludos.

Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
se da una circunstancia en otra parte del programa y pasarle un valor ascii
para que lo escriba.

Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.

Tengo un formulario con, solamente, un TextBox y un CommandButton.
El código asociado es el siguiente:
'*****************************
Private Sub Command1_Click()
Call Text1_KeyPress(65)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
a = KeyAscii
KeyAscii = a
End Sub
'*************************************
Las dos sentencias de asignación son para haya algo de código y VB no borre
el procedimiento.

Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
mismo, como debe ser.
Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código ascii
65) en el TextBox, que es precisamente lo que quiero conseguir.
En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
caso de haber pulsado la tecla estando en el TextBox se escribe en el mismo.

¿Hay alguna forma de hacer lo que yo pretendo?

No quiero usar cosas como Text1.text = Text1.tex & letra

Gracias a todos.

Socaire

Que tiene de malo Text1.SelText = Letra ?

"Socaire" <aire***viento.com> escribió en el mensaje
news:dg9348$2l7$1***domitilla.aioe.org...
> Saludos.
>
> Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
> se da una circunstancia en otra parte del programa y pasarle un valor
> ascii
> para que lo escriba.
>
> Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.
>
> Tengo un formulario con, solamente, un TextBox y un CommandButton.
> El código asociado es el siguiente:
> '*****************************
> Private Sub Command1_Click()
> Call Text1_KeyPress(65)
> End Sub
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> a = KeyAscii
> KeyAscii = a
> End Sub
> '*************************************
> Las dos sentencias de asignación son para haya algo de código y VB no
> borre
> el procedimiento.
>
> Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
> mismo, como debe ser.
> Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código
> ascii
> 65) en el TextBox, que es precisamente lo que quiero conseguir.
> En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
> Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
> caso de haber pulsado la tecla estando en el TextBox se escribe en el
> mismo.
>
> ¿Hay alguna forma de hacer lo que yo pretendo?
>
> No quiero usar cosas como Text1.text = Text1.tex & letra
>
> Gracias a todos.
>
> Socaire
>
>

Que tiene de malo Text1.SelText = Letra ?

"Socaire" <aire***viento.com> escribió en el mensaje
news:dg9348$2l7$1***domitilla.aioe.org...
> Saludos.
>
> Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
> se da una circunstancia en otra parte del programa y pasarle un valor
> ascii
> para que lo escriba.
>
> Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.
>
> Tengo un formulario con, solamente, un TextBox y un CommandButton.
> El código asociado es el siguiente:
> '*****************************
> Private Sub Command1_Click()
> Call Text1_KeyPress(65)
> End Sub
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> a = KeyAscii
> KeyAscii = a
> End Sub
> '*************************************
> Las dos sentencias de asignación son para haya algo de código y VB no
> borre
> el procedimiento.
>
> Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
> mismo, como debe ser.
> Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código
> ascii
> 65) en el TextBox, que es precisamente lo que quiero conseguir.
> En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
> Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
> caso de haber pulsado la tecla estando en el TextBox se escribe en el
> mismo.
>
> ¿Hay alguna forma de hacer lo que yo pretendo?
>
> No quiero usar cosas como Text1.text = Text1.tex & letra
>
> Gracias a todos.
>
> Socaire
>
>

Que tiene de malo Text1.SelText = Letra ?

"Socaire" <aire***viento.com> escribió en el mensaje
news:dg9348$2l7$1***domitilla.aioe.org...
> Saludos.
>
> Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
> se da una circunstancia en otra parte del programa y pasarle un valor
> ascii
> para que lo escriba.
>
> Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.
>
> Tengo un formulario con, solamente, un TextBox y un CommandButton.
> El código asociado es el siguiente:
> '*****************************
> Private Sub Command1_Click()
> Call Text1_KeyPress(65)
> End Sub
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> a = KeyAscii
> KeyAscii = a
> End Sub
> '*************************************
> Las dos sentencias de asignación son para haya algo de código y VB no
> borre
> el procedimiento.
>
> Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
> mismo, como debe ser.
> Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código
> ascii
> 65) en el TextBox, que es precisamente lo que quiero conseguir.
> En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
> Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
> caso de haber pulsado la tecla estando en el TextBox se escribe en el
> mismo.
>
> ¿Hay alguna forma de hacer lo que yo pretendo?
>
> No quiero usar cosas como Text1.text = Text1.tex & letra
>
> Gracias a todos.
>
> Socaire
>
>

Que tiene de malo Text1.SelText = Letra ?

"Socaire" <aire***viento.com> escribió en el mensaje
news:dg9348$2l7$1***domitilla.aioe.org...
> Saludos.
>
> Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
> se da una circunstancia en otra parte del programa y pasarle un valor
> ascii
> para que lo escriba.
>
> Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.
>
> Tengo un formulario con, solamente, un TextBox y un CommandButton.
> El código asociado es el siguiente:
> '*****************************
> Private Sub Command1_Click()
> Call Text1_KeyPress(65)
> End Sub
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> a = KeyAscii
> KeyAscii = a
> End Sub
> '*************************************
> Las dos sentencias de asignación son para haya algo de código y VB no
> borre
> el procedimiento.
>
> Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
> mismo, como debe ser.
> Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código
> ascii
> 65) en el TextBox, que es precisamente lo que quiero conseguir.
> En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
> Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
> caso de haber pulsado la tecla estando en el TextBox se escribe en el
> mismo.
>
> ¿Hay alguna forma de hacer lo que yo pretendo?
>
> No quiero usar cosas como Text1.text = Text1.tex & letra
>
> Gracias a todos.
>
> Socaire
>
>

Que tiene de malo Text1.SelText = Letra ?

"Socaire" <aire***viento.com> escribió en el mensaje
news:dg9348$2l7$1***domitilla.aioe.org...
> Saludos.
>
> Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
> se da una circunstancia en otra parte del programa y pasarle un valor
> ascii
> para que lo escriba.
>
> Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.
>
> Tengo un formulario con, solamente, un TextBox y un CommandButton.
> El código asociado es el siguiente:
> '*****************************
> Private Sub Command1_Click()
> Call Text1_KeyPress(65)
> End Sub
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> a = KeyAscii
> KeyAscii = a
> End Sub
> '*************************************
> Las dos sentencias de asignación son para haya algo de código y VB no
> borre
> el procedimiento.
>
> Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
> mismo, como debe ser.
> Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código
> ascii
> 65) en el TextBox, que es precisamente lo que quiero conseguir.
> En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
> Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
> caso de haber pulsado la tecla estando en el TextBox se escribe en el
> mismo.
>
> ¿Hay alguna forma de hacer lo que yo pretendo?
>
> No quiero usar cosas como Text1.text = Text1.tex & letra
>
> Gracias a todos.
>
> Socaire
>
>

Que tiene de malo Text1.SelText = Letra ?

"Socaire" <aire***viento.com> escribió en el mensaje
news:dg9348$2l7$1***domitilla.aioe.org...
> Saludos.
>
> Quisiera provocar (o desencadenar) el evento KeyPress de un TextBox cuando
> se da una circunstancia en otra parte del programa y pasarle un valor
> ascii
> para que lo escriba.
>
> Por simplificar, he hecho un proyecto minúsculo para ilustrar esto.
>
> Tengo un formulario con, solamente, un TextBox y un CommandButton.
> El código asociado es el siguiente:
> '*****************************
> Private Sub Command1_Click()
> Call Text1_KeyPress(65)
> End Sub
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> a = KeyAscii
> KeyAscii = a
> End Sub
> '*************************************
> Las dos sentencias de asignación son para haya algo de código y VB no
> borre
> el procedimiento.
>
> Cuando pulso cualquier tecla estando en el TextBox, la letra aprace en el
> mismo, como debe ser.
> Ahora bién, cuando pulso el CommandButton, no aparece una "A" (código
> ascii
> 65) en el TextBox, que es precisamente lo que quiero conseguir.
> En seguimiento paso a paso, se pasa por las instrucciones de Private Sub
> Text1_KeyPress en cualquiera de los dos casos, pero como digo, solo en el
> caso de haber pulsado la tecla estando en el TextBox se escribe en el
> mismo.
>
> ¿Hay alguna forma de hacer lo que yo pretendo?
>
> No quiero usar cosas como Text1.text = Text1.tex & letra
>
> Gracias a todos.
>
> Socaire
>
>

"X" <x***xx.guay> escribió en el mensaje
news:dge4f4$1te$1***nsnmrro2-gest.nuria.telefonica-data.net...
> Que tiene de malo Text1.SelText = Letra ?
>
Ocurre que no siempre son "letras", a veces son "comandos" como Backspace.
En ese caso, de esa forma escribe un caracter "extraño" y se produce el
efecto de borrar.

Gracias por tu interés.

Socaire.

"X" <x***xx.guay> escribió en el mensaje
news:dge4f4$1te$1***nsnmrro2-gest.nuria.telefonica-data.net...
> Que tiene de malo Text1.SelText = Letra ?
>
Ocurre que no siempre son "letras", a veces son "comandos" como Backspace.
En ese caso, de esa forma escribe un caracter "extraño" y se produce el
efecto de borrar.

Gracias por tu interés.

Socaire.

"X" <x***xx.guay> escribió en el mensaje
news:dge4f4$1te$1***nsnmrro2-gest.nuria.telefonica-data.net...
> Que tiene de malo Text1.SelText = Letra ?
>
Ocurre que no siempre son "letras", a veces son "comandos" como Backspace.
En ese caso, de esa forma escribe un caracter "extraño" y se produce el
efecto de borrar.

Gracias por tu interés.

Socaire.