PureBasic

Code : Tout sélectionner

Procedure.i LenSelectedText(gad)
      t$=Space(999) : SendMessage_(GadgetID(gad),#EM_GETSEL, @startPos, @endPos)
      t$ = Mid(GetGadgetText(gad), startPos+1, endPos-startPos)
      Long = Len(t$)
      ProcedureReturn Long
    EndProcedure
    
    If OpenWindow(0, 0, 0, 250, 200, "test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
      
      Ed=StringGadget(1, 10, 10, 230, 50, "")
      StringGadget(2, 10, 70, 230, 20, "")
           
      SetGadgetText(1, "Je veux la longueur de CETTE SELECTION")
      SetActiveGadget(1)
      
      SendMessage_(ed, #EM_SETSEL,23,38) ; Selection
      
      SetGadgetText(2, "Nbr : " + Str (LenSelectedText (1)) ) ; Affiche la longueur de la selection
      
      Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    EndIf