Dicas e novidades sobre Visual Basic
Parâmetros Múltiplos para consultas em SQL Esta função gera um parâmetro para usar com a instrução LIKE do SQL, permitindo que o usuário possa escrever palavras compostas como critério de busca. Function Cria_Parametro_Multiplo(cParam) Screen.MousePointer = vbHourglass Dim cNew As String cParam = Chr(42) & cParam & Chr(42) For A = 1 To Len(cParam) If Mid$(cParam,…
Nesta matéria do WebMundi.com, você aprenderá como importar um arquivo texto para uma tabela do Access utilizando a linguagem de programação Visual Basic.
Em algumas aplicações, pode ser útil criar uma janela sem barra de título, especialmente para telas de login, splash screens ou interfaces personalizadas. No Visual Basic, isso pode ser feito ajustando algumas propriedades do formulário. Configuração do Formulário Para ocultar a barra de título, configure as seguintes propriedades do Form no Visual Basic: Explicação das…
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…