none
Quick Launch RRS feed

  • Pregunta

  • Buen día a todos, 

     Hola estoy desarrollando una aplicación en VB.NET y quería saber si alguno de ustedes sabe ¿Como comenzar?, ¿Como funciona?, ¿Algún camino? para realizar la funcionalidad que proporciona Visual Studio en su "Quick Launch". Que esta al iniciarla aplicación de VS lado superior derecho.

    Es un buscador de las funciones que ya se tienen dentro de la aplicación.

    Como un atajo para no ir a la ruta exacta de la opción.

    Espero me puedan ayudar. De antemano les agradezco su tiempo! 

    Saludos!

    sábado, 20 de abril de 2019 7:42

Todas las respuestas

  • Hola. Si entendí bien y lo que querés es un buscador de, en tu caso funciones, tenes varias alternativas.

    1 puede ser llenar un combobox con las opciones y después en el evento, if micombobox.text="mifuncion" then ejecuto else blabla end if...

    Te dejo un código viejo que usaba en una aplicacion, el cual me consultaba datos de personas en un buscador...

    Private Sub sug()
            Try
                Dim func As New fpups
                txtbuscar.AutoCompleteMode = AutoCompleteMode.SuggestAppend
                txtbuscar.AutoCompleteSource = AutoCompleteSource.CustomSource
    
                Dim nombre = New AutoCompleteStringCollection()
    
                nombre.AddRange(func.sugerir().Rows.Cast(Of DataRow).
                    Select(Function(c) c.Field(Of String)("dato")).ToArray)
    
                txtbuscar.AutoCompleteCustomSource = nombre
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    Public Function sugerir() As DataTable
            Try
                conectado()
                cmd = New SqlCommand("sugerir")
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Connection = cnn
    
                If cmd.ExecuteNonQuery Then
                    Dim dt As New DataTable
                    Dim da As New SqlDataAdapter(cmd)
                    da.Fill(dt)
                    Return dt
                Else
                    Return Nothing
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
                Return Nothing
            Finally
                desconectado()
            End Try
        End Function

    La función sugerir hace referencia a un storeproc tipo

    SELECT (nombre1 + ' ' + apellido1 + ' ' + documento) as dato FROM usuarios

    Y de ahi lo trabajás a gusto.

    Saludos


    • Editado Alesx de Souza domingo, 21 de abril de 2019 16:00 error en el codigo
    • Propuesto como respuesta Carlos_Ruiz_M lunes, 22 de abril de 2019 14:39
    domingo, 21 de abril de 2019 15:59
  • Muchas Gracias dynamicuy ya tengo una idea por donde comenzar tu código me ayudo, la idea final es la siguiente:

     - Sí, la aplicación tiene un botón que diga Multiplica y al dar clic se despliega un Form donde podamos colocar los parámetros y realice la operación. Dentro del Texbox o Combobox o alguna herramienta mas eficaz, podamos escribir: Multiplicar(seria como el atajo mencionado) y al seleccionarlo se despliegue el form. Pero también tenga la "inteligencia" (No se me ocurre como) de sí, al escribir en el Combobox o Texbox: Multiplicar 2 x 2 el Formulario se cargue con esos Parámetros. 

    ¿Algún consejo para eso?

    Saludos!

    • Propuesto como respuesta Pablo Rubio viernes, 26 de abril de 2019 16:27
    domingo, 21 de abril de 2019 18:57
  • si el valor del combobox que se usaría como el llamador de la función es algo como: Multiplica 2x2

    podés en el evento keydown:

    if e.keycode=keys.enter then

    Dim cadena As String = micombobox.text

    Dim array() As String = cadena.Split(" ")

    Dim funcion = array(0)

    Dim parametro= array (1)

    if funcion="Multiplica" then

    dim val1 as double

    dim val2 as double

    Dim valores() as string = parametro.split("x")

    val1=valores(0)

    val2=valores(1)

    miformulario2.textbox1.text=me.val1

    miformulario2.textbox2.text=me.val2

    miformulario2.show()

    end if

    end if

    No lo probé, pero ahi tenes como para ir probando.

    Salute

    • Propuesto como respuesta Carlos_Ruiz_M lunes, 22 de abril de 2019 14:39
    domingo, 21 de abril de 2019 19:48