Pasar variables a nuestra aplicacion y recogerlas (exe) vb.net

Hola , os traigo el ejemplo de como poder pesarle a nuestra aplicación variables para poder definir un comportamiento en nuestro sistema, te invito primero a ver el video.

A veces es bueno definir ciertos comportamientos. por ejemplo escribir un fichero de errores, Activar un timer…. lo que se quiera.

En este ejemplo solo se trata de recoger más de 1 variable y de mostrar un mensaje de texto y escribir un label, es poco si , pero con ello ya sabrás como hacerlo e implementar todo aquello que quieras en tu proyecto.

Aquí el video

Si vistes el video ves que es bastante fácil hacerlo . como siempre dejo el código a continuación. Para que el código te funcione tal y como esta te hará falta un label en el form.

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Show()

        If My.Application.CommandLineArgs.Count > 0 Then

            For i As Integer = 0 To My.Application.CommandLineArgs.Count - 1

                If My.Application.CommandLineArgs(i).ToString Like "*-msg:*" Then
                    Dim msg As String = Split(My.Application.CommandLineArgs(i).ToString, ":").GetValue(1)
                    mensaje(msg)
                End If
                If My.Application.CommandLineArgs(i).ToString Like "*-lbl:*" Then
                    Dim msg As String = Split(My.Application.CommandLineArgs(i).ToString, ":").GetValue(1)
                    Me.Label1.Text = msg
                End If
            Next



        End If
    End Sub
    Public Function mensaje(ByVal str As String)
        MsgBox(str)
    End Function

End Class

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

Me.Show()

If My.Application.CommandLineArgs.Count > 0 Then

For i As Integer = 0 To My.Application.CommandLineArgs.Count - 1

If My.Application.CommandLineArgs(i).ToString Like "*-msg:*" Then

Dim msg As String = Split(My.Application.CommandLineArgs(i).ToString, ":").GetValue(1)

mensaje(msg)

End If

If My.Application.CommandLineArgs(i).ToString Like "*-lbl:*" Then

Dim msg As String = Split(My.Application.CommandLineArgs(i).ToString, ":").GetValue(1)

Me.Label1.Text = msg

End If

End Sub

Public Function mensaje(ByVal str As String)

MsgBox(str)

End Function

End Class

Suscribete a mi canal de youtube y a la web para recibir mas notificaciones de mis videos.

Un saludo. 🙂

3 comentarios en “Pasar variables a nuestra aplicacion y recogerlas (exe) vb.net”

Franci

12/14/2023 a las 14:00 | Responder

como se haría para vb6, no encuentro nada
gracias
Leonardo

05/27/2022 a las 01:56 | Responder

Muy claro Amigo.
Gracias!!

Saludos desde Chile

Leonardo
- Autor
  
  06/07/2022 a las 12:42 | Responder
  
  Gracias a ti… Espero que de verdad te sirva.

Deja un comentario Cancelar respuesta

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.