CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

Visual Basic Mouse

Deltrex
Deltrex
Niveau 7
30 octobre 2004 à 20:32:32

Salut comment peut-on faire pour simuler l´appui du boutton gauche de la souris ?
J´ai essayer sendkey mouse(button1) mais sans succès...
( si possible avec les coordonnées X et Y. Ex: sendkeys mouse(button1) at ( 143, 512)
la j´ai dis n´importe quoi mais en gros c´est sa. merci d´avance !

dnob700
dnob700
Niveau 10
31 octobre 2004 à 02:33:22

sendkey c´est pour des touches sur le clavier.

pour les boutons de la souris.
Ou bien tu veux l´envoyer à une fueille de ton programme.
auquel cas c´est très simple, tu fait : Form_MouseMove(1,0, x, y)
1 c´est pour le bouton gauche et 2 pour le bouton droit et x et y les coordonné dans le système de coordonée de la feuille en question.

si la feuille ne fait pas partie de ton programme en VB c´est plus complexe, car il faut utiliser l´api, mais pour ça, il te faut le hwnd de la feuille. Tu peut l´avoir en mimant l´action de sendkey avec FindWindow, mais c´est l´API win32, et ensuite envoyer un mesasge à la fenêtre en question ( précisement le message WM_NCHITTEST), mais bon, ça n´a aucun interet car tu ne peut pas determiner la position où tu doit envyer ( tu peut fournir des coordonné, mais à quoi bon ? ), et en plus c´est chiant.

donc si tu veur le faire sur une fenêtre VB tu appel directement form_mousemove ( tu remplace form par le nom de ta fenêtre) sinon tu fait pas.

Deltrex
Deltrex
Niveau 7
31 octobre 2004 à 15:24:33

désolé mais je ne comprend pas...
et une autre question :
simuler l´appui de ALT TAB
j´ai essayer
SendKeys " {ALT}" + " {TAB}"
mais sa ne marche pas...
et pour la souris c´est la première option qui m´intéresse...

Deltrex
Deltrex
Niveau 7
31 octobre 2004 à 15:30:33

et une autre question au lieu de crer un topic inutile...
si j´ai un timer et que je le règle a 10 secondes ( interval = 10000) et que je met 3 action dedans :
Private Sub Timer1_Timer()
SendKeys " salut"
SendKeys " bonjour"
SendKeys " allo"
End Sub
mais je voudrais qu´il dise bonjour apres 20 secondes, et allo apres 30 secondes.
Vous comprenez? je veux qu´il effectue une action
à la fois. Car en ce moment il dira : salutbonjourallo en au bout du 10 secondes
Merci d´avance !

dnob700
dnob700
Niveau 10
31 octobre 2004 à 15:52:17

Ce qui est important c´est de lire le mode d´emploi.

la fonction sendkeys, si je l´utilise :
sendkeys message TO toutlemonde " truc" ne fera rien du tout, je veux dire que tu ne peut pas imaginer la syntaxe.

bon, pour faire alt tab, c´est :
SendKeys " %{TAB}"

pour la souris c´est très simple : si ta feuille s´apppelle form1 alors tu tape là où tu veux :
form1_MouseDown(1, 0, X, Y )
pour un clique gauche à la position ( x,y) et tu remplace 1 par 2 pour un clique droit.
et tu remplace x et y pas les coordonnées ou tu veux qu´il y ait le clique.

dnob700
dnob700
Niveau 10
31 octobre 2004 à 15:55:19

et pour le timer, l´une des méthode serait de créer une variable globale que tu appelle par exemple timer_nbappel de type byte.

et ensuite tu fait :

Private Sub Timer1_Timer()
if timer_nbappel=2 then
SendKeys " allo"
timer1.enabled=false
timer_nbappel=0
elseif timer_nbappel=1 then
SendKeys " bonjour"
timer_nbappel=2
elseif timer_nbappell=0
SendKeys " salut"
timer_nbappel=1
endif
end Sub

sinon tu peut utiliser plusieurs timer.

Deltrex
Deltrex
Niveau 7
31 octobre 2004 à 18:02:59

pour le boutton droit :
form1_MouseDown(1, 0, 100, 100)
Erreur : expected =

Deltrex
Deltrex
Niveau 7
31 octobre 2004 à 18:04:39

boutton gauche ***

dnob700
dnob700
Niveau 10
31 octobre 2004 à 20:00:47

c´est uen procédure pas une fonction donc vire les parenthèses.

c´esdt le genre de truc que tu devrait savoir.

Deltrex
Deltrex
Niveau 7
31 octobre 2004 à 20:47:47

sa me fais toujours des foutus erreurs...
C´est dans le form load qui faut le mettre?

Private Sub Form_Load()
Form1_MouseDown 1, 0, 100, 100
End Sub

Sub or fonction not defined

dnob700
dnob700
Niveau 10
31 octobre 2004 à 22:39:49

mais ça dépend, il faut le mettre là où tu veux qu´il envoie un clique de souris à ton application.

et mets form_mousedown pas form1 si c´est la même form, a moins que tu ne puisse faire form1.mousedown essaye je en me souvient plus, ça fait quelques mois que je n´ai plus fait de VB.

Sous forums
  • Aide à l'achat Mac
  • Création de sites web
  • Internet
  • Macintosh
  • Création de Jeux
  • Linux
  • Programmation
  • Steam Deck
  • Hardware
La vidéo du moment