Gambas France BETA


Pas de compte ? Incription

[GAMBAS2]Presse-Papier Persistent.

1
AuteurMessages
Reivillo#1 Posté le 5/7/2011 à 17:13:00
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour à tous.

Se rappeler de tous les COPIERs.

L' historique des COPIERs se trouve,
dans ppp.txt du dossier de l' application.

Encore une Ébauche.


A+.
Reivillo.

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
' Gambas class file
PUBLIC pathppp AS STRING = Application.path & "/ppp.txt"
PUBLIC fichier AS file
PUBLIC datime AS STRING = Chr$(10) & " <<<<<<< " & Mid$(Str$(Now), 1, 19) & " >>>>>>>"
PUBLIC flag AS BOOLEAN = FALSE
PUBLIC tmp1 AS STRING
PUBLIC SUB Form_Open()

END

PUBLIC SUB Timer1_Timer()
Timer1.Enabled = FALSE
tmp1 = Clipboard.Paste()
flag = TRUE
_PrintInFile_(datime)
Timer2.Enabled = TRUE
END

PUBLIC SUB Timer2_Timer()
IF (flag = TRUE) AND (Clipboard.Paste() <> tmp1) THEN
tmp1 = Clipboard.Paste()
_PrintInFile_(tmp1)
ENDIF
END

PUBLIC SUB _PrintInFile_(adinfile AS STRING)
OPEN pathppp FOR WRITE APPEND AS #fichier
PRINT #fichier, adinfile
CLOSE #fichier
END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR