Como hago que un TextBox no titile el cursor?

http://msdn.microsoft.com/library/d...ecaret.asp

(en una sola línea)


Saludos,
Alex


"Marcelo Ibarra" wrote in message
news:

Hola a todo el foro, cómo hago para que en un textbox este el focus
pero que no aparezca el cursor o no titile, algo asi como la calculadora

de

windows.

Marcelo Ibarra.

Gracias Alex por tu ayuda.
Sabes que quiero que funcione el punto pero no funciona, podrias ayudarme
nuevamente?

Marcelo Ibarra.

"Alex Martínez" escribió en el mensaje
news:#

Pues, si te fijas, verás que la calculadora no se comporta como un

TextBox.

No te deja escribir en ella ni "poner el foco" en lo que se parece a un
TextBox.
Por tanto, podrías simularlo con un control Label y capturando las
pulsaciones los eventos del formulario.
Te paso un pequeño ejemplo que acabo de hacer, para que te quede más claro
(no esperes gran cosa, sólo he escrito cuatro líneas para que veas a qué

me

refiero).


Saludos,
Alex


"Marcelo Ibarra" wrote in message
news:%
> Gracias Alex, pero lo veo tan complicado que no logro entenderlo.
> Hay otro camino el cual me puedas ayudar u otra sugerencia.
> Quiero crear una pantalla como la de la Calculadora de Windows.
>
> Marcelo Ibarra.
>
> "Alex Martínez" escribió en el mensaje
> news:#
> >
>

http://msdn.microsoft.com/library/d...inui/winui

>

/windowsuserinterface/resources/carets/caretreference/caretfunctions/hidecar

> et.asp
> >
> > (en una sola línea)
> >
> >
> > Saludos,
> > Alex
> >
> >
> > "Marcelo Ibarra" wrote in message
> > news:
> > > Hola a todo el foro, cómo hago para que en un textbox este el focus
> > > pero que no aparezca el cursor o no titile, algo asi como la
calculadora
> > de
> > > windows.
> > >
> > > Marcelo Ibarra.
> > >
> > >
> >
> >
>
>

En el evento del Case, añade una sentencia If

Algo así como:

If Not Me.ActiveControl Is Text1 Then
Select Case KeyCode
Case vbKey0 To vbKey9
Call cmdNumber_Click(KeyCode - vbKey0)
Case vbKeyNumpad0 To vbKeyNumpad9
Call cmdNumber_Click(KeyCode - vbKeyNumpad0)
Case vbKeyDecimal
If InStr(lblDisplay.Caption, ".") = 0 Then
lblDisplay.Caption = lblDisplay.Caption & "."
End If
Case vbKeyBack
If Len(lblDisplay.Caption) > 0 Then
lblDisplay.Caption = Left$(lblDisplay.Caption,
Len(lblDisplay.Caption) - 1)
End If
Case vbKeyDelete
lblDisplay.Caption = ""
Case Else
End Select
End If


Saludos,
Alex


"Marcelo Ibarra" wrote in message
news:%

Alex quiero hacerte otra preguntas, quiero agregar un textbox para añadir
datos, resulta que a la vez que escribo en el mismo tambien lo hace en el
label que está como pantalla, ¿cómo puedo hacer para que por un momento

solo

se cargue en el TextBox??

Marcelo Ibarra.

"Alex Martínez" escribió en el mensaje
news:O#
> Ya te dije que sólo era un ejemplo para empezar.
> Deberás tener en cuenta muchas más cosas.
>
> Para considerar también la tecla del punto decimal tendrás que añadir

otro

> "Case":
> Case vbKeyDecimal
> If InStr(lblDisplay.Caption, ".") = 0 Then
> lblDisplay.Caption = lblDisplay.Caption & "."
> End If
>
> Si quieres que funcione la tecla "BackSpace":
> Case vbKeyBack
> If Len(lblDisplay.Caption) > 0 Then
> lblDisplay.Caption = Left$(lblDisplay.Caption,
> Len(lblDisplay.Caption) - 1)
> End If
>
> Si quieres que la tecla "Supr" borre el contenido:
> Case vbKeyDelete
> lblDisplay.Caption = ""
>
> Y aún te harán falta MUUUUCHAAAAAS cosas más (por ejemplo, todos los
> operadores). Pero te las dejo a ti, porque si no...
>
>
> Saludos,
> Alex
>
>
> "Marcelo Ibarra" wrote in message
> news:ebeS%
> > Gracias Alex por tu ayuda.
> > Sabes que quiero que funcione el punto pero no funciona, podrias
ayudarme
> > nuevamente?
> >
> > Marcelo Ibarra.
> >
> > "Alex Martínez" escribió en el mensaje
> > news:#
> > > Pues, si te fijas, verás que la calculadora no se comporta como un
> > TextBox.
> > > No te deja escribir en ella ni "poner el foco" en lo que se parece a
un
> > > TextBox.
> > > Por tanto, podrías simularlo con un control Label y capturando las
> > > pulsaciones los eventos del formulario.
> > > Te paso un pequeño ejemplo que acabo de hacer, para que te quede más
> claro
> > > (no esperes gran cosa, sólo he escrito cuatro líneas para que veas a
qué
> > me
> > > refiero).
> > >
> > >
> > > Saludos,
> > > Alex
> > >
> > >
> > > "Marcelo Ibarra" wrote in message
> > > news:%
> > > > Gracias Alex, pero lo veo tan complicado que no logro entenderlo.
> > > > Hay otro camino el cual me puedas ayudar u otra sugerencia.
> > > > Quiero crear una pantalla como la de la Calculadora de Windows.
> > > >
> > > > Marcelo Ibarra.
> > > >
> > > > "Alex Martínez" escribió en el mensaje
> > > > news:#
> > > > >
> > > >
> > >
> >
>

http://msdn.microsoft.com/library/d...inui/winui

> > > >
> > >
> >
>

/windowsuserinterface/resources/carets/caretreference/caretfunctions/hidecar

> > > > et.asp
> > > > >
> > > > > (en una sola línea)
> > > > >
> > > > >
> > > > > Saludos,
> > > > > Alex
> > > > >
> > > > >
> > > > > "Marcelo Ibarra" wrote in message
> > > > > news:
> > > > > > Hola a todo el foro, cómo hago para que en un textbox este el
> focus
> > > > > > pero que no aparezca el cursor o no titile, algo asi como la
> > > calculadora
> > > > > de
> > > > > > windows.
> > > > > >
> > > > > > Marcelo Ibarra.
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> > >
> >
> >
>
>