begin process at 2012 02 16 05:49:27
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

Click long


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Click long

jeudi 1 février 2007 à 14:27:29 | Click long

gribouillex

Bonjour,

J'ai deux boutons de commande : à l'événement click, le premier incrémente une valeur, le second la décrémente.
J'aimerais savoir comment faire pour incrémenter/décrémenter en faisant un appui long (plutôt que de faire des séries de clicks...)

Merci pour toute aide.





jeudi 1 février 2007 à 14:36:33 | Re : Click long

lilo44

Réponse acceptée !
Bonjour,

C'est une bidouille mais j aurais fait ca avec un timer.

un truc du genre :

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.Text = Val(Text1) + 1
End Sub
jeudi 1 février 2007 à 14:48:38 | Re : Click long

PCPT

Administrateur CodeS-SourceS
salut,
la bidouille est bonne, c'est le principe.
et si tu veux que le temps de pression joue également, c'est-à-dire que plus tu appuies longtemps et plus le compteur accélère, tu peux jeter un oeil à cette source

++
PCPT   [AFCK]

Prenez un instant pour répondre à ce sondage svp
jeudi 1 février 2007 à 15:11:16 | Re : Click long

jrivet

Membre Club
Salut,
Ou alors tu peu le mettre dans l'événement click, mais au lieu de te servir de la souris tu te sert de la touche entrée une fois le focus sur le bon bouton.
(mais je ne suis pas sur d'avoir compris)...

@+: Ju£i€n
Pensez: Réponse acceptée
jeudi 1 février 2007 à 15:22:26 | Re : Click long

gribouillex

Merci pour toutes vos réponses. J'ai appliqué celle de lilo44 qui est parfaitement adaptée à ma situation.

A bientôt !
jeudi 1 février 2007 à 19:54:30 | Re : Click long

jmfmarques

Membre Club
C'est parfait, bien sur.

Mais pouquoi ne pas le faire avec un seul événement et sans ajout de contrôle timer ? (c'est largement réalisable)
jeudi 1 février 2007 à 19:58:54 | Re : Click long

jmfmarques

Membre Club
Et pour le coup applicable tel quel à VBA.
jeudi 1 février 2007 à 20:02:16 | Re : Click long

PCPT

Administrateur CodeS-SourceS
çà sent le code déjà terminé et prêt à l'emploi ^^
jeudi 1 février 2007 à 20:06:45 | Re : Click long

jmfmarques

Membre Club
Oui, PCPT (je m'ennuyais, alors...)

Ce code part du principe selon lequel même le champion du monde de maitrise de son poignet est incapable de rester totalement immobile.

Une form, un bouton de commande command1 et un label label1 (pour afficher, c'est tout...)

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static t As Single, d As Single
  If Button = 1 Then
    If d = 0 Then d = Timer
   
    If d > 0 Then t = Timer - d
    DoEvents
  Else
    Label1.Caption = t
    d = 0
  End If
End Sub

jeudi 1 février 2007 à 20:33:27 | Re : Click long

PCPT

Administrateur CodeS-SourceS
arf, désolé mais çà ne marchera que par hasard...

perso je suis un gros fumeur donc toujours une clop à la main, droite ou gauche.
là, pose des composants et copie du code, avec la clop à droite.
test : que dalle.
beh oui, avec la main occupée en même temps, la paume bouge la souris mais lors du click je ne la touche presque plus donc pas de move (sans compter que c'est une vielle souris à boule qui résiste, grâce aux poussières, à des vents extrêmes ^^)

et même pour un non-fumeur, on peut penser au stylet, au crayon de tablette graphique, à l'écran tactile, etc....


Prenez un instant pour répondre à ce sondage svp

1 2

Cette discussion est classée dans : long, click


Répondre à ce message

Sujets en rapport avec ce message

mise en veille de pc simple [ par laurent180 ] ce que je cherche est certainement simple mais sa fct pas ce que je veux c'est que quand je click sur un bouton que mon pc ce mette en veille.j'ai tro mise en veille simple [ par laurent180 ] ce que je cherche est certainement simple mais sa fct pas ce que je veux c'est que quand je click sur un bouton que mon pc ce mette en veille.j'ai tro SIMULER UN CLICK DROIT ? [ par cc22c ] Bonjour !J'ai reussi a faire bougé ma sourie, et maintenant je veux effectuer un clique droit en dehors de la form.... Je voudrais juste le bout de co Simulation d'un click de souris sur un bouton ReyCommand [ par Chatbour ] Salut à tous Comment simuler un click de souris sur un bouton ? (Je veux qu'un évennement Validate d'un TextBox le déclenche)..Le bouton est en fait u Pb de pile insuffisante [ par toto1980 ] J'ai menu qui s'affiche avec un click droit si je click droit puis click gauche ailleurs, j'ai l'erreur 28 " Espace pile insuffisant"Voici mon code:da Pb de pile insuffisante [ par toto1980 ] J'ai menu qui s'affiche avec un click droit si je click droit puis click gauche ailleurs, j'ai l'erreur 28 " Espace pile insuffisant"Voici mon code:da Pb de pile insuffisante [ par toto1980 ] J'ai menu qui s'affiche avec un click droit si je click droit puis click gauche ailleurs, j'ai l'erreur 28 " Espace pile insuffisant"Voici mon code:da Gérer un click long de la souris [ par Fennec74 ] Bonjour a tous, Je cherche un moyen de gérer un click long sur un bouton. Je m'explique, je doit créer une IHM et le produit en question a des appuis Probleme avec l'api mouse_event Lib "user32" [ par davidmaillard ] Bonjour Voilas je voudrais simulé le click gauche de ma souris. J'ai récupérer le code avec une fonction api, mais j'ai un petit soucis. Pour appele click automatique [ par firehc ] Bonjour,J'aimerais faire un click automatique, j'ai essayé :Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,498 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales