Graymalkin

O que você quer não seria... ptr = &local; ? Abraços, Graymalkin

Não se filtra o DataGrid e sim o ADODB.Recordset que está ligado ao mesmo. Por exemplo: rs.Open "SELECT * FROM tabela WHERE campo=50;", cn, 2, 3 set datagrid1.datasource = rs O código acima só retornará os registros da tabela "tabela" cujo campo "campo" seja igual a 50. Você também pode fazer isso pela propriedade Filter do objeto ADODB.Recordset. Abraços, Graymalkin

Uma PictureBox tem os mesmos métodos e propriedades básicos de um objeto Printer. Por isso, se você trocar o "Printer" por "Picture1" terá a impressão feita na mesma. Abraços, Graymalkin

Arquivos XLS são binários e não textos puros. O que você pode fazer é criar um arquivo texto puro, separando cada coluna por TAB (#9) e depois mandar abrir no Excel. Ele mesmo já identificará que se trata de um arquivo com colunas separadas por tabulação (e abrirá um Wizard para isso). Abraços, Graymalkin

Se não me engano, você deve alterar a propriedade DefaultExt para a sua extensão também. Abraços, Graymalkin

O 7 eu não sei pra quê se usa, mas o 8 é o BackSpace. Como exemplo, coloque isso no evento OnKeyPress de uma Edit: if key=#8 then showmessage('Você pressionou o BackSpace'); Execute, coloque o foco na edit e pressione o BackSpace. Abraços, Graymalkin

Aqui tem alguns (veja no final da página): http://www.ime.usp.br/~fcs/mac113/apostila/node6.html Abraços, e qualquer dúvida, 'stamos aí. Graymalkin

Sim, mas isso vai depender de uma série de fatores. Provavelmente você deve estar usando um DataControl (como o Data ou o ADODC) ou objetos do ADO e que só estarão visíveis dentro de um dos forms (ou não, mas isso não vai fazer realmente a diferença). Se você tem um código assim no Adicionar do form1: rs.AddNew Esse "rs" se refere ao "rs" que existe no form1 e não o do form2. Daí, mesmo que você chame o botão do form1 enquanto estiver no form2, o "rs" da rotina ali continuará sendo o do primeiro. A solução seria criar funções isoladas (em um dos forms ou em um módulo) que receberiam o recordset por referência. Algo como: public sub Adicionar(byref tabela as object) tabela.AddNew end sub Daí, ao chamar essa rotina no form1 você faria: Adicionar rs E o mesmo poderia ser feito no form2 (especificando então o recordset do segundo form, que poderia ou não ter o mesmo nome ["rs"]). É claro que nem sempre isso é praticável tendo em vista os controles que estão no form e que você quase com certeza terá de interagir. Abraços, Graymalkin

Falou. Abraços, Graymalkin

Vou colocar um exemplo aqui de como listar os arquivos de uma determinada pasta. A partir dele você já pode fazer o que quer: pasta = "c:\temp\" arq = Dir(pasta) Do While arq <> "" Debug.Print arq arq = Dir Loop Abraços, Graymalkin

Sim, existem casos em que você precisa que o bloco de código dentro do loop seja executado pelo menos uma vez, antes de testar a condição. Exemplo: i=1 do i=i+1 loop while i<1 msgbox i Se você colocar o teste da condição no início do loop, teria: i=1 do while i<1 i=i+1 loop msgbox i Infelizmente no momento não estou me recordando de algum exemplo prático (na vida real) de uso disso, mas vira-e-mexe eu sempre preciso dele. Abraços, Graymalkin

Não existe uma única função que faça isso. Todavia, você pode combinar o uso de algumas funções para chegar a esse resultado. Uma que é útil nesse caso é a função InStr() que retorna a posição de uma string em outra. Outra que pode ajudar nesse caso é a função Split() que divide uma string para um vetor (array) por um caracter separador (que nesse caso, pode ser o espaço em branco). Existem diversas maneiras de se fazer isso. Abraços, Graymalkin

Sim, você pode usar o Inno Setup em conjunto com o ISTool. Bastaria gerar o setup do VB (com o Package & Deployment Wizard) e importar o arquivo "setup.lst" no ISTool. Ele o avisará sobre alguns arquivos que não são necessários (e que, aliás, são perigosos de serem carregados de uma versão do Windows para outra). Experimente escolher um tipo de compactação como a 7-Zip e usar o UPX para compactar os executáveis e DLLs (a VM do VB6 diminui de 1,5MB para 0,7MB, aproximadamente, ao usá-lo). Abraços, Graymalkin

São 25 linhas e 80 colunas. Abraços, Graymalkin

Não sei se entendi ainda, mas não seria só mudar a propriedade Visible dos mesmos (supondo que eles estejam posicionados nos mesmos locais em ambas as janelas)? Ou eles não ficarão nos mesmos lugares? Abraços, Graymalkin

Então, se entendi bem, sua SQL deveria ser: sSql = "SELECT * FROM Clientes WHERE Empresa LIKE '%" & sConsulta & "%' ORDER BY CodCliente" Abraços, Graymalkin

Experimente exibir a instrução em uma caixa de texto e copiar e colar em uma consulta do Access para ver se dá o mesmo erro. Aparentemente não estou vendo algum erro ali. Abraços, Graymalkin

Qual o compilador no Windows? Abraços, Graymalkin

Bom, na verdade o pessoal se enveredou na defesa de suas linguagens e acabou-se esquecendo o objeto da discussão (programação de jogos). A .NET Framework é uma plataforma de desenvolvimento que conta com várias linguagens, incluindo o C++, C# e o VB.NET, por exemplo. No caso, esse C++ pode ser usado tanto com os recursos da plataforma ou não. Ainda não vi algum jogo feito baseado na .NET. Porém, talvez seja besteira pensar em uma única linguagem para criação de jogos. Indiscutivelmente a linguagem C (e não C++) é que é a mais usada, porém vira e mexe você vê alguma notícia sobre uma linguagem de script que é usada em conjunto para a criação de um determinado jogo (como Lua, uma linguagem nacional, que foi utilizada no jogo Grim Fandango, se não me engano). Além disso, deve-se levar em conta também tecnologias como DirectX e OpenGL, além de bibliotecas como a SDL e a Allegro. O módulo pygame, para Python, aliás, é um ótimo exemplo de integração entre duas linguagens já que utiliza a SDL, criada em C. Abraços, Graymalkin

O problema, provavelmente, está aqui: cur = cur.children A propriedade children deve estar retornando None. Não disponho da libxml2 aqui para testar, mas creio que children deveria ser um objeto (provavelmente algo como uma lista, dicionário ou mesmo outro objeto composto) para se chegar aos "filhos" do nó principal, certo? Quando você faz no modo interativo, qual o objeto retornado por "cur" após essa linha? Tente fazer um type(cur) ou um repr(cur) para dar uma olhada. EDITADO: Olhando no cookbook percebi que o cur se trata de um gerador e que realmente podem haver objetos retornados como None (assim como acontece com xml.dom.minidom). A solução para isso está lá mesmo: cur = cur.children while cur != None: if cur.name == "storyinfo": parseStory(cur) cur = cur.next Note que a cada nó retornado, testa-se ele não é None e caso positivo é que se olha a propriedade name dele. Você pode utilizar list comprehension para fazer uma lista só com os nós validos (ou seja, todos que *não* são None) ou usar o código acima. Abraços, Graymalkin

No API-Guide (http://www.mentalis.org/) você encontra um exemplo disso na API ChangeDisplaySettings. Abraços, Graymalkin

Por "scan", você quer dizer "listar todos os arquivos de um determinado tipo"? Se for, você pode usar a função Dir() para isso. Aliás, acho que isso já rolou aqui no fórum (há muito tempo atrás). Dê uma pesquisada. Quanto a passar uma variável de um form para outro, basta declará-la no General Declarations: public Variável as tipo Depois, bastará fazer: valor = form.Variável Onde "form" é o nome do form onde "Variável" foi declarada como pública. Abraços, Graymalkin

Outra barra de progresso? Realmente não sei, já que uso a do Common Controls mesmo (e acho ela o suficiente para mim). De qualquer forma, colocar a porcentagem na progressbar original não é tão difícil (possuindo, é claro, alguns conhecimentos sobre dispositivos de contexto [Device Context] e como lidar com eles). Fiz um exemplo aqui: http://www.graymalkin.globalhosts.com.br/stuff/PB.zip Abraços, Graymalkin

Aprenda Python. Roda em diversos sistemas operacionais e tem uma boa biblioteca e documentação. Quanto a fazer isso com VB, vai ser muito difícil. A razão disso é que os programas criados em VB são extremamente dependentes da VM (máquina virtual) do VB6, que só roda nos sistemas Win32, já que ela depende das APIs do mesmo. É claro que se for possível mimetizar as APIs do Win32 em outro sistema operacional, talvez isso seja possível. Já executei o próprio VB no Linux através do Wine. Todavia, vale lembrar que isso *não* é o que se chama de multiplataforma. Multiplataforma é o que Python, Ruby, Perl e Java, por exemplo, fazem; ou seja, você cria o programa e executa ele em qualquer sistema sem ter que fazer alterações ou gambiarras. Abraços, Graymalkin

Dê uma olhada na coleção Printers, pois ela tem a solução para isso. Abraços, Graymalkin