Autor Tema: Codigo Para Matriz De Control (Leído 1681 veces)

sombra_71 · « **en:** Jueves 29 de Julio de 2004, 20:35 »

Gracias a quien de seguimiento a mi duda....

Soy novato por lo q espero entiendan el problema.

Alguien me puede explicar como usar botones de control y q cada uno de ellos realice ciertas funciones al ser usados ???

O como usar uno de ellos para la busqueda en una base de datos?..

Gracias de atemano

Jose Arriagada

1° Inserta en tu form, controles COMMAND y haz doble click sobre ellos.
Aparecera una ventana de edicion, donde podras colocar el codigo que deseas que el control realice dependiendo del evento que selecciones.

Para que muestre un mensaje al hacer click sobre el

Private Sub Command1_Click()
MsgBox "Mensaje que quiero que aparezca"
End Sub

Para que muestre un mensaje al hacer pasar el mouse sobre el

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.ToolTipText = "Mensaje explicativo del control"
End Sub

2° La busqueda dependera de que tipo de coneccion realizas a la base de datos, y que tipo de base de datos estamos hablando.

sombra_71

Jose Arriaga....

Muy amable con tu respuesta. pero lo q necesito es usarlos con el comando index.... o sea q los botones sean una matriz de control.

Ejemplo.

Si mi botones son el abecedario, si se teclea en A q haga cierta funcion, si se teclea en W haga otra funcion, pero q cada boton sea parte de la matriz de control.

Tengo dificultad en ese especto

La busqueda de bases ya estoy investigando..Agradezco me puedas ayudar en ese aspecto.....del index.

Saludos

Shiquilla

Hola sombra_71, para saber qué botón estás pulsando en la matriz de controles, simplemente tienes que mirar el indice de botón que es... de esta forma:

Código: Text

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            MsgBox &#34;Estoy en el primer botón&#34;
        Case 1
            MsgBox &#34;Estoy en el segundo botón&#34;
        Case 2
            MsgBox &#34;Esto es un ejemplo&#34;
    End Select
End Sub
 

Saludos.

sombra_71

Shiquilla

Te doy las gracias por el tip... lo probare y espero me funcione.

Este codigo tambien sirve si es para buscar en una base de datos? claro q cada boton haga la busqueda, o hay alguna otra manera de resolverlo?

Sombra_71

Shiquilla

Hola de nuevo, si va a ser una búsqueda igual pero sólo cambiando un parámetro en la Select podrías hacer una función que haga lo siguiente:

Código: Text

Private Sub Command1_Click(Index As Integer)
   Select Case Index
       Case 0
           Consulta a 'a = Parametro de la funcion
       Case 1
           Consulta b 'b = Parametro de la funcion
       Case 2
           Consulta c 'c = Parametro de la funcion
   End Select
End Sub
 
Private Function Consulta(Parametro As String)
    Dim rs As New ADODB.Recordset
    Dim SQL As String
    SQL = &#34;SELECT Campo FROM Tabla WHERE Clave = '&#34; & Parametro & &#34;'&#34;
    ' todo lo demás
End Function
 

Saludos.

sombra_71

Shiquilla.

Mil gracias por ayudarme.... pondre en marcha lo q me comentas.

Espero aplicar bien el codigo, espero tengas algun correo para consultarte, claro si tienes el tiempo....

Saludos.

Sombra_71

SoloCodigo

Autor Tema: Codigo Para Matriz De Control (Leído 1681 veces)

sombra_71

Codigo Para Matriz De Control

Jose Arriagada

Re: Codigo Para Matriz De Control

sombra_71

Re: Codigo Para Matriz De Control

Shiquilla

Re: Codigo Para Matriz De Control

sombra_71

Re: Codigo Para Matriz De Control

Shiquilla

Re: Codigo Para Matriz De Control

sombra_71

Re: Codigo Para Matriz De Control