Discussion :

[gta126]

Bonsoir j'ai un problème avec une boucle

-mon code est le suivant :

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
Dim Presse_papier As String
 
Private Sub Command1_Click()
    BlockClipboard True
End Sub
 
Public Sub BlockClipboard(Block As Boolean)
    Presse_papier = Clipboard.GetText
 
    Do
        DoEvents
    Loop Until Block = False
End Sub
 
Private Sub Command2_Click()
    BlockClipboard False
End Sub

-Mon problème c'est que lorsque je clique sur Command2 le programme quitte le boucle mais je ne sai pour quel raison il la recommence après.

Sauriez-vous comment je pourrais faire pour qu'il quitte la boucle pour de bon?

Merci d'avance

[ucfoutu]

Bonjour,

parce qu'au lieu de modufier l'état de ta booléenne, tu rappelles une seconde instance de ta sub ...

écris donc ainsi (par exemple) :

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
Private block As Boolean
 
Private Sub Command1_Click()
    block = True
    BlockClipboard
End Sub
 
Public Sub BlockClipboard()
    Presse_papier = Clipboard.GetText
    Do
        DoEvents
    Loop Until block = False
End Sub
 
Private Sub Command2_Click()
    block = False
End Sub

A tester (écrit à main levée) .....

[OhMonBato]

Par simple curiosité, elle sert à quoi cette boucle ?

[gta126]

Merci beaucoup ucfoutu

Ton code marche parfaitement

Pour répondre à OhMonBato cette boucle me sert à bloquer le presse-papier temporairement.

[SfJ5Rpw8]

...
Pour répondre à OhMonBato cette boucle me sert à bloquer le presse-papier temporairement....

à le bloquer où ?

[gta126]

à le bloquer où ?

C'est pour faire un peu comme le presse-papier d'office c'est-à-dire que le programme peut stocker plusieurs presse-papier mais pour en créer un il faut faire ajouter un presse-papier.
Mais dans les presse-papier existant je voulais faire en sorte que l'on sache le protéger c'est pour ça qu'il me fallait le bloquer tant que l'on sélectionne pas un autre presse-papier