[R] récupérer la position du curseur dans une editbox

[Cautex]

Bonjour,

J'ai cherché en vain un moyen de récupérer la position du curseur dans une editbox. En disant sa je pense plus précisément à récupérer le numéro du caractère auquel se situe le curseur.

Merci pour l'aide que vous m'apporterez.

[timmalos]

Plus de précisions ne seraient pas de refus.

Dans quelle finalité?
Quelle application?

[Cautex]

Bonjour timmalos,

Plus de précisions ne seraient pas de refus. -> Je t'ai fait un code en exemple qui devrait te permettre de comprendre exactement ce que je souhaite faire.

Quelle application? -> Je souhaite faire cela pour un gestionnaire de pièce via une base de donnée mysql pour mon entreprise.

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 400, 218, 192, 124)
$Edit1 = GUICtrlCreateEdit("test", 24, 8, 361, 145)
$label1 = GUICtrlCreateLabel("Appuyez sur la touche ENTREE pour Trouver la position du curseur dans $Edit1", 24, 168, 218, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{enter}","_enter")

While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[0]
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

func _enter()
    if Controlgetfocus(WinGetTitle($Form1)) <> "edit1" Then
        msgbox(0,"","impossible de trouver la position du curseur car $Edit1 n'est pas sélectionné","",$Form1)
    Else
        if guictrlread($Edit1) = "" Then
            msgbox(0,"","Le curseur se situe après le caractère 0 du texte contenu dans le control $Edit1 car $Edit1 est vide.","",$Form1)
        Else
            msgbox(0,"","Le curseur se situe après le caractère n du texte contenu dans le control $Edit1. Comment faire pour trouver le caractère n ?","",$Form1)
        EndIf
    EndIf
EndFunc
 

[Uranium]

Je crois que vous voulez ça :

► Afficher le texte

Code : Tout sélectionner

#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 440, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 96, 24, 241, 273)
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            $pos = _GUICtrlEdit_GetSel($Edit1)
            MsgBox(0,'','La sélection commence du ' &$pos[0] & "e caractère et s'étend jusqu'au " & $pos[1] & "e")

    EndSwitch
WEnd
 

Cordialement ,

[Cautex]

Génial c'est bien sa !

Merci Uranium.