Como usar um timer com um projeto do snap-in Visual Basic

Traduções deste artigo Traduções deste artigo
ID do artigo: 242401 - Exibir os produtos aos quais esse artigo se aplica.
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo demonstra como usar um objeto de timer em um projeto de snap-in desenvolvido com o MMC Snap-in Designer For Visual Basic.

Mais Informações

Passos para reproduzir exemplo


  1. Inicie o Visual Basic e crie um novo snap-in do projeto na caixa de diálogo New Project .
  2. Abrir o Designer SnapIn1 e adicione uma nova URLView resultado exibir o Nó estático . Por padrão, o novo URLView é chamado URLView1.
  3. Exiba as propriedades de URLView e conjunto é propriedade de URL para um site válido (http://exemplo.Microsoft.com) e clique em OK .
  4. Exibir as propriedades SnapIn1 Designer e defina a propriedade Exibição de resultado padrão para URLView1 e clique em OK .
  5. Abrir janela de código SnapIn1 Designer e colar no código a seguir:
    Private Sub ResultViews_Deactivate(ByVal ResultView As SnapInLib.ResultView, Keep As Boolean)
    
        ' stop the timer object
        If (ResultView.Tag) Then
        
            Call KillTimer(0, ResultView.Tag)
            
        End If
        
    End Sub
    
    Private Sub ResultViews_Initialize(ByVal ResultView As SnapInLib.ResultView)
        
        ' start the timer object
        ResultView.Tag = SetTimer(0, 0, 1000, AddressOf TestTmrProc)
        
        ' if timer object failed, present a dialog to the user
        If (ResultView.Tag = 0) Then
        
            SnapIn.ConsoleMsgBox "Error Creating Timer Object", vbOKOnly + vbCritical, "Timer Object Error"
            
        End If
        
    End Sub
    						
  6. Adicione um novo módulo para o projeto. Por padrão, esse novo módulo é chamado Module1.
  7. Abra o Módulo1 janela de código e passado no código a seguir:
    Option Explicit
    
    Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    
    Public Sub TestTmrProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal iEvent As Long, ByVal iTime As Long)
    
        ' enable error handling here.  this is important : any error which
        ' is not handled in the module may cause the Snapin to stop
        ' responding
        On Error Resume Next
        
        ' print current time information to debug window 
        Debug.Print Now
        
    End Sub
    						
  8. Pressione F5 para executar o projeto de snap-in de dentro do IDE. Quando a caixa de diálogo de depuração for exibida, selecione a opção Iniciar programa e digite MMC no campo de texto e clique em ok .
  9. Quando o MMC é carregado, carrege o snap-in de teste para o console.
  10. Selecione SnapIn1 ScopePaneItem .
  11. Alterne para o IDE do Visual Basic e examine a janela imediata. A hora atual é impressa uma vez um segundo até que outro ScopeItem está selecionado ou MMC seja fechado.

Propriedades

ID do artigo: 242401 - Última revisão: domingo, 23 de fevereiro de 2014 - Revisão: 1.2
A informação contida neste artigo aplica-se a:
  • Microsoft Management Console 1.1
  • Microsoft Management Console 1.2
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
Palavras-chave: 
kbnosurvey kbarchive kbmt kbdswmanage2003swept kbhowto kbsnapin KB242401 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 242401

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com