Desenvolvimento de Software

Operações via SQL no Visual Basic A princípio deve-se declarar a variáveis de database e dynaset: Global DBanco as database Global DyRec as dynaset Abrindo o Banco de Dados: Set DBanco = Opendatabase (app.path & “\banco.mdb”) ‘onde banco é o banco de dados Selecionando registros: Set DyRec = DBanco.Createdynaset(“select * from func”) ‘onde func é…

Use a propriedade TaskVisible do objeto App. No evento Load do form principal ou na procedure Main do módulo principal, coloque o seguinte código: App.TaskVisible = False Em adição para evitar que o título de uma janela não apareça na barra de tarefas, configure a propriedade ShowInTaskBar do form para False.

Colocar duas linhas em um botão   Para colocar 2 linhas em um botão em Visual Basic, utilizamos o seguinte comando na propriedade Caption: Command1.Caption = “Primeira Linha” & vbCrLf & “Segunda Linha”  

O Objeto Clipboard é uma referência à Área de transferência, vejamos como utiliza-lo: Clipboard.gettext Este comando retorna o conteúdo da área de transferência. Clipboard.clear Limpa conteúdo da área de transferência. Clipboard.settext “Teste” Settext adiciona um novo texto p/ a área de transferência, no entanto p/ funcionar á necessário limpá-la primeiro usando o clear.

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…