un peu d'aide sur MEMO avec BAR_VERTICAL [RESOLU]

' Code de Klaus datant de 08/2012

label aller

dim i%, s$

memo 1 : top 1,40 : left 1,10
for i%=1 to 30
  item_add 1,str$(i%)
next i%

' alpha 2 : top 2,10 : left 2,10                : ' Retrait de Minibug
'  caption 2,"Positionner à la ligne:"          : ' Retrait de Minibug
edit 3 : top 3,10 : left 3,120 : width 3,40

ON_CHANGE 3,aller                                : ' Ajout de Minibug

' button 4 : top 4,10 : left 4,170              : ' Retrait de Minibug
'  caption 4,"Aller..." : on_click 4,aller      : ' Retrait de Minibug

end

aller:
  s$ = text$(3)
  if numeric(s$)=0 then return
  i% = int(val(s$))
  if i%<1 or i%>count(1) then return
  item_insert 1,i%,"***"
  item_delete 1,i%
  return

dim i,tmp$,pos%
dim first%

dll_on "user32"

memo 10 : left 10,250 : bar_both 10
for i=1 to 100
   if i=10
      item_add 10,"**GAGNE!"
   else
      item_add 10,"0123456"
   end_if
next i
set_focus 10
' recuperer le contenu du memo dans une chaine
tmp$=text$(10)

' recherche le mot'GAGNE'
pos%=instr(tmp$,"GAGNE")

' positionne le curseur dans le mot trouvé
caret_position 10,pos%
' recupère la position du 1er caractère de la ligne courante
first%=dll_call4("SendMessageA",handle(10),187 ,0-1,0)   :' position du 1er caractere de la ligne; EM_LINEINDEX=187
' recherche le caractère de 'saut à la ligne suivante'
pos%=instr_pos(tmp$,chr$(10),pos%)

' met le mot trouvé en surbrillance
select_text 10,first%,pos%-first%

dll_off