Entrar

Não há suporte para seu navegador

Você precisa atualizar seu navegador para usar o site.

Atualize para a versão mais recente do Internet Explorer

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

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
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
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 SubPrivate 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 ExplicitPublic Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublic Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As LongPublic Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPublic 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.
snap-in mmc designer

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 242401 - Última Revisão: 02/23/2014 13:54:04 - Revisão: 1.2

  • 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
  • kbnosurvey kbarchive kbmt kbdswmanage2003swept kbhowto kbsnapin KB242401 KbMtpt
Comentários