Discussion :

[pedro85]

Bonjour,
Je crée un programme de capture d'écran sous visual basic 2005 express edition,
je voudrai que lorsque l'on clique sur le bouton qui lance la capture le programme fasse une pause de x secondes avant la capture, x étant égal au contenu d'une textbox a coté du bouton, pour qu'ains lutilisateur puisse choisir le temps lui meme.
Suis-je clair??
merci de votre aide

[Aspic]

Bonjour,
Je crée un programme de capture d'écran sous visual basic 2005 express edition,
je voudrai que lorsque l'on clique sur le bouton qui lance la capture le programme fasse une pause de x secondes avant la capture, x étant égal au contenu d'une textbox a coté du bouton, pour qu'ains lutilisateur puisse choisir le temps lui meme.
Suis-je clair??
merci de votre aide

Utilise un thread et mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

System.Threading.Sleep(5000) 'attend 5 secondes

[tomlev]

Ben oui mais avec un Thread.Sleep ça va freezer l'IHM... c'est peut-être pas ce qu'il veut. Moi j'aurais plutot utilisé un Timer qui se lance au bout de 5 secondes.
A propos de timers, il y a ici un article très intéressant qui compare en détail les différents timers proposés par le Framework (en anglais)

[Aspic]

Ben oui mais avec un Thread.Sleep ça va freezer l'IHM... c'est peut-être pas ce qu'il veut. Moi j'aurais plutot utilisé un Timer qui se lance au bout de 5 secondes.
A propos de timers, il y a ici un article très intéressant qui compare en détail les différents timers proposés par le Framework (en anglais)

Je n'ai jamais eu de problème avec la méthode Sleep... On peut aussi utiliser un Timer mais quand on peut faire simple pourquoi chercher compliqué ?

[pedro85]

Merci mais en fait mon probleme ce n'est pas de faire faire une pause au programme ca je sais faire mais ce que je voudrais c'est que la valeur entrée par lutilisateur dans la textbox soit utilisée par la pause pour permettre a lutilisateur de la choisir lui meme

[Aspic]

Merci mais en fait mon probleme ce n'est pas de faire faire une pause au programme ca je sais faire mais ce que je voudrais c'est que la valeur entrée par lutilisateur dans la textbox soit utilisée par la pause pour permettre a lutilisateur de la choisir lui meme

Donc tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Temps as Integer = Cint(Textbox1.text)
Threading.Sleep(temps)

[pedro85]

