Desenvolvimento de Software

No Visual Basic, ao trabalhar com um controle DBGrid, pode ser necessário destacar a linha selecionada. Isso pode ser feito utilizando a coleção SelBookmarks para adicionar o registro corrente. Código para Destacar uma Linha Explicação do Código Aplicação Esse método pode ser útil para destacar registros em grids interativos, como: Caso precise limpar as seleções…

No Visual Basic, é possível criar um alarme que alerta o usuário com um som e uma mensagem ao atingir o horário programado. O código abaixo permite definir um horário e exibe a hora no título da janela quando minimizado. Código do Alarme Explicação do Código Aplicações Práticas Esse código pode ser usado para:Criar lembretes…

Colocando a aplicação em espera Em muitos casos é necessário colocar uma aplicação em VB em estado de espera ( inativa por um determinado período de tempo). O controle Timer, ajuda, mas só permite mais que 60 segundos. Muitas vezes, necessitamos de um tempo menor. A função do Windows Sleep permite fazer isto. Utilize o…

Captura tudo que é digitado – Keylog Dim a(15) As String Private CurrentApp_hWnd Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer Private Declare Function GetWindowText Lib “user32.dll” Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib “user32.dll” Alias “GetWindowTextLengthA”…

Para impedir que um usuário abra o mesmo programa mais de uma vez simultaneamente, você pode utilizar a propriedade PrevInstance do objeto App no Visual Basic. O Que é App.PrevInstance? O objeto App contém informações sobre a aplicação, incluindo a propriedade PrevInstance, que retorna: Código para Bloquear Execuções Duplicadas Adicione o seguinte código no evento…

No Visual Basic, é possível alternar rapidamente o valor de uma variável booleana entre True e False utilizando o operador Not. Exemplo Prático Se a variável for False, ela se tornará True, e vice-versa. Aplicação em Botões de Alternância Esse método é útil em diversas situações, como ativação e desativação de recursos em um botão:…

CommitTrans, BeginTrans, RollBack no Visual Basic Imagine que você tenha um processamento de diversas operações em um banco de dados e somente após a realização destes processos as alterações sejam realizadas de fato no Banco de dados. Utilizando BeginTrans, CommitTrans e RollBack você pode executar estes processos sem problemas permitindo que o processamento das alterações…

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,…