Como se usa la instruccion DECLARE

[wilberjulio]

Saludos a todos estaba tratando de ejecutar u problema en Visual Basic ya resuelto solo queria verificar en el programa que es de Visual Basic 6.0 pero no ejecuto, mas bien mando un mensaje de error por que una parte del programa  en Generales no ejecutaba bien y era donde estaba trabajando la instruccion Declare. Por eso queria saber como se usa la instruccion Declare?

[Mace Windu]

Ya que un procedimiento de una DLL es externo a la aplicación VB que lo va a utilizar, deberá proporcionarse a dicha aplicación cierta información que permita localizar y por lo tanto ejecutar el procedimiento de la DLL deseado. Esta información se aporta incluyendo en la sección de declaraciones del formulario o del módulo correspondient e de la aplicación, una declaración del procedimiento que desees utilizar, mediante la sentencia Declare cuya sintaxis es la siguiente.

Si devuelve un valor:

Código:

Declare Function nombrePúblico Lib "nombreBiblioteca" [Alias "alias"] [([[ByVal] variable [As tipo] [,[ByVal] variable [As tipo]]...])] As Type

Si no devuelve nada:

Código:

Declare Sub nombrePúblico Lib "nombreBiblioteca" [Alias "alias"] [([[ByVal] variable [As tipo] [,[ByVal] variable [As tipo]]...])]

Ejemplo:

Código:

Private Declare  Function IsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As Long) As Long

Lo he explicado a grandes rasgos. Si no te queda claro algún concepto o necesitas saber más sobre éste, no dudes en publicar.

Salu2

[>> s E t H <<]

si no te sirve lo de mace postea la parte del codigo que te da error

[wilberjulio]

Bueno el programa es en Visual Basic 6.0 y para el formulario utiliza 1 etiqueta, 1 caja de texto, 1 List Box y 1 boton de comando y la codificación esta aqui:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias & _
        "SendMessageA" (ByVal hwnd As Long, & _
        ByVal wMsg As Long, ByVal wParam As Long, & _
        ByVal IParam As String) As Long
Private Const LB_FINDSTRING = &H18F

Private Sub cmdBuscar_Clic k()
    Dim IValor As Long
    IValor = SendMessage(lstPrefijo.hWn d, LB_FINDSTRING, -1, txtElemento.Te xt)
    If IValor = -1 Then
        MsgBox "No se encontró elemento", vbCritical, "Búsqueda"
    Else
        MsgBox "Encontrado en la posición : " & IValor + 1, vbInformation, "Búsqueda"
        lstPrefijo.Sel ected(IValor) = True
    End If
End Sub

Private Sub Form_Load()
    lstPrefijo.Add Item "VB01" & vbTab & "Visual Basic"
    lstPrefijo.Add Item "VC01" & vbTab & "Visual C++"
    lstPrefijo.Add Item "VF01" & vbTab & "Visual FoxPro"
    lstPrefijo.Add Item "PB01" & vbTab & "PowerBuilder"
    lstPrefijo.Add Item "BC01" & vbTab & "Borland C++"
    lstPrefijo.Add Item "WXP1" & vbTab & "Windows XP"
    lstPrefijo.Add Item "SQL1" & vbTab & "SQL Server"
End Sub



En la codificaion del formulario form_load esta normal y en el comando cmd_buscar tambien en donde falla es mas arriba de ellos lo que esta en en negrita aqui :

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias & _
        "SendMessageA" (ByVal hwnd As Long, & _
        ByVal wMsg As Long, ByVal wParam As Long, & _
        ByVal IParam As String) As Long
Private Const LB_FINDSTRING = &H18F
Private Sub cmdBuscar_Clic k()

[>> s E t H <<]

baj el api-guide y fijate como se declara...