Les Forums de PalmAttitude.org

Version complète : popup

Les Forums de PalmAttitude.org > GENERAL PalmOS > Développement sous PalmOS > Développement HB++

jdd

07/11/2007 à 16:11

Je ne comprends pas pourquoi ça ne fonctionne pas :

CODE

Private Sub Form_Load()
    popSpeed.AddItem "1"
    popSpeed.AddItem "10"
    popSpeed.AddItem "20"
    popSpeed.AddItem "40"
    popspeed.ListIndex=8
    UpdateState
End Sub

'---------------------------- Speed selected ----------------------

Private Sub popspeed_Change()

dim speed as integer
dim i as Integer
    i=popspeed.ListIndex
    if i>=0 then speed=cint(popspeed.ItemData(i))
    UpdateDisplay
End Sub

Si j'ajoute un toggle break point sur Update display
et que je cherche à évaluer popspeed.ItemData(i)
il écrit <cannot evaluate> alors que i=2 par exemple !

Je cherche depuis une heure.

palmgaulois

07/11/2007 à 16:21

soit une list popList,

) ajout d'élements:
PopList.AddItem db_doc.zNom, db_doc.zID

) récup données:
zID = popList.ItemData(popList.ListIndex)
zNom = poplist.List(poplist.ListIndex)
N° list = poplist.ListIndex

donc pour toi c'est

if i>=0 then speed=cint(popspeed.list(i))

par contre pourquoi tu met "popspeed.ListIndex=8" au début ?

jdd

07/11/2007 à 16:37

Merci pour cette réponse
Effectivement, j'ai vu qu'il fallait utiliser la propriété List dans le forum de HB++.

Mais ça ne parche toujours pas :

CODE

Private Sub popspeed_Change()
dim lInterval as integer
dim Speed as integer
dim Distance as integer
dim i as Integer

    distance=CInt(flddistance.Text)*100 'metres
    i=popspeed.ListIndex
    if i>=0 then speed=cint(popspeed.list(i))
    if speed<>0 then linterval=distance/speed
    linterval=linterval*1852/3600
    lCountDown=linterval
    UpdateDisplay

End Sub

J'ai toujours "popspeed.list(i) <cannot evaluate>

CITATION

par contre pourquoi tu met "popspeed.ListIndex=8" au début ?

J'ai résumé le code pour le forum : il y a une dizaine d'items.
Je fixe à 8 dans le "Form_load" pour ne pas que soit afficher "popup" au démarrage.

jdd

07/11/2007 à 17:37

Même avec la propriété "List", j'obtiens le message <cannot evaluate> :

CODE

if i>=0 then speed=cint(popspeed.list(i))

Je ne comprends pas puisque i est plus petit que le nombre d'items

Payalba

07/11/2007 à 18:40

Ce n'est pas grave.

C'est le debogeur qui n'arrive pas à évaluer l'expression
A priori le porgramme fonctonne correctement.

Pour visualiser la valeur tu peux toujours utiliser la fonction debugprint.

jdd

08/11/2007 à 09:51

C'est exact !
Ca marche, c'est le deboggueur qui ne parvenait pas à évaluer.
Merci !

Ceci est une version "bas débit" de notre forum. Pour voir la version complète avec plus d'information, la mise en page et les images, veuillez cliquer ici.