Redimensionnnement d'un memo quand on redim' son Form

 

 ' Redim  du memo dans un Form quand on change sa dimension

  label saluttim
  dim wiz70%,heis70%

 form 70
 left 70 , screen_x - 1000
 top 70 ,  1
 width 70,600
 height 70,screen_y -10
 caption 70 ," Listing "
 

 memo 71
 left 71,3
 top 71,0
 width 71,width(70) - 23
 height 71,height(70) -43
 parent 71 , 70
 bar_both 71

 timer 100
 timer_interval 100,50
 on_timer 100 , saluttim

end               

saluttim:
 if width(70) <> wiz70%  :  width 71,width(70) - 23  :  wiz70% = width(70)  : end_if : ' re-memo dans wiz70
 if height(70) <> heis70% :  height 71,height(70) -41 : heis70% = height(70) : end_if
return

[code]ton code ici[/code]

' Redim du memo dans un Form quand on change sa dimension

label saluttim

' tu peut utiliser les : pour mettre plusieurs commande à la suite exemple:
form 70 : left 70 , screen_x - 1000 : top 70 , 1 : width 70,600 : height 70,screen_y -10 : caption 70 ," Listing "

memo 71
left 71,3
top 71,0
width 71,width(70) - 23
height 71,height(70) -43
parent 71 , 70
bar_both 71

timer 100
timer_interval 100,50
on_timer 100 , saluttim  : ' la tu declanche déjà ton timer donc:
timer_on 100      : ' cette ligne ne sert a rien
' si tu le desactive a un moment donner, par contre, tu le réactivera avec la commande si dessus:)

end   

saluttim:
width 71,width(70) - 23
height 71,height(70) -41
return

end : ' ce end est inutile
' vive panoramic ;)

ton code ici