posicion del cursor

14/08/2004 - 00:25 por fco | Informe spam
como puedo saber la posicion del cursor dentro de un
cuador de texto ( no es el cursor del mouse) . Es para
hacer algo parecido a lo que realiza vb.net cuando a un
nombre de objeto se le coloca un punto y aparece una lista
con todas sus propiedades. Por eso necesito saber la
ubicacion del cursor para posicionar el objeto (listview).

Preguntas similare

Leer las respuestas

#1 44r0x0r44
16/08/2004 - 02:30 | Informe spam
como puedo saber la posicion del cursor dentro de un
cuador de texto ( no es el cursor del mouse) . Es para
hacer algo parecido a lo que realiza vb.net cuando a un
nombre de objeto se le coloca un punto y aparece una lista
con todas sus propiedades. Por eso necesito saber la
ubicacion del cursor para posicionar el objeto (listview).
.




Que yo sepa VB.NET no ofrece la posibilidad de saber donde
está el cursor pero en realidad para lo que quieres hacer
no necesitas saberlo, te propongo lo siguiente:

En el evento OnChange del cuadro de texto, comprueba si el
caracter introducido es un "."c, y, de ser así, analiza el
string desde el inicio hasta la posición del "."c y en base
de lo obtenido, despliega el listview.

¿Te parece wena idea ;)?
Respuesta Responder a este mensaje
#2 Pedro Luna Montalvo \(MVP\)
18/08/2004 - 18:06 | Informe spam
Saludos, te agrego un código simple donde se muestra la posicion del Caret
dentro de una caja de texto.

Nota el resultado cuando seleccionas varios caracteres del contenido de la
caja de texto, cuando das un clic o doble clic sobre el contenido.

Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class PruebaControlCaret
Inherits System.Windows.Forms.Form

Public Shared Sub Main()
Application.Run(New PruebaControlCaret())
End Sub

Private WithEvents CajaTexto As TextBox

Public Sub New()
Me.CajaTexto = New TextBox()
Me.CajaTexto.Location = New Point(10, 10)
Me.Controls.Add(Me.CajaTexto)
End Sub

Private Sub ImprimirPosicionCaret()
If Me.CajaTexto.SelectionLength = 0 Then
Me.Text = "Caret en posición: " & Me.CajaTexto.SelectionStart
Else
Me.Text = "Caret en posición: " & Me.CajaTexto.SelectionStart &
_
" o " & (Me.CajaTexto.SelectionStart +
Me.CajaTexto.SelectionLength)
End If
End Sub

Private Sub ImprimirPosicionCaret(sender As Object, e As KeyEventArgs) _
Handles CajaTexto.KeyDown, CajaTexto.KeyUp
Me.ImprimirPosicionCaret()
End Sub

Private Sub ImprimirPosicionCaret(sender As Object, e As EventArgs) _
Handles CajaTexto.Click, CajaTexto.DoubleClick, CajaTexto.Enter
Me.ImprimirPosicionCaret()
End Sub
End Class


La posicion del Caret se muestra en el titulo de la ventana.

Saludos

Pedro Luna, MVP
Gye, Ecu



"fco" escribió en el mensaje
news:607801c48184$7283e850$
como puedo saber la posicion del cursor dentro de un
cuador de texto ( no es el cursor del mouse) . Es para
hacer algo parecido a lo que realiza vb.net cuando a un
nombre de objeto se le coloca un punto y aparece una lista
con todas sus propiedades. Por eso necesito saber la
ubicacion del cursor para posicionar el objeto (listview).
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida