Imprimir Página - Como detectar cambios en un listbox en tiempo de ejecución

Ups, te escribí el comentario de aquí abajo pensando que estaba en el foro de VB.NET... qué confusión más tonta y qué pérdida de tiempo hacer ese código suponiendo que no te pueda servir de nada, pero bueno, de todas formas ahí dejo el código, por que en esencia la información proporcionada te servría igualmente para adaptarlo a VB6, me refiero a la solución basada en los mensajes de ventana, y lo cierto es que no has aclarado si trabajas en VB6 o VB.NET y en este subforo de VB nunca se sabe si andan preguntando de VB.NET o de VB6...

Saludos!

Cita de: rapbyone en 19 Agosto 2016, 21:16 pm

Se puede?

Si, se puede, simplemente debes controlar los mensajes de ventana para ese ListBox.

En particular, para determinar si el texto o datos de un item han sido modificados, debes controlar el mensaje LB_INSERTSTRING o LB_SETITEMDATA respectivamente del tipo de item.

Para determinar cambios en la cantidad de items, debes controlar los mensajes LB_ADDSTRING y LB_DELETESTRING.

Los valores de los mensajes los puedes encontrar en el archivo "WinUser.h" de la SDK de Windows:

Citar

/*
* Listbox messages
*/
#define LB_ADDSTRING 0x0180
#define LB_INSERTSTRING 0x0181
#define LB_DELETESTRING 0x0182
#define LB_SELITEMRANGEEX 0x0183
#define LB_RESETCONTENT 0x0184
#define LB_SETSEL 0x0185
#define LB_SETCURSEL 0x0186
#define LB_GETSEL 0x0187
#define LB_GETCURSEL 0x0188
#define LB_GETTEXT 0x0189
#define LB_GETTEXTLEN 0x018A
#define LB_GETCOUNT 0x018B
#define LB_SELECTSTRING 0x018C
#define LB_DIR 0x018D
#define LB_GETTOPINDEX 0x018E
#define LB_FINDSTRING 0x018F
#define LB_GETSELCOUNT 0x0190
#define LB_GETSELITEMS 0x0191
#define LB_SETTABSTOPS 0x0192
#define LB_GETHORIZONTALEXTENT 0x0193
#define LB_SETHORIZONTALEXTENT 0x0194
#define LB_SETCOLUMNWIDTH 0x0195
#define LB_ADDFILE 0x0196
#define LB_SETTOPINDEX 0x0197
#define LB_GETITEMRECT 0x0198
#define LB_GETITEMDATA 0x0199
#define LB_SETITEMDATA 0x019A
#define LB_SELITEMRANGE 0x019B
#define LB_SETANCHORINDEX 0x019C
#define LB_GETANCHORINDEX 0x019D
#define LB_SETCARETINDEX 0x019E
#define LB_GETCARETINDEX 0x019F
#define LB_SETITEMHEIGHT 0x01A0
#define LB_GETITEMHEIGHT 0x01A1
#define LB_FINDSTRINGEXACT 0x01A2
#define LB_SETLOCALE 0x01A5
#define LB_GETLOCALE 0x01A6
#define LB_SETCOUNT 0x01A7
#if(WINVER >= 0x0400)
#define LB_INITSTORAGE 0x01A8
#define LB_ITEMFROMPOINT 0x01A9
#endif /* WINVER >= 0x0400 */
#if defined(_WIN32_WCE) && (_WIN32_WCE >= 0x0400)
#define LB_MULTIPLEADDSTRING 0x01B1
#endif

Y toda la información necesaria sobre los valores de la parametización (WParam/LParam) y el valor de retorno de los mensajes que he mencionado los tienes en la MSDN:

List Box Messages (Windows) - MSDN (https://msdn.microsoft.com/en-us/library/windows/desktop/ff485967(v=vs.85).aspx)

Ejemplo para determinar cambios en un item:

Código

Public Enum ListBoxMessages As Integer
    LB_SETITEMDATA = &H19A
    LB_INSERTSTRING = &H181 ' Equivalente a "LB_SETTEXT"
End Enum

Código

Public Class ListBoxEx : Inherits ListBox
 
    <Description("Occurs when the text of a single item has changed")>
    Public Event ItemTextChanged As EventHandler(Of ListBoxItemTextChangedEventArgs)
 
    Protected Overridable Sub OnItemTextChanged(ByVal e As ListBoxItemTextChangedEventArgs)
        If (Me.ItemTextChangedEvent IsNot Nothing) Then
            RaiseEvent ItemTextChanged(Me, e)
        End If
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As Message)
 
        Select Case m.Msg
 
            Case ListBoxMessages.LB_INSERTSTRING
                Dim itemIndex As Integer = m.WParam.ToInt32()
                If (itemIndex = -1) Then ' Equivalente al último item en la colección.
                    itemIndex = Me.Items.Count
                End If
                Dim newText As String = Marshal.PtrToStringUni(m.LParam)
                Me.OnItemTextChanged(New ListBoxItemTextChangedEventArgs(itemIndex, newText))
 
            Case ListBoxMessages.LB_SETITEMDATA
                Throw New NotImplementedException("")
 
        End Select
 
        MyBase.WndProc(m)
 
    End Sub
 
End Class

Código

Public NotInheritable Class ListBoxItemTextChangedEventArgs : Inherits EventArgs
 
    Public ReadOnly Property ItemIndex As Integer
    Public ReadOnly Property NewText As String
 
    Private Sub New()
    End Sub
 
    Public Sub New(ByVal itemIndex As Integer, ByVal newText As String)
        Me.ItemIndex = itemIndex
        Me.NewText = newText
    End Sub
 
End Class

Saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 19 Agosto 2016, 21:16 pm