none
probleme developement RRS feed

  • Question

  • Bonjour,

    je voudrais developer un programme qui me permettrais de cliquer sur un certain endroit a une certaine heure. J'ai la position de ma souris mais le seul probleme c'est que des le debut je ne sais pas quoi faire.

    merci

    P.S: ce n'est pas mon premier programme en vba.

    mercredi 6 juin 2012 17:48

Réponses

  • Bonjour Black-Jack n° 91,

    Ce code répond sans doute à ta demande :

    Option Explicit On
    Public Class Form1
      Dim eX, eY As Integer
    
      Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
      End Sub
    
      Sub Form1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        MsgBox("Clique" & vbLf & vbLf & "colonne " & eX & " : ligne " & eY)
      End Sub
    
      Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        eX = e.X
        eY = e.Y
      End Sub
    
    End Class

    Par contre, pour la "certaine heure" c'est toi qui décides...

    Sinon, ici c'est du vbNet, pas du vbA, suite à ce que tu écris in fine.

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    • Proposé comme réponse EhJoe jeudi 7 juin 2012 11:04
    • Marqué comme réponse Ciprian Duduiala lundi 11 juin 2012 09:00
    mercredi 6 juin 2012 18:19
  • Attention aussi à la résolution Windows. LEs X et Y risquent de ne pas être les bons. Maintenant, faudrait savoir exactement ce que vous voulez faire.

    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    jeudi 7 juin 2012 10:52

Toutes les réponses

  • Bonjour Black-Jack n° 91,

    Ce code répond sans doute à ta demande :

    Option Explicit On
    Public Class Form1
      Dim eX, eY As Integer
    
      Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
      End Sub
    
      Sub Form1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        MsgBox("Clique" & vbLf & vbLf & "colonne " & eX & " : ligne " & eY)
      End Sub
    
      Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        eX = e.X
        eY = e.Y
      End Sub
    
    End Class

    Par contre, pour la "certaine heure" c'est toi qui décides...

    Sinon, ici c'est du vbNet, pas du vbA, suite à ce que tu écris in fine.

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    • Proposé comme réponse EhJoe jeudi 7 juin 2012 11:04
    • Marqué comme réponse Ciprian Duduiala lundi 11 juin 2012 09:00
    mercredi 6 juin 2012 18:19
  • Attention aussi à la résolution Windows. LEs X et Y risquent de ne pas être les bons. Maintenant, faudrait savoir exactement ce que vous voulez faire.

    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    jeudi 7 juin 2012 10:52