Faire clicker un bouton tout seul en VB2008
Résolu
sk410
Messages postés
201
Date d'inscription
Statut
Membre
Dernière intervention
-
Sputnik -
Sputnik -
Bonjour,
Comment faire cliquer le bouton de mon logiciel tout les 15 secondes par exemples ? ou du moin si vous savez pas pour les secondes juste comment faut il s'y prendre merci ;)
Comment faire cliquer le bouton de mon logiciel tout les 15 secondes par exemples ? ou du moin si vous savez pas pour les secondes juste comment faut il s'y prendre merci ;)
A voir également:
- Faire clicker un bouton tout seul en VB2008
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
- Son dans un seul écouteur avec fil ✓ - Forum Audio
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Comment débloquer un bouton enfoncé - Forum Samsung
9 réponses
Salut,
Tu crée un timer calibrer pour exécuter une fonction toute les 15secondes tu crée une procédure avec le code a exécuter tu fais un appel cette procédure sur l'event Click du Bouton et sur L'event Tick du Timer.
Nico#
Tu crée un timer calibrer pour exécuter une fonction toute les 15secondes tu crée une procédure avec le code a exécuter tu fais un appel cette procédure sur l'event Click du Bouton et sur L'event Tick du Timer.
Nico#
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci Nico de me répondre mais je commence en VB et je n'y connais pas dans ce code ci stp peut tu me le dire je l'apprend par coeur après ;):'(
Alors j'explique avec du code cette fois si par exemple la prodedure du click Bouton affiche le message Salut
Private Sub CliqueDuBouton ()
MessageBox.Show("Salut")
End Sub
// la c'est la procedure crée a part.
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
CliqueDuBouton()
End Sub
// A Chaque clic sur le bouton on fais appelle a la procédure CliqueDuBouton() que l'on a crée précedemment.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
CliqueDuBouton()
End Sub
// appelle la fontion CliqueDuBouton() toutes les n secondes avec n = le temps calibrer dans les parametre du timer.
Enesperant vous avoir aidé.
Private Sub CliqueDuBouton ()
MessageBox.Show("Salut")
End Sub
// la c'est la procedure crée a part.
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
CliqueDuBouton()
End Sub
// A Chaque clic sur le bouton on fais appelle a la procédure CliqueDuBouton() que l'on a crée précedemment.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
CliqueDuBouton()
End Sub
// appelle la fontion CliqueDuBouton() toutes les n secondes avec n = le temps calibrer dans les parametre du timer.
Enesperant vous avoir aidé.
Pour clicker, il y a surement une propriété de mouse dans Win32.
Voici un exemple d'utilisation du timer poour afficher un message quand on clicke sur l'écran.
Imports Microsoft.Win32 'VB2008
Public Class Form1
Dim Etiquette As New Label
Dim WithEvents Clock As New Timer
Public Event ClickSouris _
(ByVal Position As Point)
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
SetBounds(Location.X, Location.Y, 300, 150)
TopMost = True
Controls.Add(Etiquette)
Etiquette.Dock = DockStyle.Fill
Clock.Interval = 100
'L'inconvénient c'est qu'on peut pas
'clicker plus de cent fois par seconde
Clock.Start()
End Sub
Friend Sub Clock_Tick() Handles Clock.Tick
If MouseButtons() = _
Windows.Forms.MouseButtons.Left Then
RaiseEvent ClickSouris(MousePosition)
End If
End Sub
Friend Sub Essai(ByVal Position As Point) _
Handles Me.ClickSouris
Etiquette.Text = _
("Le Bouton de la souris fut enfoncé " _
& vbLf & " en X= " & Position.X _
& " Y= " & Position.Y)
End Sub
End Class
Voici un exemple d'utilisation du timer poour afficher un message quand on clicke sur l'écran.
Imports Microsoft.Win32 'VB2008
Public Class Form1
Dim Etiquette As New Label
Dim WithEvents Clock As New Timer
Public Event ClickSouris _
(ByVal Position As Point)
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
SetBounds(Location.X, Location.Y, 300, 150)
TopMost = True
Controls.Add(Etiquette)
Etiquette.Dock = DockStyle.Fill
Clock.Interval = 100
'L'inconvénient c'est qu'on peut pas
'clicker plus de cent fois par seconde
Clock.Start()
End Sub
Friend Sub Clock_Tick() Handles Clock.Tick
If MouseButtons() = _
Windows.Forms.MouseButtons.Left Then
RaiseEvent ClickSouris(MousePosition)
End If
End Sub
Friend Sub Essai(ByVal Position As Point) _
Handles Me.ClickSouris
Etiquette.Text = _
("Le Bouton de la souris fut enfoncé " _
& vbLf & " en X= " & Position.X _
& " Y= " & Position.Y)
End Sub
End Class