Dicas e novidades sobre Visual Basic
Ao criar aplicações no Visual Basic, muitas vezes é necessário centralizar um formulário na tela para melhorar a experiência do usuário. Isso pode ser feito ajustando as propriedades Top e Left do formulário durante a inicialização. Centralizando um Formulário Automaticamente Podemos criar uma função reutilizável para centralizar qualquer Form na tela, chamando-a no evento Form_Load….
Ao exibir mensagens em uma MsgBox, pode ser necessário dividir o texto em múltiplas linhas para facilitar a leitura. No Visual Basic, isso pode ser feito utilizando o caractere especial Chr(13) ou vbCrLf para representar a quebra de linha. Exemplo 1: Usando Chr(13) Exemplo 2: Usando vbCrLf (Forma Recomendada) Explicação do Código ✔ Chr(13): Representa…
Efeitos sonoros Além de usar os fundos musicais (MID),é possível utilizar efeitos sonoros (WAV) sem que seja necessário interromper a música de fundo, porém enquanto este efeito sonoro toca, os comandos do jogo “travam” até que ele acabe. O código abaixo, se refere à este exemplo: você quer que quando o jogo seja fechado,…
Como Abrir base de dados com Senha ? Este exemplo utiliza o objeto Dao Jet. Para outros objetos consulte o Help do VB. Para abrir o banco é necessário passar a senha no parâmetro Connect. No exemplo abaixo, a senha é “web”. Dim wrk As Workspace Dim db As Database Set wrk = DBEngine.Workspace(0) Set…
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…