0/5 (5 avis)
Snippet vu 3 462 fois - Téléchargée 32 fois
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_CLOSE = &H10 Private Counter As Integer Private Sub Image1_keydown(KeyCode As Integer, Shift As Integer) End Sub Private Sub Label1_KeyPress(KeyAscii As Integer) Label1.Caption = Counter End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset conn.Open "DSN=MaBase;uid=MaBase;pwd=MaBase;database=MaBase" Set cmd.ActiveConnection = conn cmd.CommandText = "SELECT * from MaTable" rs.Open cmd, , adOpenStatic, adLockBatchOptimistic Counter = MonChamp If Counter > 0 Then Timer1.Enabled = True Dim stAppName As String stAppName = "C:\Program Files\MonPrg.exe" Call Shell(stAppName, 1) Timer1.Interval = 60000 End If rs.Close cmd.CommandText = "UPDATE MaTable SET MonChamp = 0" rs.Open cmd End Sub Private Sub Timer1_Timer() Counter = Counter - 1 If Counter = 0 Then Beep Counter = Empty Timer1.Enabled = False Dim hWnd As Long hWnd = FindWindow(vbNullString, "Mon Prg") ' Comme il est noté quand CTRL-ALT-SUP Call PostMessage(hWnd, WM_CLOSE, 0, 0) End If End Sub
29 oct. 2003 à 22:28
Effectivement, t'a raison. Ca peut servir a certains et pa grand chose à d'autres - mais finallement, c'est trés util de les partager car on aprend tous les jours.
Dans ton code tu utilse pas mal des fonctions : ado,shell ect... Leur utilisation est bien faite et bien structurée.
Ca perlmet de comprendre comment les utiliser , mais fonctionellement pour moi perso ca n'a pas d'interet .
Avec un autre titre je l'aurai jugé peut etre autrement
:)
29 oct. 2003 à 00:56
28 oct. 2003 à 23:09
il aurait été possible de faire la même chose en utilisant shellexecute et donc d'associer automatiquement l'appli à l'extension d'un fichier ce qui aurait été plus élégant...
27 oct. 2003 à 22:07
:)
27 oct. 2003 à 22:00
Monprog.exe peut lui aussi àccèder à la base par sa propre connexion ado - donc vois pas vraiment l'interet.
: )
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.