Position d'une listBoxe dans un TextBoxe multilines

Version imprimable

11/02/2015, 12h26
Hervy

Position d'une listBoxe dans un TextBoxe multilines

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
11/02/2015, 13h20
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
11/02/2015, 14h11
Hervy

Citation:

Envoyé par 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 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.
11/02/2015, 14h42
mactwist69

Citation:

Envoyé par Hervy

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.
11/02/2015, 17h48
Hervy

Citation:

Envoyé par mactwist69

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 ???????
11/02/2015, 20h39
Pol63

google caret coordinates c# ca donne quelque chose ?

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

C'est peut être un début

Code:

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

Citation:

Envoyé par gnain

C'est peut être un début

Code:

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

12/02/2015, 09h42
Hervy

Reformulation

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
12/02/2015, 09h52
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
12/02/2015, 10h08
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
12/02/2015, 10h50
Hervy

Citation:

Envoyé par 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

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

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:

TextBox1.hwnd

doit être remplacé par

Code:

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:

Imports System.Runtime.InteropServices

Et les déclarations ressemblent à cela :
Code:

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

Citation:
Envoyé par 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:

TextBox1.hwnd

doit être remplacé par

Code:

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:

Imports System.Runtime.InteropServices

Et les déclarations ressemblent à cela :
Code:

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:

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