Jump to content

Otacildo

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About Otacildo

  1. Otacildo

    Expressão não é um método

    Estou desenvolvendo um sistema em vb.net 2010. A solução contém cinco projetos, um EXE (Principal) e quatro DLL (Cadastro, Financeiro, Jurídico e Biblioteca). A Biblioteca.dll contém uma classe Utils com funções para validar CPF, encriptar Senha e outras. Referenciei a Biblioteca.dll no projeto Principal.exe. Quando chamo fValidaCPF(txtCPF.text) do Projeto Principal.exe é apresentado um erro “Expressão não é um método”. '---------------------------------------------------------------------- 'Projeto Principal.exe '---------------------------------------------------------------------- Imports Biblioteca Imports Biblioteca.Utils Imports System.Windows.Forms Public Class Principal Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click fValidaCPF(TextBox1.Text) End Sub End Class '---------------------------------------------------------------------- 'Projeto Biblioteca.dll 'Valida CPF '---------------------------------------------------------------------- Public Function FValidaCPF(ByVal CPF As String) As Boolean Dim i, x, n1, n2 As Integer CPF = CPF.Trim For i = 0 To dadosArray.Length - 1 If CPF.Length <> 14 Or dadosArray(i).Equals(CPF) Then Return False End If Next 'remove a maskara 'If Len(CPF) > 11 Then CPF = CPF.Substring(0, 3) + CPF.Substring(4, 3) + CPF.Substring(8, 3) + CPF.Substring(12) 'End If For x = 0 To 1 n1 = 0 For i = 0 To 8 + x n1 = n1 + Val(CPF.Substring(i, 1)) * (10 + x - i) Next n2 = 11 - (n1 - (Int(n1 / 11) * 11)) If n2 = 10 Or n2 = 11 Then n2 = 0 If n2 <> Val(CPF.Substring(9 + x, 1)) Then MsgBox("O CPF informado não é válido. Verifique se digitou corretamente.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return False End If Next MsgBox("O CPF informado é válido.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return True End Function
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.