Visual Basic

15 Dicas de Visual Basic Neste post mostraremos 15 dicas de desenvolvimento na linguagem de programação Visual Basic. Descobrindo se o S.O. é Windows 95 ou Windows NT ‘DEMONSTRAÇÃO DE IDENTIFICAÇÃO DO SISTEMA OPERACIONAL CORRENTE. ‘ ‘FUNÇÕES Public Declare Function GetVersionEx Lib “kernel32” Alias “GetVersionExA” (lpVersionInformation As OSVERSIONINFO) As Long ‘CONSTANTES Public Const VER_PLATFORM_WIN32_NT As…

Fechando todos os forms Para aplicações que não possuem MDI, código para fechar todos os formulários ativos Sub UnloadAll ( ) Dim f As Integer f = Forms.Count Do While f > 0 Unload Forms(f-1) If f = Forms.Count Then Exit Do f = f – 1 Loop End Sub

No Windows, é possível identificar o usuário atualmente logado no sistema utilizando a API do Windows GetUserName. Isso é útil para aplicativos que precisam validar permissões ou personalizar funcionalidades de acordo com o usuário. Obtendo o Nome do Usuário O código abaixo recupera o nome do usuário que está logado na máquina: 1. Declarando a…

Diminuindo o tamanho do Executável Algumas dicas para diminuir o tamanho do seu executável: – Evite deixar espaços (caracteres) no código. – Utilize o ‘With Statement’ para não ter que repetir nomes de objetos no código. – Os comentários, embora sejam úteis, são uns ocupadores de espaço. Portanto, se tiver muito deles, quando for compilar,…

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…