Dicas e novidades sobre Visual Basic
O ListBox padrão do Visual Basic 6 (VB6) não suporta colunas nativamente. No entanto, podemos utilizar a API do Windows para simular colunas, utilizando Tabs dentro do ListBox. Neste artigo, você aprenderá como formatar uma ListBox com colunas simuladas, tornando a exibição dos dados mais organizada. 1️⃣ Criando um Módulo para Definir a Função API…
APIs API significa Application Programming Interface, e possui mais de 1000 funções que podem ser utilizadas pelo Visual Basic ou por qualquer linguagem de programação que rode em Windows. Apesar de haver diversas funções, somente algumas delas são verdadeiramente uteis. Os componentes do sistema operacional 32 Bits,que possibilitam a utilização deste recurso são 3…
Localizar Pastas do Windows ‘Código que recupera Pastas do Windows, como Strings: ‘Ex: C:\Windows\Desktop, C:\Windows\Histórico… ‘——————- ‘Código para o Form ‘——————- Option Explicit Private Sub Form_Load() Call AchePastas End Sub Private Sub AchePastas() MsgBox ” 0- ” & ListaPastas(0) & vbCrLf & _ ” 2- ” & ListaPastas(2) & vbCrLf & _ ” 5- ”…
DBGrid com consultas parametrizadas (consulta com parâmetros) Você deverá mudar a propriedade RecordSource do seu controle data (no qual é baseado o DBGrid) em tempo de execução, para algo como o que segue: Data1.RecordSource = “Select * suatabela Where seucampo = valordocamponoformulário” Data1.Refresh É necessário utilizar o método Refresh para atualizar o controle Data.
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…