Olaa gurus estoy mejorando mi troyanito y bueno algo tan sinple y me da error :huh: lo que quiero es que compruebe si esta selecionado alguna Pc en el ListView pero me tira el error 91 Object variable or with block variable not set TssSss Ayudaa PlisSSs
Private Sub LV_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button <> vbRightButton Then Exit Sub
If LV.selectedItem.Selected = False Then Exit Sub ' aqui se me para el depurador
Call Show_Menu_PopUp(MenusContextuales.Menuc, Button)
End Sub
Graxias de antemano ;)
bueno yaa e evitado el error con un sinple On Error Resume Next pero la cuestion es porquee?? no me quiero kedar con la dudaa aunkee ya me rule alguien que sepa el porque que me lo digaa jeje que no quiero xapusas en mi code.
S@1u2s :huh: ;D
hola prova de esta forma
Dim elemento As ListItem
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Set elemento = ListView1.HitTest(x, y)
If Not elemento Is Nothing Then
Set ListView1.SelectedItem = elemento
PopupMenu ElMenu
Set elemento = Nothing
End If
End If
End Sub
Saludos
Cita de: LeandroA en 31 Julio 2008, 20:07 PM
hola prova de esta forma
Dim elemento As ListItem
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Set elemento = ListView1.HitTest(x, y)
If Not elemento Is Nothing Then
Set ListView1.SelectedItem = elemento
PopupMenu ElMenu
Set elemento = Nothing
End If
End If
End Sub
Saludos
GraxiasS LeandroA por molestarte parece que rula correctamente tu Code ;D ;) pero no me explico como no me puede funcionar de mi manera le tenio que meter un on error resume next al principio y ya me rula.
S@1u2s y Graxias te tomo una copia del code ;D