Argument matching parameter 'key' narrows from 'Long' to 'String'.

[diogoarsousa]

'Boa tarde. Acabei de fazer o upgrade da primeira versão do Visual Basic Net para o Visual Basic 10 'e surgiram-me vários erros deste tipo. Tudo o que está sublinhado e a vermelho dá o seguinte erro:

Em todos os - ListView1.Items(n) - dá erro

'Error 103

'Overload resolution failed because no accessible 'Item' can be called without a narrowing 'conversion:

'Public Overridable ReadOnly Default Property Item(key As String) As 'System.Windows.Forms.ListViewItem': Argument matching parameter 'key' narrows from 'Long' to 'String'.

'Public Overridable Default Property Item(index As Integer) As 'System.Windows.Forms.ListViewItem': Argument matching parameter 'index' narrows from 'Long' to 'Integer'.

'O que é que está mal?

'Acrescento seguidamente o procedimento:

Private Sub cmd_Visualizacao_Dados_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmd_Visualizacao_Dados.Click

    'LIMPO AS DUAS LISTVIEWS DE TODOS OS VALORES

    ListView1.Items.Clear()
    ListView2.Items.Clear()

    '************************************

    rst = New ADODB.Recordset()

    If id_zmc > 0 Then
        If ano <> "" Then
            ano_mes = ano & mes_string_short
            periodo_considerado = " AND Leituras_Dia.Data like '" & ano_mes & "%'"
        Else
            periodo_considerado = ""
        End If 'ano <> ""
        Call cria_recordset(periodo_considerado)
    End If 'id_zmc

    '************************************
    For n = 0 To UBound(array_total_dados)
        ListView1.Items.Add(array_total_dados(n).data)
        Dim data_datetime As DateTime
        data_datetime = CDate(array_total_dados(n).data)
        'Devolve-me um número de 0 (para Sunday) até 6 (para Saturday)
        Dim num_dia_semana_short As Short
        num_dia_semana_short = data_datetime.DayOfWeek
        Dim dia_semana_curto As String 'Ex: "Seg"

        Select Case num_dia_semana_short
            Case 0
                dia_semana_curto = "Dom"
            Case 1
                dia_semana_curto = "Seg"
            Case 2
                dia_semana_curto = "Ter"
            Case 3
                dia_semana_curto = "Qua"
            Case 4
                dia_semana_curto = "Qui"
            Case 5
                dia_semana_curto = "Sex"
            Case 6
                dia_semana_curto = "Sáb"
        End Select
        ListView1.Items(n).SubItems.Add(dia_semana_curto)
        ListView1.Items(n).SubItems.Add(array_total_dados(n).hora_caudal_minimo)
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).caudal_minimo_nocturno, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).qmn_grandes_consumidores, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).caudal_minimo_nocturno - array_total_dados(n).qmn_grandes_consumidores, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(array_total_dados(n).numero_grandes_consumidores)
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).caudal_medio, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).caudal_maximo, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).consumo_diario, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).volume_perdas_reais, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).Percentagem_Perdas_Reais, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).litros_ramal_dia, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).numero_equivalente_roturas_ramal, 1, TriState.True))
        ListView1.Items(n).SubItems.Add(FormatNumber(array_total_dados(n).ILI, 1, TriState.True))
    Next n

    '**************************************************
    Call Preenche_ListView2()

End Sub

Edited September 24, 2013 at 02:43 PM by ribeiro55

[nelsonr]

Ixx,

edita lá isso e coloca o codigo dentro da tag

[diogoarsousa]

Existe algum texto que ensine de forma fácil a formatar o texto no formato VB? Por exemplo, como é que eu coloco o óodigo dentro da tag

? Não me pode dar um exemplo?

[nelsonr]

[ code=vbnet]

[/code ]

Edited September 23, 2013 at 04:17 PM by nelsonr

[diogoarsousa]

Nelsonr, utilizei o

[ code=vbnet]

[/code ]

Mas o código permanece da mesma côr.

[nelsonr]

Tira o espaço entre o "[" e "code" e entre "[/code" e "]". Coloquei apenas para o forum nao converter

Edited September 23, 2013 at 04:44 PM by nelsonr

[diogoarsousa]

Já está! Obrigado!

Agora vou sair mas amanhã cá estarei de novo

Abraço

[diogoarsousa]

Bom dia. Acabei de fazer o upgrade da primeira versão do Visual Basic Net para o Visual Basic 10 'e surgiram-me vários erros deste tipo.

No código que surge na primeira mensagem,

Em todos os - ListView1.Items(n) - dá erro[

'Error 103[/b]

'Overload resolution failed because no accessible 'Item' can be called without a narrowing 'conversion:

'Public Overridable ReadOnly Default Property Item(key As String) As 'System.Windows.Forms.ListViewItem': Argument matching parameter 'key' narrows from 'Long' to 'String'.

'Public Overridable Default Property Item(index As Integer) As 'System.Windows.Forms.ListViewItem': Argument matching parameter 'index' narrows from 'Long' to 'Integer'.

O que é que está mal no código?

Agradecia alguma ajuda.

Edited September 24, 2013 at 02:44 PM by ribeiro55

[ribeiro55]

Altera

For n = 0 To UBound(array_total_dados)

para

For n As Integer = 0 To UBound(array_total_dados)

As conversões implícitas....

[diogoarsousa]

Sérgio, é isso mesmo. Obrigado pela ajuda.

Abraço