Fond de feuille en fonction d'un index

Fond de feuille en fonction d'un index - VB/VBA/VBS - Programmation

Marsh Posté le 11-03-2005 à 21:33:56    

Je voudrai qu'une image de fond change en fonction du menu,  j'explique :  
J'ai une feuille  qui est pareil pour tout, mais en fonction de si c un nouveau client ou un nouveau membre du personnel, le fond change.  
j'ai deja un peu de code.. j'ai un select pour l'image :  

Code :
  1. Select Case Index
  2.         Case 0
  3.              Picture = LoadPicture(App.Path & "\fond_clt.jpg" )
  4.         Case 1
  5.              Picture = LoadPicture(App.Path & "\fond_forf.jpg" )
  6.         Case Else
  7.              Picture = LoadPicture(App.Path & "\fond_prod.jpg" )
  8.              
  9. End Select


 
 
 
et dans la feuille où il y a le menu, j'ai ca :  

Code :
  1. ajout.Show
  2. Index = 0
  3. Unload Menu

 
 
 
 
Aurai-je fais une érreur ? (certainement mais je ne vois pas laquelle  :( )

Reply

Marsh Posté le 11-03-2005 à 21:33:56   

Reply

Marsh Posté le 11-03-2005 à 22:32:29    

Ton code fonctionne ?

Reply

Marsh Posté le 11-03-2005 à 23:56:13    

Non justement, sinon je n'aurai pas posté :)
Cela ne marche pas :(

Reply

Marsh Posté le 12-03-2005 à 10:33:34    

OK : on va supposer que tu es en VB6.
Il faut que tu créé un fonction ou une procédure du genre :

Code :
  1. Function Menu(Index As Integer)
  2. Select Case Index
  3.     Case 0
  4.     frmMain.img_fond = App.Path & "\fond_clt.jpg"
  5.     Case 1
  6.     frmMain.img_fond = App.Path & "\fond_forf.jpg"
  7.     Case Else
  8.     frmMain.img_fond = App.Path & "\fond_prod.jpg"
  9. End Select
  10. End Function


Index est la valeur que l'on va faire varier depuis la commande du menu.
frmMain est la form surlaquelle va varier le fond d'écran.
Le contrôle img_fond est de type Image sur cette même form.
Maintenant pour savoir quelle image va être affichée, on créé la commande.

Code :
  1. 'Pour afficher l'image 0 on tape :
  2. Menu (0)
  3. ' Pour l'image 1 :
  4. Menu (1)
  5. 'etc etc


Voilà.

Reply

Marsh Posté le 14-03-2005 à 09:32:33    

Merci beaucoup, j'ai plus qu'a testé ca quand je pourrai ! :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed