Faire clicker un bouton tout seul en VB2008 Résolu/Fermé

Question

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 ;)

sk410 · Answer

Merci de votre aide j'attend svp.. ^^

sk410 · Answer

ALORS !!!!!???? :'(:'(:'(:'(

sk410 · Answer

...

Nico# · Answer

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#

sk410 · Answer

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 ;):'(

Nico# · Answer

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é.

sk410 · Answer

MERCI BEAUCOUP c t pas si compliqué au final ^^ ! merci

sk410 · Answer

MERCI BEAUCOUP NICO C'EST SUPER !!!!

Sputnik · Answer

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

Faire clicker un bouton tout seul en VB2008

9 réponses

Discussions similaires