Ben je ne comprends pas c'est ce que je fais.
Je vous join le code et une capture d'écran(justement lol) pour que vous compreniez mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Form1
 
    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Dim textebox As Integer
        textebox = TextBox1.Text
        Dim attente As Integer
        attente = (textebox / 1000)
        Sleep(attente)    'C'est cette pause qui me pose (haha...) probleme.
        Shell("SNAPSHOT.EXE")
        Sleep(1000)
        Dim dossier As String
        dossier = (FolderBrowserDialog1.SelectedPath + "\capture.bmp")
        FileCopy("C:\snapshot.bmp", dossier)
        Me.Visible = True
 
    End Sub
 
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        FolderBrowserDialog1.Description = "Choisissez votre répertoire"
        If FolderBrowserDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            MessageBox.Show(Me, _
                        "Vous aves choisi " + FolderBrowserDialog1.SelectedPath, _
                        "Repertoire", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
            Label4.Text = FolderBrowserDialog1.SelectedPath
 
        End If
    End Sub
 
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
 
End Class

[Aspic]

Et y'a une erreur ? EN tout cas y'a des erreurs de conversions dans ton code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Dim textebox As Integer
        textebox = Cint(TextBox1.Text)
        Dim attente As Integer
        attente = Cint((textebox / 1000))
        Sleep(attente)
        Shell("SNAPSHOT.EXE")
        Sleep(1000)
        Dim dossier As String
        dossier = (FolderBrowserDialog1.SelectedPath + "\capture.bmp")
        FileCopy("C:\snapshot.bmp", dossier)
        Me.Visible = True
    End Sub

Mets ca en haut de ta form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Strict On
Option Explicit On

[pedro85]

Merci maintenant le programme tourne sans erreur mais par contre il ne respecte toujours pas le temps de pause rentré avant la capture.
Par contre je n'ai pas réussi a mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Strict On
Option Explicit On

ou que ce soit dans le code. (qu'entendez vous par en haut de ma form)
ca a peu etre un rapport avec ca.
Désolé je pose peut etre des question bete mais je programme que depuis 3 semaines (et encore que quelques heures le weekend alors...)

[Aspic]

Merci maintenant le programme tourne sans erreur mais par contre il ne respecte toujours pas le temps de pause rentré avant la capture.
Par contre je n'ai pas réussi a mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Strict On
Option Explicit On

ou que ce soit dans le code. (qu'entendez vous par en haut de ma form)
ca a peu etre un rapport avec ca.
Désolé je pose peut etre des question bete mais je programme que depuis 3 semaines (et encore que quelques heures le weekend alors...)

T'inquiète pas c'est pas grave

Place ces deux lignes tout en haut de tes formulaires (avant les imports)

[Tusbar]

J'ai mieux pour toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Path As String = ""
Private Const VK_SNAPSHOT As Short = &H2CS
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Private Function SaveScreen(ByVal theFile As String) As Boolean
        Dim Data As IDataObject = Clipboard.GetDataObject()
        Dim ImageBitmap As Bitmap
        If Data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            ImageBitmap = CType(Data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
            Dim PB As New PictureBox
            PB.Image = ImageBitmap
            PB.Image.Save(theFile, Imaging.ImageFormat.Jpeg) 'La tu mets le format que tu veux
        End If
    End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not Path.Trim = "" Then
            Me.Visible = False
            System.Threading.Thread.Sleep(CInt(TextBox1.Text) * 1000) 'Tu mets le temps en secondes dans la textbox
            keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0)
            System.Threading.Thread.Sleep(200) 'Le temps de récupérer le screenshot
            SaveScreen(Path & "\screenshot.jpg")
            Me.Visible = True
        Else
            MsgBox("Choisir le dossier de destination de l'image...")
        End If
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FBD As New FolderBrowserDialog
        FBD.ShowDialog()
        Path = FBD.SelectedPath
    End Sub

[tomlev]

Pourquoi faire simple quand on peut faire compliqué... ca répond pas vraiment à la question posée en plus ! Cela dit c'est une approche intéressante...

@pedro85 :
A mon avis le probleme, en plus de la conversion qui est peut-être foireuse, est que la méthode Sleep prend en parametre des millisecondes. Or toi tu divises par 1000 la valeur qui vient de la textbox, ce qui marcherait si cette valeur était en microsecondes mais ca m'etonnerait. Si c'est des secondes que tu entres dans la textbox, tu dois multiplier par 1000, pas diviser, pour obtenir des millisecondes.
Au fait, tu n'as pas besoin d'importer la fonction Sleep avec un Declare : utilise System.Threading.Thread.Sleep à la place, ça fait exactement la même chose.

[pedro85]

A mon avis le probleme, en plus de la conversion qui est peut-être foireuse, est que la méthode Sleep prend en parametre des millisecondes. Or toi tu divises par 1000 la valeur qui vient de la textbox, ce qui marcherait si cette valeur était en microsecondes mais ca m'etonnerait. Si c'est des secondes que tu entres dans la textbox, tu dois multiplier par 1000, pas diviser, pour obtenir des millisecondes.
Au fait, tu n'as pas besoin d'importer la fonction Sleep avec un Declare : utilise System.Threading.Thread.Sleep à la place, ça fait exactement la même chose.

Hum, , bon, ok, voila quoi, j'crois que jvais retourner reviser mes maths.
Eh bien tomlev, merci bien, car effectivement, C'EST LA BONNE REPONSE!
Malheureusement je n'ai pas de superbe écran plasma a offrir...
Eh oui c'était juste un probleme de calcul, j'ai supprimé le "/" et remplacé par le "*" et paf! ca a fait des chocapics! non mais par contre ca a marché.

un grand merci

quan le prog sera fini jmetrai un lien ici vers un serveur ou je l'aurai déposé pour qe vous voyiez ce a quoi vous avez contribué.


MERCI