Discussion :

[Hervy]

Bonjour
je voudrez afficher une liste (aide à la saisir) dans un textBoxe multilines a la position du curseur clavier , mais j'arrive pas de le faire.

merci d'avance

[Pol63]

une solution possible doit être de faire une classe inherits textbox qui sur keypress voit s'il faut afficher ou non la liste de possibilités
celle ci dans une fenetre topmost qui gère le lostfocus pour se fermer

enfin c'est une idée

[Hervy]

une solution possible doit être de faire une classe inherits textbox qui sur keypress voit s'il faut afficher ou non la liste de possibilités
celle ci dans une fenetre topmostqui gère le lostfocus pour se fermer

enfin c'est une idée

merci Pol63 mais est ce qu'il ya pas une solution simple par exemple connaitre les coordonnées en points(x,y) du curseur clavier pour localiser la listBox.

[mactwist69]

merci Pol63 mais est qu'il ya pas une solution simple par exemple connaitre les coordonnées en points(x,y) du curseur clavier pour localiser la listBox.

Mais... trouver les coordonnées du curseur, ça il faudra le faire quoiqu'il arrive... facile, c'est les coordonnées du curseur

Pol63 parlait juste de comment créer ce textbox au style Intellisense.
Et les trucs dont il parle (lost focus, top most, héritage tec.) c'est pour simuler le comportement que tu cherches.

[Hervy]

Mais... trouver les coordonnées du curseur, ça il faudra le faire quoiqu'il arrive... facile, c'est les coordonnées du curseur

Pol63 parlait juste de comment créer ce textbox au style Intellisense.
Et les trucs dont il parle (lost focus, top most, héritage tec.) c'est pour simuler le comportement que tu cherches.

trouver les coordonnées du curseur, ça il faudra le faire quoiqu'il arrive... facile
Comment ???????

[Pol63]

google caret coordinates c# ca donne quelque chose ?

(c# et vb.net sont compatibles et convertibles, mais plus de sources sur c#)

[gnain]

C'est peut être un début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim Position_Cursor As Integer
    Dim Old_Position_Cursor As Integer
 
    Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
 
        Position_Cursor = TextBox1.GetLineFromCharIndex(TextBox1.GetFirstCharIndexOfCurrentLine)
 
        If Old_Position_Cursor <> Position_Cursor Then
            listbox.Location = New Point(Cursor.Position.X,Cursor.Position.Y) 
        End If
 
        Old_Position_Cursor = TextBox1.GetLineFromCharIndex(TextBox1.GetFirstCharIndexOfCurrentLine)
    End Sub

Si la ligne cliqué est différente de la précédente alors on repositionne la listbox

[Hervy]

C'est peut être un début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim Position_Cursor As Integer
    Dim Old_Position_Cursor As Integer
 
    Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
 
        Position_Cursor = TextBox1.GetLineFromCharIndex(TextBox1.GetFirstCharIndexOfCurrentLine)
 
        If Old_Position_Cursor <> Position_Cursor Then
            listbox.Location = New Point(Cursor.Position.X,Cursor.Position.Y) 
        End If
 
        Old_Position_Cursor = TextBox1.GetLineFromCharIndex(TextBox1.GetFirstCharIndexOfCurrentLine)
    End Sub

Si la ligne cliqué est différente de la précédente alors on repositionne la listbox

je n'ai pas besoin des coordonées de la souris , mais je veux celles du curseur clavier.

merci pour votre colaboration

[Hervy]

peut etre j'ai mal formulé la question,

j'ai placée un textBoxe multilines et une listBoxe masquée, mon objectif est d'afficher la liste au coordonnées du curseur clavier lorsque j'appuyé sur CTR+C

[mactwist69]

Comme te l'a informé Pol63, curseur clavier se dit Caret en anglais (ils font la distinction entre la souris et le clavier)
Petite recherche Google "MSDN get Caret Position" :

- pour un textbox :
TextBox.CaretIndex
https://msdn.microsoft.com/en-us/lib...v=vs.110).aspx

-Pour un RichTextBox :
RichTextBox.CaretPosition
https://msdn.microsoft.com/fr-fr/lib...v=vs.110).aspx

[mactwist69]

Oups, ça donne juste l'index...

Cela dit, avec cette info on peut quand même avoir la position en coordonnées en utilisant l'API User32 :

http://forums.codeguru.com/showthrea...x-mdi-app-help

[Hervy]

Oups, ça donne juste l'index...

Cela dit, avec cette info on peut quand même avoir la position en coordonnées en utilisant l'API User32 :

http://forums.codeguru.com/showthrea...x-mdi-app-help

Merci , c'est ça ce que j'ai voulu mais un petit pblm la proprieté whnd n'a pas reconue vs 2012

l'exemple c'est très ancien 1999 il pose beaucoup pbms

[mactwist69]

Je chercher un peu, mais ce qu'il y a de sur c'est qu'en effet le code est obsolète.

Déjà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.hwnd

doit être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TextBox1.Handle.ToInt32

Mais et surtout, la manière dont les fonction de l'API sont déclarés ne va pas.

Apparemment il faut faire un Import :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Imports System.Runtime.InteropServices

Et les déclarations ressemblent à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 <DllImport("user32.dll")> _
    Private Shared Function GetCaretPos(ByRef lpPoint As Point) As Long
    End Function
 
    <DllImport("user32.dll")> _
    Private Shared Function ClientToScreen(ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean
    End Function

Et ça marche

[Hervy]

Je chercher un peu, mais ce qu'il y a de sur c'est qu'en effet le code est obsolète.

Déjà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.hwnd

doit être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TextBox1.Handle.ToInt32

Mais et surtout, la manière dont les fonction de l'API sont déclarés ne va pas.

Apparemment il faut faire un Import :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Imports System.Runtime.InteropServices

Et les déclarations ressemblent à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 <DllImport("user32.dll")> _
    Private Shared Function GetCaretPos(ByRef lpPoint As Point) As Long
    End Function
 
    <DllImport("user32.dll")> _
    Private Shared Function ClientToScreen(ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean
    End Function

Et ça marche

Magnifique merci beaucoup, ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub ConsultFrm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Control And e.KeyCode = Keys.C Then 'Controle + C 
            Dim tCaret As Point
            Call GetCaretPos(tCaret) 'get the Caret Position in RichTextbox Coords
            Call ClientToScreen(MotifTxt.Handle.ToInt32, tCaret) 'get the Coords in Screen Coords
            MsgBox(tCaret.X & "---" & tCaret.Y)
        End If
    End Sub