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
la sub call botavanticodice: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
per visualizzare i file uso il controllo di acrobat reader, elencoFile e' una lista che ho dichiarato cosi: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
I e' un intero per scorrere in avanti e indietro la lista.codice:Dim ElencoFile As New List(Of String)
Ho provato a mettere la proprieta' keypreview del form a true ma non cambia niente, sapete suggerirmi una soluzione?
grazie

Rispondi quotando
