Form circular

Form circular Adicione o seguinte código nas declarações da form: Private Declare Function CreateEllipticRgn Lib “gdi32” (ByVal X1 As _ Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib “user32” (ByVal hWnd _ As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As

Continuar lendo »

Validando CGC e CPF

Validando CGC e CPF no Visual Basic Os números de CGC e CPF possuem dígitos verificadores para que ?!?!?!… Horas para serem verificados!!! Isto é obvio. A validação deve ser feita (por qualquer sistema decente) para impedir a digitação por engano e os CGCs e CPFs falsos. Function Fu_consistir_CgcCpf (Vl_CgcCpf As String) ‘ Esta Rotina

Continuar lendo »

Apagar todos os registros de uma tabela

Dicas de Visual Basic

Apagar todos os registros de uma tabela Algumas linguagens de programação têm uma instrução que permite apagar todos os registos de uma tabela. Digamos que pretendemos que a mesma se torne “vazia”. (a instrução “Zap” do clipper e do FoxPro) O Visual basic infelizmente não possui uma instrução deste tipo. Há duas maneiras de efetuar

Continuar lendo »

Imprimir como no DOS

Imprimir como no DOS Para imprimir utilizando impressoras matriciais, a melhor forma é como no antigo DOS, utilizando os próprios caracteres da impressora, pois a impressão através Gerenciador do Windows é muito lenta. Para isso, deve-se abrir a porta da impressora como se fosse um arquivo texto. Exemplo: Open “LPT1:” for output as #1 for

Continuar lendo »