Lembretes Quebra Galho

Coloque a propriedade Keypreview do FORM = TRUE

  Option Explicit Private Const TH32CS_SNAPPROCESS As Long = 2 Private Const MAX_PATH As Long = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PATH End Type

  Exemplo: 01 Private Sub Combo1_GotFocus() SendKeys "%+{Down}" End Sub

Para imprimir direto na impressora localmente usamos o seguinte código, sem depender do objeto Printer:

  Primeiro você cria uma conexão ADO ou DAO.. No meu caso usei ADO - TB é minha Recordset Para carregar Labels: DataReport.Sections("Section4").Controls.Item("Label1").Caption = "Titulo" ou "Campo" Ex.: DataReport.Sections("Section4").Controls.Item("Label1").Caption = TB!Campo * Section4 é a seção de cabeçalho. Para saber o seção é só olhar no Report, onde o nome da seção é sempre o que está entre parenteses. Ex: Qdo crio um novo relatório O cabeçalho está como : Report Header (Section4) para carregar labels nesta seção uso o nome section4. Para carregar uma text: DataReport.DataMember = "" DataReport.Sections("Section1").Controls.Item("Text1").DataField = TB!Campo.Name * Assim como na label a section representa minha seção de Details * DataMember é " " (vazio) porque não uso o dataenvironment como conexão, conseqüentemente não tenho a command. Obs.: Texts só podem ser carregadas na seç...

  dim x as printer for each x in printers debug.print x.devicename next

Selecionar automaticamente uma impressora padrão.

  'Precisa das referências do AdoDb e do AdoX então caso não 'funcione verifique: 'Menu Project -> References 'Marque a opção Microsoft ActiveX Data Objects 2.x ( ADODB) 'Marque a opção Microsoft ActiveX Data Objects Extensions for DDL and Security 2.x ( ADOX) 'Agora vamos lá 'Definir as variáveis necessárias Dim Con As ADODB.Connection Dim Cat As ADOX.Catalog Dim Tbl As ADOX.Table 'Atenção: 'Isso não faz parte da criação do arquivo.mdb 'Mas é preiciso saber se o arquivo já existe no diretório antes de criá-lo 'Primeiro devemos marcar a referência "Microsoft Scripting Runtime" 'Definir a variável que vai verificar se o arquivo existe Dim FSO As FileSystemObject Private Sub Command1_Click() 'Criar uma nova instância das Classes adodob e adodx Set Con = New ADODB.Connection Set Cat = New ADOX.Catalog Set Tbl = New ADOX.Table 'Criar uma instância do FSO Set FSO = New FileSystemObject 'Definir o caminho e o nome do MD...

Vi esse tutorial por ae, na internet e vou colocar aqui. A maioria dos vírus para pen driver, cria 1 pasta e um arquivo . - a pasta com o nome de RECYCLER e o arquivo com o nome de AUTORUN.INF