Desenvolvimento de Software

Ativando o Caps lock via código 1a. Parte: Insira o seguinte código nas declarações gerais de um módulo .BAS Public Const VK_CAPITAL = &H14 Public Type KeyboardBytes kbByte(0 To 255) As Byte End Type Public kbArray As KeyboardBytes Public Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Long Public Declare Function GetKeyboardState Lib…

Verificar a existência de placa de som Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long Dim res As Integer res = waveOutGetNumDevs() If res > 0 Then msgbox “Existe Placa de Som” Else msgbox “Não Existe Placa de Som” End If

As vezes desenvolvemos aplicações que necessitam mostrar a posição do mouse na tela. Global Type POINTAPI x As Long y As Long End Type Declare Function SetCursorPos Lib “user32” (ByVal x As Long, ByVal y As Long) As Long Declare Sub GetCursorPos Lib “user32” (lpPoint As POINTAPI) Global MOUSE_XY As POINTAPI Global xy_mostrar As Boolean,…

Desmarcar todos os itens de uma lista Uma maneira rápida de retirar qualquer seleção de uma listbox é: list1.selected (-1) = False Infelizmente,isto não funciona em VB4.  

Ativando o Num Lock via código 1a. Parte: Insira o seguinte código nas declrações gerais de um módulo .BAS Public Const VK_NUMLOCK = &H90 Public Type KeyboardBytes kbByte(0 To 255) As Byte End Type Public kbArray As KeyboardBytes Public Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Long Public Declare Function GetKeyboardState Lib…

SQL e Visual Basic A linguagem SQL(Structured Query Language) é uma linguagem de alto nível para manipulação de dados dentro do modelo relacional. Seu objetivo é fornecer uma interface de alto nível ao usuário. É uma linguagem não procedural, e, não cabe ao usuário definir como o gerenciador de banco de dados executará uma tarefa, mas…

Introdução Mudar a cor da barra de título de um formulário no Visual Basic pode ser útil para personalizar a aparência da sua aplicação. Neste artigo, mostraremos como alterar essa cor utilizando a API do Windows. Código para Alterar a Cor da Barra do Formulário Para modificar a cor da barra de título de um…

A indentação no Visual Basic melhora a legibilidade do código, facilitando a manutenção e o entendimento do programa. Veja como fazer isso de forma prática: Indentando com Teclas de Atalho Para organizar e alinhar seu código de maneira eficiente: Exemplo Prático Antes da indentação: Depois da indentação: Outras Dicas para Melhorar o Código no Visual…

Chamando Programas específicos do Painel de Controle Para chamar programas do Painel de Controle não se usa necessariamente uma API, para isto, executa-se o programa rundll32.exe. De acordo com os parâmetros de cada programa chamado. Veja as chamadas das principais telas: – Para chamar a tela do Painel de Controle Call Shell(“rundll32.exe shell32.dll,Control_RunDLL”, vbNormalFocus) * Adicionar…

Uma das maneiras de testar se um arquivo específico existe é utilizando a função Dir$, com a identificação completa do caminho do arquivo. Dir$ irá retornar o exato nome do arquivo (se existir) ou um nulo, se não existir. Por exemplo: If Dir$(“C:\DOCS\ARQUIVO.TXT”) “” Then ‘o arquivo existe – Insira sua rotina Else ‘arquivo não…

Zeros à esquerda em números armazenados como strings podem ser desnecessários e atrapalhar a manipulação dos dados. No Visual Basic, existem formas simples e eficientes para removê-los. Exemplo Prático Suponha que a variável Minhastring contenha “000290”. Podemos converter esse valor para remover os zeros à esquerda: Explicação Ambas as soluções funcionam bem, mas a primeira…

Chamando um arquivo de HELP na sua aplicação A partir de um arquivo de help *.hlp em sua aplicação você poderá chamá-lo utilizando a função API WinHelp. 1a. Parte: Para isso vá crie um modulo (.bas) e declare as seguintes constantes e funções: Const Help_File = “File.hlp” Const Help_Index = &H3 Const Help_Context = &H1…