Jump to content
diogoarsousa

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

Recommended Posts

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 by ribeiro55

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
nelsonr

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

Edited by nelsonr

Share this post


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

Share this post


Link to post
Share on other sites
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....


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
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.