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 »

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 »
Pages:«1234567...34»