Ciao a tutti ho realizzato un programma per rinominare file pdf visualizzandoli, ma ho un problema. Quando inserisco il numero con cui voglio rinominare il file dopo aver premuto invio per eseguire la ridenominazione e passare alla visualizzazione del file successivo per poterlo rinominare il focus non mi va nel campo di testo. il codice interessato e' questo
codice:
Private Sub Numero_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Numero.KeyUp
If e.KeyCode = Keys.Enter Then
If Numero.Text <> "" Then
'rinomino il file
ElencoFile(I) = RinominaFile(ElencoFile(I), Numero.Text & ".pdf")
Call botAvanti_Click(Me, e:=EventArgs.Empty)
Numero.Text = ""
Numero.Focus()
End If
End If
End Sub
la sub call botavanti
codice:
Private Sub botAvanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles botAvanti.Click
If AcroPDF1.src <> "" Then
If I < ElencoFile.Count - 1 Then
I = I + 1
AcroPDF1.LoadFile(ElencoFile(I))
PercorsoFile.Text = ElencoFile(I)
Else
MsgBox("Sei alla fine")
End If
End If
End Sub
per visualizzare i file uso il controllo di acrobat reader, elencoFile e' una lista che ho dichiarato cosi:
codice:
Dim ElencoFile As New List(Of String)
I e' un intero per scorrere in avanti e indietro la lista.
Ho provato a mettere la proprieta' keypreview del form a true ma non cambia niente, sapete suggerirmi una soluzione?
grazie