Visual Basic

Obtendo o nome longo de um arquivo através de seu nome curto   Com esta função pode se obter o nome longo de um arquivo. Seu funcionamento é simples. Através da passagem de parâmetro do nome curto de arquivo nome é retornado seu nome longo. Public Function GetLongName(ByVal psShortName As String) As String Dim liPos…

No Visual Basic, quando se trabalha com formulários MDI (Multiple Document Interface), é possível organizar as janelas-filhas (MDIChilds) de diferentes formas para melhorar a disposição da interface. Tipos de Organização Disponíveis 🔹 Cascata (Cascade): As janelas são empilhadas de forma sobreposta.🔹 Lado a Lado Horizontalmente (Tile Horizontal): As janelas são distribuídas horizontalmente.🔹 Lado a Lado…

Para efetuar uma discagem pelo VB,basta insirir o código: Crie um MsComm no seu Form; Depois Digite: Mscomm1.CommPort = 2 ‘(Nº da porta em que está seu FAX/MODEM) Mscomm1.PortOpen = True Mscomm1.Output = “ATDT 1234567” ‘(Discagem por Tom) MScomm1.Output = “ATDP 1234567” ‘(Discagem por Pulso)

Eliminando o IF quando possível no Visual Basic   Se você atribui true ou false para uma variável (ou propriedade), após testar certas condições, poderia fazê-lo sem o IF. Veja: If (age > 18 and sex = “M”) and (NecessitaSeContigente = true ) Then ServicoMilitar = true Pode substituir por: ServicoMilitar = (age > 18…

No Visual Basic, é possível transformar um Label em um hyperlink para abrir páginas da web ou enviar e-mails. Isso pode ser feito utilizando a API ShellExecute, que permite executar arquivos e URLs diretamente do código. Passo a Passo para Criar Hyperlinks em Labels Código Completo Explicação do Código – ShellExecute → Função usada para…

O ListBox padrão do Visual Basic não suporta colunas, mas podemos contornar essa limitação utilizando a função API SendMessage do Windows. Isso permite organizar os itens da ListBox em colunas utilizando tabulações. Passo a Passo para Criar Colunas na ListBox – Adicione uma ListBox ao formulário e nomeie-a como lstCapitais.– Crie um módulo (arquivo .BAS)…

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…

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…

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…

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…

O Crystal Reports é uma ferramenta poderosa para gerar relatórios no Visual Basic (VB6). Para exibir ou imprimir um relatório, você precisa criar o arquivo .RPT, configurá-lo corretamente e utilizá-lo no seu projeto VB6. Passo a Passo para Imprimir um Relatório do Crystal Reports no VB6 Criando o Relatório no Crystal Reports Antes de integrar…