Acesso compartilhado membro por meio de uma instância; expressão de qualificação não será avaliada
Um instância variável de uma classe ou estrutura é usado para acessar um Shared variável, propriedade, procedimento ou evento definido nessa classe ou estrutura. Esse aviso também pode ocorrer se um instância variável é usada para acessar um membro implicitamente compartilhado de uma classe ou estrutura, sistema autônomo uma constante ou enumeração, ou uma classe aninhada ou estrutura.
A finalidade do compartilhamento de um membro é criar apenas uma cópia desse membro e disponibilizar a cópia única a cada instância da classe ou estrutura na qual é declarada.Ele é consistente com esta finalidade para acesso um Shared membro através do nome de sua classe ou estrutura, em vez de por meio de uma variável que contém uma ocorrência individual da classe ou estrutura.
Acessando um Shared membro através de uma variável de instância pode tornar seu código mais difícil de entender, ocultando o fato de que o membro é Shared. Além disso, se tal acesso for parte de uma expressão que executa outras ações, sistema autônomo um Function procedimento que retorna uma instância de membro compartilhado, Visual Basic ignora a expressão e outras ações que caso contrário, ele deve executar.
Para mais informações e um exemplo, consulte Compartilhamento (Visual Basic).
Por padrão, essa é uma mensagem de aviso.Para maiores informações sobre como ocultar avisos ou tratar avisos como erros, consulte Configurando Avisos (Warnings) no Visual Basic.
ID de erro: BC42025
Para corrigir este erro
Use o nome da classe ou estrutura que define o Shared membro para acessá-lo.
Esteja alerta para os efeitos do escopo quando dois elementos de programação tem o mesmo nome.O exemplo a seguir declara uma variável testClass com o mesmo nome da classe à qual ele é digitado. O compilador interpretará a telefonar para sayHello() sistema autônomo um acesso através de nome de classe testClass, e nenhum aviso ocorre.
Public Class testClass Public Shared Sub sayHello() MsgBox("Hello") End Sub End Class Module testModule Public Sub Main() Dim testClass As testClass = Nothing testClass.sayHello() End Sub End Module