Soyez le premier à donner votre avis sur cette source.
Vue 26 011 fois - Téléchargée 5 129 fois
Private Sub Form_Load() Dim intBoucle As Integer Dim fso As FileSystemObject Dim f As file Dim tsmFile As TextStream '---------------------RECUPERATION DU FICHIER PARAMETRE------------------------- 'on recupere le chemin ou l'on sauvegardera l'image temporaire et la finale Set fso = New FileSystemObject Set f = fso.GetFile(C_INI) Set tsmFile = f.OpenAsTextStream strChemin = tsmFile.ReadLine tsmFile.Close Set tsmFile = Nothing Set f = Nothing Set fso = Nothing '------------------------------------------------------------------------------- 'on met une qualite JPG par defaut sldQual.Value = 50 sldQual_Click cmdRun.Caption = "Stop Camera" CamRunning = True 'on lance la creation de la capture mCapHwnd = capCreateCaptureWindow("My Own Capture Window", 0, 0, 0, 320, 240, Me.hwnd, 0) 'on dit a la capture qu'on se connect a la cam SendMessage mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0 'on mets un frequence par defaut sldFrequence.Value = C_DFTFREQUENCE sldFrequence_Click DoEvents End Sub Private Sub sldFrequence_Click() Const C_DEBRAF As String = "Raffraichissement toutes les " Const C_FINRAF As String = " s" 'on divise par 1000 pour l'affichage en secondes lblSave.Caption = C_DEBRAF & CStr(sldFrequence.Value / 1000) & C_FINRAF 'on adapte le timer en fonction du choix fait sur la slidebar Timer1.Interval = CInt(sldFrequence.Value) DoEvents End Sub
Bravo pour ta source.
g un piti problem sa marche po.
Quand je veut le lancer sous vb6 il me fait une erreure 53 c_ini y a une erreur .
Et quand je lance l exe il me trouve po le fichier vb6fr.dll pourait tu m aider .
Je suis sous xp pro et j ai vb6.
merci
que puis-je faire et merci encore une autre fois..
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.