Graymalkin

Que eu saiba, sim. Aliás, vejo uma vantagem significativa nisso: a possibilidade de formatar os dados impressos do jeito que quisermos. Abraços, Graymalkin

Não, não tem aspas ali. O correto é o código sem as aspas, ou seja: rs.Open "SELECT * FROM cds WHERE codigo=" & txtCodigo.Text, cn, adOpenDynamic, adLockOptimistic Mas, o código que você colocou, não deve ser colocado no evento Load e sim em um botão, por exemplo. Afinal de contas, o evento Load é executado quando o form é carregador, portanto você não tem tempo para escrever na caixa de texto. Salvo a abertura do Connection (cn) o resto deveria ficar em um evento ativado pelo usuário. Abraços, Graymalkin

Você terá de usar o Winsock para enviar as mensagens, se conectando diretamente a um servidor SMTP. Existem exemplos na seção Arquivos da página: http://www.yahoogrupos.com.br/group/vbj Pretendo fazer uma DLL para isso (em Python) que poderá ser utilizada em programas VB. Assim que eu tiver feito, te falo. Abraços, Graymalkin

Com o Printer.Print ela não dá nem sinal de vida, certo? Mas, ela está devidamente instalada no sistema operacional? Ela imprime a página de teste do Windows? E não, com o segundo código você não pode especificar exatamente onde quer escrever (você pode fazer isso através de espaçamentos, porém os tamanhos são fixos para todos os caracteres, inclusive o espaço em branco). Mas, como são as etiquetas? Em uma carreira, duas? Ou outro tipo? Abraços, Graymalkin

O quê, exatamente, você não conseguiu fazer? Abraços, Graymalkin

As bordas só são alteráveis em tempo de desenvolvimento. Abraços, Graymalkin

Acredito que com as APIs FindWindow ou EnumWindows você poderá obter todas as janelas disponíveis e depois usar a API SetWindowPlacement para defini-las como minimizadas. Você acha exemplos dessas APIs no API-Guide: http://www.mentalis.org/ Abraços, Graymalkin

Porque adicionei a unit Printers. Se entendi bem, você não quer imprimir *o DBGrid* e sim os dados que estão sendo *exibidos* no mesmo. Na verdade os dados estão na tabela que está relacionada ao DBGrid, por isso você pode percorrer toda a tabela mandando imprimir cada registro. Abraços, Graymalkin

Use a função Dir(). Se ela retornar "" (vbNullString) é que porque o arquivo não existe, caso contrário ela retorna o próprio nome do arquivo. Abraços, Graymalkin

Então, bastaria você trocar a linha... rs.Open "SELECT * FROM cds", cn, adOpenDynamic, adLockOptimistic ... por: rs.Open "SELECT * FROM cds WHERE codigo=" & txtCódigo.text, cn, adOpenDynamic, adLockOptimistic Isso, supondo que o campo "código" seja numérico. Caso ele seja texto você deverá colocar uma ' (aspa simples) antes e uma depois do valor. Abraços, Graymalkin

Bom, pelo que entendi você só não quer é colocar o código em todas as rotinas. Isso porque o código do meu primeiro post impede que o seu programa feche, porém você deverá repeti-lo em todas rotinas. Não conheço uma maneira global de tratar erros. Abraços, Graymalkin

Bom, alguma coisa você deve saber sobre ela, caso contrário não estaria querendo usá-la... "Com os conhecimentos vem a dúvida" (Goethe). Abraços, Graymalkin

Que eu me lembre, compila-se ela do mesmo jeito que um executável. A diferença fica só mesmo na extensão (que fica realmente TPU). Abraços, Graymalkin

Bom, eu preciso saber como você abre a tabela e exibe os dados na DataGrid para poder te dar um exemplo equivalente (basicamente, existem dois meios para se fazer isso). Explique detalhamente o que você faz para exibir o conteúdo de uma tabela em um DataGrid. Abraços, Graymalkin

Acredito que ela seja paralela, não? Caso positivo, tente o seguinte: n = freefile() open "lpt1:" for output as #n ? #n, "linha1" ? #n, "linha2" ? #n, "linha3" close #n E veja se ela imprime. Em todo caso, você não especificou o quê, exatamente, ocorre ao tentar imprimir com o código do seu post. Ela não imprime? Não imprime no lugar certo? Imprime tudo errado? Abraços, Graymalkin

Você pode colocar em cada rotina o seguinte: on error goto trata_erro 'início código da rotina '... 'fim do código da rotina exit sub trata_erro: msgbox "Ocorreu o seguinte erro: " & err.number & " - " & err.description & vbcrlf & "Contacte o programador!" É claro que no label trata_erro você pode fazer com que a informação seja gravada em arquivo (texto puro ou uma tabela, por exemplo) para uma análise posterior. Abraços, Graymalkin

Vá na opção Components do menu Project e marque um dos "Microsoft Windows Common Controls" da lista. Um deles vai ter a barra de status. Abraços, Graymalkin

Chame a função Shell() com o segundo parâmetro como vbHide para impedir que a janela apareça. Abraços, Graymalkin

Que tal postar sua dúvida diretamente aqui? Quem sabe não podemos ajudar? Abraços, Graymalkin

Pode dar um exemplo dessa situação? Abraços, Graymalkin

Repare que AddItem recebe dois parâmetros: o primeiro é o item e o segundo é a posição em que o item deve ser inserido. Abraços, Graymalkin

Use o método RemoveItem para remover um determinado item especificando seu *índice*. Para saber o índice do item atualmente selecionado você pode usar a propriedade ListIndex. Abraços, Graymalkin

Na seção Arquivos da página http://www.yahoogrupos.com.br/group/vbj, você acha uma biblioteca (chamada win95io.zip) para manipulação de portas paralelas e seriais. No histórico da lista você também deve achar algum exemplo de utilização (acho que já postei isso lá uma vez). Abraços, Graymalkin

As funções WhereX e WhereY. Abraços, Graymalkin

Não conheço esse modelo, mas como você está fazendo? Com um exemplo do código usado acho que fica mais fácil pra gente te ajudar. Abraços, Graymalkin