Adicionar tabs a uma ListBox

O Objeto ListBox Standard do Visual Basic não contempla colunas. Podemos contornar o problema, utilizando uma função API do Windows. No modulo .Bas adicionamos outra variável constante: Public Const LB_SETTABSTOPS = &H192 No evento Form_Load() digitamos o seguinte código: Private Sub Form_Load() Dim lngRet As Long LngRet = SendMessage(lstcapitais.hwnd, LB_SETTABSTOPS, 1, 40&) Call Capitais End

Continuar lendo »

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 »