ERROR AJUDEM

INFOSISTEMAS 22/08/2010 13:50:19
#350924 Resposta escolhida

private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
[ô]Dim Delete As String

If KeyCode = 46 Then

If List1.ListCount = 0 Then
Exit Sub
end if

If List1.SelCount = 0 Then
Exit Sub
end if
If List1.ListIndex = List1.ListCount - 1 Then
Delete = List1.ListIndex - 1
Else
Delete = List1.ListIndex
End If
List1.RemoveItem List1.ListIndex
List1.ListIndex = Delete
End Sub

Agora funciona !!

PARREIRA 22/08/2010 16:47:50
#350939

Dim Delete As String

If KeyCode = 46 Then
If List1.ListCount = 0 Then
Exit Sub
end if

If List1.SelCount = 0 Then
Exit Sub
end if

If List1.ListIndex = List1.ListCount - 1 Then
Delete = List1.ListIndex - 1
Else
Delete = List1.ListIndex
End If
List1.RemoveItem List1.ListIndex
List1.ListIndex = Delete
End If 'está faltando este!!
End Sub

TECLA 22/08/2010 19:23:21
#350942

A descrição do erro é... Bloco IF sem END IF.
Perceba que você tem vários IFs na rotina, dois deles, tem MAIS DE UMA linha dentro do comando.
Logo, a rotina precisa de duas instruções END IF.

GABYS 27/08/2010 09:52:57
#351444

Vlw pessoal