Visual Basic

Fechar todos Forms MDI Child Sub Command1_Click() Dim Frm As Form For Each Frm In Forms If Frm.Name <> Me.Name Then ‘fecha todos forms exceto o chamador (Pai-MDI Form) Unload Frm End If Next Frm End Sub

Criando atalhos no menu Iniciar usando DDE Uma maneira simples de criar atalhos no menu iniciar é utilizando comandos DDE usados anteriormente no Windows 3.1, que também vale para Win95. Os comandos são: AddItem, CreateGroup, DeleteGroup, DeleteItem, ShowGroup, ReplaceItem, Reload. Por exemplo, para se criar uma pasta no menu iniciar, e um atalho dentro dela,…

Em algumas situações, pode ser necessário impedir que o usuário copie ou cole dados em uma TextBox. No Visual Basic, isso pode ser feito interceptando eventos do teclado. Bloqueando CTRL+C (Copiar) e CTRL+V (Colar) O evento KeyDown não consegue detectar essas combinações, mas o evento KeyPress pode capturá-las pelos códigos ASCII das teclas: ✔ CTRL+C…

No Visual Basic, o arredondamento de números pode ser feito de forma personalizada para atender às necessidades do seu projeto. Abaixo, apresentamos duas funções úteis para arredondar valores com precisão. Criando uma Função de Arredondamento A função a seguir permite arredondar um número de acordo com o número de casas decimais desejadas: Código da Função…

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…