Mon PC serait-il ensorcelé

Bonjour à tous,

Soit j'ai besoin de vacances, soit j'ai un problème avec le nouvelle version de PANORAMIC.

Maintenant c'est la fonction text 1,"" qui ne marche pas.

Quelqu'un peut-il me tester ce code pour voir si le combo est vidé quand on sélectionne "SELECTION REFUSEE"
Voici le code:

Code:

label quit,controlcombo

dim a$

left 0,223
top 0,182
width 0,550
height 0,492
caption 0,"Form 0"
 
combo 1
left 1,114
top 1,86
item_add 1,"BONJOUR"
item_add 1,"BONSOIR"
item_add 1,"SELECTION REFUSEE"
on_click 1,controlcombo

button 2
left 2,161
top 2,248
caption 2,"quitter"
on_click 2,quit

end

controlcombo:
a$=text$(1)
if a$="SELECTION REFUSEE" then message "SELECTION REFUSEE":text 1,"":return
print_locate 110,150:print a$
return

quit:
terminate

A+

Bonjour Jean Claude
Je viens de voir ton message qui date de plusieurs jours. J'ai été surpris par ce que je pensais pas récupérer une ligne d'un combo par TEXT$( ), moi j'utilise item_index() ou item_index$(). Mais j'ai une solution. Je pense que comme moi, tu veux cacher un texte qui reste en surbrillance. Je n'ai pas trouvé de solution avec combo, vu qu'on ne peut pas imposer un texte, autre qu'en ajoutant un autre par item_add; et il n'existe actuellement pas de commande d'imposition d'index comme en justbasic par je crois:print#handle.ext,"selectindex i"
Donc j'ai fais un EDIT de superposition sur le COMBO. On voit l'objet combo, mais en réalité on est sur EDlT, la largeur est diminuée pour voir la flèche du combo. Voici le code:

Code:

label quit,controlcombo

dim a$

left 0,223 :top 0,182 :width 0,550 :height 0,492 :caption 0,"Form 0"

combo 1:left 1,114 :top 1,86:width 1,150:item_add 1,"BONJOUR"
item_add 1,"BONSOIR":item_add 1,"SELECTION REFUSEE" :on_click 1,controlcombo

button 2 :left 2,161 :top 2,248 :caption 2,"quitter":on_click 2,quit

edit 3:top 3,87:left 3,114:width 3,130:height 3,18

end

controlcombo:
a$=text$(1)
if a$="SELECTION REFUSEE" then message "SELECTION REFUSEE":text 1,"":return
print_locate 110,150:print a$
return

quit:
terminate

J'espère que pour une fois ma réponse te conviendra.
A+

suite
J'ai fais text 1,"" à la place de text 3,"". Mais ça marche aussi.
Salut

Merci Cosmos70,

Ton edit 3 c'est astucieux. Mais j'ai trouvé mieux. Je rempli le COMBO par un sous-programme rempli1 et j'utilise la fonction CLEAR 1.

Voila ce que çà donne.

Code:

label quit,controlcombo,rempli1

dim a$

left 0,223 :top 0,182 :width 0,550 :height 0,492 :caption 0,"Form 0"

combo 1:left 1,114 :top 1,86:width 1,150
gosub rempli1

button 2 :left 2,161 :top 2,248 :caption 2,"quitter":on_click 2,quit

end

rempli1:
item_add 1,"BONJOUR"
item_add 1,"BONSOIR":item_add 1,"SELECTION REFUSEE" :on_click 1,controlcombo
return

controlcombo:
a$=text$(1)
if a$="SELECTION REFUSEE" then message "SELECTION REFUSEE":clear 1:gosub rempli1:return
print_locate 110,150:print a$
return

quit:
terminate

Mais je pensais que text 1,"" fonctionnait dans la précédente version.??

A+

En y réfléchissant, dans ma version, text 1 ou 3 est inutile. En effet le programme, comme dans d'autre basic, lit les objets à la suite, et dans ce cas il est très important que EDIT soit écrit après le COMBO. Parce que c'est lui qui a le dessus, donc dès que l'on passe à l'instruction suivante, EDIT se remet dessus. C'est pourquoi, lorsque l'on écrit un programme l'ordre des objets est souvent très important. Ainsi, si l'on doit remplir une liste de renseignements, par exemple simple: prénom - nom - adresse - etc..., le simple appui sur la touche TAB, passe à l'objet suivant, ce qui serait dérangeant dans n'importe quel ordre. Il faudrait utiliser set_focus.
CLEAR c'est bien. Par contre avec edit, on peut y mettre un texte qui précise l'objet du combo
Ainsi:

Code:

label quit,controlcombo

dim a$,ordre$
ordre$="choisi, c'est un ordre"

left 0,223 :top 0,182 :width 0,550 :height 0,492 :caption 0,"Form 0"

combo 1:left 1,114 :top 1,86:width 1,150:item_add 1,"BONJOUR"
item_add 1,"BONSOIR":item_add 1,"SELECTION REFUSEE" :on_click 1,controlcombo

button 2 :left 2,161 :top 2,248 :caption 2,"quitter":on_click 2,quit

edit 3:top 3,87:left 3,114:width 3,130:height 3,18 :text 3,ordre$

end

controlcombo:
a$=text$(1) ::text 3,a$:wait 1000
if a$="SELECTION REFUSEE" then message "SELECTION REFUSEE":text 3,ordre$:return
print_locate 110,150:print a$:text 3,ordre$
return

quit:
terminate

Ce qui est dit peut-être utile, pour d'autre. Quand à moi, je ne connais panoramic que depuis moins d'un mois, je n'ai pu essayer la fonction avant.
En y pensant je pense que l'ordre se fait selon les lignes du programme, et non celui des objets, il faudrait vérifier un jour.
Bonne journée