un scroll_bar, façon maison

Le scroll_bar normal fonctionne bien, mais parfois il me pose des problèmes.
Prenons l'exemple d'un scroll_bar, qui en le déplaçant, mettre les pages différentes d'un memo: Si on veut aller directement à une page éloignée, au fur et à mesure du glissement il va afficher les pages intermédiaires. Il y a bien off_change, mais c'est pas si simple. Dans mon programme, une page modifiée est partie au codage qui prend du temps, et ensuite il faut décoder la page du curseur. Enfin bref celà ne va pas trop bien, et j'ai donc réalisé un scroll_bar qui permet de glisser et de s'arréter à la page voulu. Lorsqu'on relâche le bouton c'est cette page qui est visitée. De plus j'ai rajouté un edit glissant indiquant le n° de la page. Je sais qu'il y aura quelques détraqueur, mais je ferais avec. De plus mon scroll_bar a la particularité d'avoir la barre de glissement de hauteur variable selon le nombre de page, poir mieux comprendre, qui correspond à max d'un scroll_bar.

Le spin que j'ai mis, est pour marquer le nombre de pages.

Code:

label pos,pos1,traitement
dim y ,h ,p ,n
height 0,600

picture 10:left 10,200:top 10,20:height 10,500:width 10,22 :2d_target_is 10
spin 1:width 1,40:min 1,1:max 1,100:position 1,4 :' au hazard
edit 3:top 3,60
edit 4:left 4,198:width 4,24:height 4,16:font_size 4,8:color 4,255,255,193
timer 5:timer_interval 5,50:on_timer 5,pos
text 4,1
end
pos:
  n=position(1)
  if mouse_left_down(10)=1 then on_timer 5,pos1:else:return
pos1:
      y=mouse_y_position(10)    :  h=height(10)/n
      p=int(y/h)    : text 4,p+1  : top 4,p*h+3
      2d_pen_width 2 : 2d_pen_color 216,208,146 :2d_fill_color 183,172,117:2d_rectangle 2,p*h,20,(p+1)*h
      2d_fill_color 255,255,255 : 2d_pen_color 255,255,255
      2d_rectangle 0,0,22,p*h  : 2d_rectangle 0,(p+1)*h,22 , height(10)
      if mouse_left_up(10)=1 then on_timer 5,pos: text 3,p+1:gosub traitement :' on prend la position finale
return
traitement:
  message "page:"+text$(4)
return

Merci et bravo pour ton courage face aux détracteurs

C'est du beau de se moquer de quelqu'un qui n'a plus tout ses moyens (je n'arrive plus à sauter 1,70m, c'est désolant).
Je me demande souvent si cela vaut vraiment la peine de mettre des bouts de code, qui n'a d’intérêt que pour soi. En tout cas, c'est exactement ce dont j'avais besoin pour mon programme, et ça va bien mieux que le scroll original.
Il n'y a pas de détraqueurs, vu qu'il n'y a pas eu de réaction.
(Une parenthèse: malgrès l'age, j'arrive pas à m'imaginer d'avoir plus de 35 ans. Surement que je ne dois pas savoir compter) Et j’arrête là les remarques sur l'age dont finalement je n'ai que faire, c'est histoire de plaisanter.

Citation :

Je me demande souvent si cela vaut vraiment la peine de mettre des bouts de code, qui n'a d’intérêt que pour soi.

bien sur que oui ça vaut le coup de le faire...
j'ai grandement appris ici en observant et en testant les morceau de code des autres.
Et cela vaut pour tous les langages de programmation je pense.
Et moi meme si je fait des trucs potables(ou presque ) j'ai plaisir a les mettre en ligne pour les montrer aux autres.

@+