Error en propiedad tag de un listview

29/04/2005 - 15:35 por lalo_losla | Informe spam
He migrado mi aplicación de VB6 a Vb .NET y me encuentro con el
siguiente problema utilizando un listview o treeview Activex
(AxMSComctlLib.AxListview), no puedo asignarle un valor a la propiedad
tag me da el siguiente error "Referencia a objeto no establecida como
instancia de un objeto."
Sin embargo en la misma parte de codigo puedo asignarle un valor a la
propiedad text y también puedo verificar desde la ventana de comandos
el valor de Tag antes de la asignación y el correspondiente error.
? Listview1.SelectedItem.Tag
"Pedro"


Private Sub ApplyNewRole(ByVal msRoleName As String)
Dim sAuthentication As String

sAuthentication = "cliente"

'**********'esto funciona
If mstransaction = ASI_SECED_ADDNEW Then
mlvRoles.ListItems.Add(, , msRoleName)
mlvRoles.ListItems(mlvRoles.ListItems.Count).Key = "l" & msRoleName
mlvRoles.ListItems(mlvRoles.ListItems.Count).let_Tag(sAuthentication)
mlvRoles.ListItems(mlvRoles.ListItems.Count).SmallIcon = 11
End If

'**********'Esto no funciona
If mstransaction = ASI_SECED_UPDATE Then
mlvRoles.SelectedItem.Tag = sAuthentication
End If
End Sub


Alguien sabe que puede estar pasando?

Preguntas similare

Leer las respuestas

#1 Valdov
29/04/2005 - 18:38 | Informe spam
Para que usas el tag? Porque no pones una columna con width=0 y ahí pones el
valor del tag?

Valdov
Id Msn Messenger:




"lalo_losla" escribió en el mensaje
news:
He migrado mi aplicación de VB6 a Vb .NET y me encuentro con el
siguiente problema utilizando un listview o treeview Activex
(AxMSComctlLib.AxListview), no puedo asignarle un valor a la propiedad
tag me da el siguiente error "Referencia a objeto no establecida como
instancia de un objeto."
Sin embargo en la misma parte de codigo puedo asignarle un valor a la
propiedad text y también puedo verificar desde la ventana de comandos
el valor de Tag antes de la asignación y el correspondiente error.
? Listview1.SelectedItem.Tag
"Pedro"


Private Sub ApplyNewRole(ByVal msRoleName As String)
Dim sAuthentication As String

sAuthentication = "cliente"

'**********'esto funciona
If mstransaction = ASI_SECED_ADDNEW Then
mlvRoles.ListItems.Add(, , msRoleName)
mlvRoles.ListItems(mlvRoles.ListItems.Count).Key = "l" & msRoleName
mlvRoles.ListItems(mlvRoles.ListItems.Count).let_Tag(sAuthentication)
mlvRoles.ListItems(mlvRoles.ListItems.Count).SmallIcon = 11
End If

'**********'Esto no funciona
If mstransaction = ASI_SECED_UPDATE Then
mlvRoles.SelectedItem.Tag = sAuthentication
End If
End Sub


Alguien sabe que puede estar pasando?
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida