Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim
argsCadena As String
Dim
argsArray As Array
argsCadena = Command()
argsArray = Split(argsCadena, " ")
Select Case argsArray.GetLength(0)
Case 0
MessageBox.Show("No ha especificado el ID del PDF a visualizar")
Me.Close()
Case 1
'PdfViewerMain.SelectFile()
PdfViewerMain.UseXPDF = False
PdfViewerMain.FileName =
Split(Command(), " ")(0)
Case Else
MessageBox.Show("Ha especificado más de un ID de PDF a visualizar
cuando únicamente es posible indicar uno. Parámetro recibido: " +
argsCadena)
Me.Close()
End Select
End Sub
Para probar la aplicación podéis configurar la depuración para que por defecto pase un parámetro al ejecutable generado. En la siguiente imagen podéis ver cómo hacerlo.
No hay comentarios:
Publicar un comentario