ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015
-
5 avril 2003 à 20:01
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007
-
23 oct. 2003 à 12:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_azerty25
Messages postés1114Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention 6 mai 2007 23 oct. 2003 à 12:30
Tres bon prog ;-) et tres utile en plus, mais l'interface et un peu bordel mais c cool quand meme.bravo
louisvbfrance
Messages postés31Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention12 mars 2009 14 mai 2003 à 00:06
Super !
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
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 5 avril 2003 à 22:21
Espèce de sadique...
Pas un mauvais programme sinon...
ICIoBRa
Messages postés368Date d'inscriptiondimanche 24 juin 2001StatutMembreDernière intervention 7 décembre 2015 5 avril 2003 à 20:01
Pour désactiver Ctrl + Alt + Suppr tu mets :
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
23 oct. 2003 à 12:30
14 mai 2003 à 00:06
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
5 avril 2003 à 22:21
Pas un mauvais programme sinon...
5 avril 2003 à 20:01
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