Dicas e novidades sobre Visual Basic
Ajustar o tamanho dos objetos quando muda o tamanho do formulário Para ajustar o tamanho de objetos quando se redimensiona um form em tempo de execução, utilize o evento Form_Resize (redimensionar tamanho), por exemplo: Private Sub Form_Resize() Text1.Width = Form1.Width / 2 Text1.Left = Form1.Width / 4 Text1.Top = Form1.Height / 3 End Sub
Arredondar um número para o valor múltiplo de 5 mais próximo Nesta dica de Visual Basic do Web Mundi.com, aprenderemos como arredondar um número para o valor múltiplo de 5 mais próximo. Para isto, basta utilizar a seguinte função: Function Multiplo5(Valor As Double) As Integer Multiplo5 = Int((Valor + 2.5) / 5) * 5 End…
Mapear uma unidade de rede; Declare Function WNetAddConnection Lib “mpr.dll” Alias “WNetAddConnectionA” (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName _ As String) As Long Declare Function WNetGetConnection Lib “mpr.dll” Alias “WNetGetConnectionA” _ (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName _ As Long) As Long Declare Function WNetCancelConnection Lib “mpr.dll” Alias…
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.