Jump to content

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


diogoarsousa

Recommended Posts

'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 by ribeiro55
Link to comment
Share on other sites

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 by ribeiro55
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.