realbasic-nug.fr
[Top] [All Lists]

Re: Probleme de touches

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Re: Probleme de touches
From: roland poulard <roland at sucellus dot net>
Date: Mon, 13 Aug 2007 22:52:24 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com

Le lundi, 13 aoû 2007, à 14:19 Europe/Paris, Antoine Crêtaux a écrit :

J'avoue que je ne comprends pas. J'ai deux projets. Dans la fenetre principale des deux je me place dans le keydown
pour l'un je fais

  Dim i as integer

  For i = 0 to Laliste.ListCount-1
    If left(laliste.cell(i,1),1) = key then
      Laliste.ListIndex = i
      Laliste.ScrollPosition = i
      exit
    End if
  Next

  return true

ce qui me permet de faire la sélection dans la liste

Pour le second je fais

  if (key = "V" or key ="v")  then
    if clip.picture <> nil then
      Cimage.backdrop = clip.picture
    End if
  End if

Ce qui me permet de coller l'image du presse papier dans un canvas.

Tout cela fonctionne normalement sauf que pour le premier projet tout se passe bien alors que cela ne fonctionne sur le deuxieme uniquement si je fais la touche "Pomme" en meme temps...

Je ne comprend pas pourquoi je suis obligé de faire cela. Il y a t il quelque part une propriété qui gère cela?

Je viens de faire un essai dans le keydown d'une fenetre vide avec le code ci-dessous

if (key="V" or key="v") then

  msgbox "Interception"

end if

cela marche tres bien, ce n'est donc probablement pas un probleme de touche, sauf si le keydown est traite a un niveau superieur



<Prev in Thread] Current Thread [Next in Thread>