POUR APPRENDRE SES VERBES IRRÈGULIERS D'ANGLAIS
ICIoBRa
- Messages postés
- 368
- Date d'inscription
- dimanche 24 juin 2001
- Statut
- Membre
- Dernière intervention
- 7 décembre 2015
- Messages postés
- 1115
- Date d'inscription
- jeudi 19 décembre 2002
- Statut
- Membre
- Dernière intervention
- 6 mai 2007
- Messages postés
- 368
- Date d'inscription
- dimanche 24 juin 2001
- Statut
- Membre
- Dernière intervention
- 7 décembre 2015
-Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Sub Form_Unload(Cancel As Integer)
Call BoutonActiveCTRLALTSUPPR_Click
' Là c'est pour que CTRL+ALT+SUPPR soit réactivé quand vous quittez
End Sub
Private Sub BoutonDesactiveCTRLALTSUPPR_Click()
Dim Retour As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, a, 0)
End Sub
Private Sub BoutonActiveCTRLALTSUPPR_Click()
Dim Retour As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, a, 0)
End Sub
'Et pour charger un fichier externe automatikement :
Dim TaVariable As String
Open App.Path & "TonFichierDeVIs.txt" For Input As #1 'App.Path = le chemin de ton prog
Line Input #1, TaVariable
Close #1
txt_liste_verbes.Text = TaVariable
- Messages postés
- 910
- Date d'inscription
- jeudi 26 juillet 2001
- Statut
- Modérateur
- Dernière intervention
- 1 février 2015
1 -Pas un mauvais programme sinon...
- Messages postés
- 31
- Date d'inscription
- dimanche 4 mai 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2009
-J'ai essayé de rajouter quelques trucs dont la sauvegarde dans un fichiers. Et aussi pour pas avoir deux fois le même verbe. Super, je vais m'en servir.
Je met la 2ème version sur mon compte. Si tu veux y jeter un coup d'oeil.
Julien
- Messages postés
- 1115
- Date d'inscription
- jeudi 19 décembre 2002
- Statut
- Membre
- Dernière intervention
- 6 mai 2007
-