[VB6]: Salvare file (cattura desktop) progressivamente

[master666]

Ciao a tutti.. volevo sapere una cosa:
io ho un prog che visualizza in una PictureBox quello che accade in una parte di desktop. se voglio posso salvare le immagini progressivamente. ho usato questo codice:

    SavePicture p.Image, "C:\desktopcapture\img" & Text9.Text & ".jpg"
    Text9.Text = Text9.Text + 1

In questo modo mi salva le immagini in:
img1.jpg
img2.jpg
img3.jpg
...
img1000.jpg
Il mio quesito era (alla DelDebbio):
A) Se io volessi salvarle con un numero progressivo a 4 cifre (img0001.jpg etc etc) come posso fare?
B) Volendo si può creare un AVI da questa picture?
Se volete tutto il codice ve lo posto. grazie!

[Anony89]

Cmq al posto della Textbox conviene usare una Variabile!


Io per un mio programma ho scritto questa funzione:

Function oFirst(ByVal Numero As Integer, ByVal Cifre As Integer) As String
Dim tempZ As String, tempN As String
For i = 1 To Cifre
If i = 1 Then
tempZ = tempZ + "1"
Else
tempZ = tempZ + "0"
End If
Next
tempN = tempZ & Numero
If Len(tempN) > Cifre Then
tempN = Left(tempN, 1) & Right(tempN, Len(tempN) - ((Len(tempN) - Cifre) + 1))
End If
oFirst = tempN
End Function

Adattato al tuo caso:

SavePicture p.Image, "C:\desktopcapture\img" & oFirst(Text9.Text,4) & ".jpg"
Text9.Text = Text9.Text + 1



Non ho provato se funziona,fammi sapere!

Ciao!

[master666]

Grazie dell'aiuto.. la funzione funziona.. però mi salva le immagini così:
img1001.jpg
img1002.jpg
....
Per quanto riguarda l'AVI non sai se è possibile? con una componente del tipo AviCap32.dll?
Grazie!

[Luciano79]

Per inserire gli zeri non significativi c'è già un metodo piuttosto comodo:

VariabileStringa = Format(VariabileNumero, String(Cifre,"0"))

Per quello che riguarda il programma... a me interessa, puoi mandarmi lo script?

[Anony89]

Scusa lo script che ho usato nel mio Programma mi serviva x un'altra cosa,cmq corretto può funzionare così:

Function oFirst(ByVal Numero As Integer, ByVal Cifre As Integer) As String
Dim tempZ As String, tempN As String
For i = 1 To Cifre
tempZ = tempZ + "0"
Next
tempN = tempZ & Numero
If Len(tempN) > Cifre Then
tempN = Left(tempN, 1) & Right(tempN, Len(tempN) - ((Len(tempN) - Cifre) + 1))
End If
oFirst = tempN
End Function

Ma se esiste già la funzione in VB6 è meglio ke usi quella!

Per quello che diceva Luciano invece:

Per quello che riguarda il programma... a me interessa, puoi mandarmi lo script?

Ti riferisci a me? e se si...che vuoi dire?

[master666]

Grazie grazie.. ora funza tutto e bene.... ma cosa intendi per:

Ma se esiste già la funzione in VB6 è meglio ke usi quella!

?

[Anony89]

Intendo il Metodo che ha Suggerito Luciano!

Scegli tu quale vuoi usare tra il mio metodo(Funzione scritta a mano) e il metodo di Luciano!

[master666]

io ho usato il tuo, anche perchè è il primo che ho trovato.. e poi appunto perchè è scritto a mano..

[master666]

Wella.. sempre io a chiedere info!
sempre nello stesso programma, ho inserito una textbox (text2) per fare in modo che l'utente inserisca un nome, che verrà salvato come nome di una cartella.. ho usato questo codice:

    SavePicture p.Image, "C:\desktopcapture\" & Text2.Text & "\img" & oFirst(Text9.Text, 4) & ".bmp"

Ma il programma mi da un errore:

Errore di run-time '76':
Impossibile trovare il percorso: 'C:\desktopcapture\Text2\img0001.bmp'

e mi rimanda a quel codice che ho scritto qui sopra.. perchè? se invece io scrivo così:

    SavePicture p.Image, "C:\desktopcapture\" & Text2.Text & "img" & oFirst(Text9.Text, 4) & ".bmp"

il tutto funziona.. ma però crea i file così:
C:\desktopcapture\Text2img0001.bmp"

Grazie dell'aiuto!

[Anony89]

Ma la Cartella che immetti nel Text2 esiste?

Se non esiste è naturale che ti da quell'errore,perchè vb6 cerca di Salvare in quella cartella ma non la trova xkè non Esiste!