Graymalkin

Basta utilizar o operador "<" (menor que), a função CDate() para converter uma string em data e a função Date() para obter a data de hoje. Exemplo: if cdate("29/10/2004")<Date() then response.write("Já passou!") else response.write("Ainda não passou!") endif É claro que no lugar de "29/10/2004" você deverá colocar a data que vai provir das caixas de texto. Abraços, Graymalkin

Acho que o problema está na linha... .TabStop = (.Left > 0) ... afinal de contas, o que "Left" teria a haver com isso nessa história? Acredito que o correto seria algo do tipo: .TabStop = not .TabStop Porém, mesmo assim esse código não faz o que você diz no topo da mensagem. Testei aqui e o que você quer já é feito naturalmente pela SSTab, ou seja, quando se está em uma determinada aba da mesma, somente os controles dela são selecionados com a tecla TAB (os das outras abas não são focados, mas controles externos à SSTab são). Abraços, Graymalkin

Você não respondeu a minha pergunta... de qualquer forma, deve ter uma rotina que está sendo executada para "preencher" a listbox, certo? Caso afirmativo, você deverá chamá-la novamente quando se clica em "Próximo" ou "Anterior". Abraços, Graymalkin

Não é exatamente isso. O que falei seria algo do tipo: n = FreeFile() Open "c:\teste.bat" For Output As #n Print #n, "ipconfig > c:\arquivoIP.txt" Close #n Shell "c:\teste.bat" 'Aqui é necessário uma pausa n = FreeFile() Open "c:\arquivoIP.txt" For Input As #n unk = input(LOF(n), n) Close #n MsgBox unk Só existe o inconveniente de que a função Shell() executa o programa e não espera por sua execução antes de permitir que o programa continue sua execução. Mas, existem soluções para isso. Abraços, Graymalkin

Você faz isso imprimindo diretamente na LPT1, como se estivesse criando um arquivo: n = freefile() open "lpt1:" for output as #n ? #n, "linha1" ? #n, "linha2" close #n Abraços, Graymalkin

O quê, exatamente, fica na listbox que deverá "correr" de acordo com o cliente selecionado? Abraços, Graymalkin

Então, por favor, descomplique pra gente. Abraços, Graymalkin

Não sei se entendi bem, mas você pode usar uma função para formatar a data de forma que ela seja sempre do mesmo tamanho, exemplos: msgbox format("12/2/2004", "dd/MM/yyyy") msgbox formatdatetime("12/2/2004", vbShortDate) Ambas produzem o mesmo resultado, ou seja, o "mês" ganha um 0 quando é menor que 10. Essa data formatada é que seria jogada na máscara (creio que você esteja falando de um maskedit). Abraços, Graymalkin

O que você quer é criar um ícone do seu programa na "bandeja do sistema" (system tray). Existem meios de se fazer isso por API (e você deve achar algum exemplo aqui no fórum; use a "Pesquisa") ou com um OCX (que você encontra na seção Arquivos da página: http://www.yahoogrupos.com.br/group/vbj). Abraços, Graymalkin

Basta usar o parâmetro Picture do método Add() do objeto Panels, exemplo: StatusBar1.Panels.Add , , "Teste", , Me.Icon É claro que a imagem pode provir de uma ImageList ou ser carregada com a função LoadPicture(). Abraços, Graymalkin

Sinceramente não entendi. Você está salvando as alterações com SaveSetting, certo? Então porque não usar GetSetting (com um loop) para obtê-las novamente? Abraços, Graymalkin

Também pode ser feito assim (no evento KeyPress): keyascii = asc(ucase(chr(keyascii))) Abraços, Graymalkin

Não entendi bem. Você quer mudá-los de lugar na hora da execução? Se for, basta utilizar as propriedades Top e Left. Abraços, Graymalkin

Sim, usando a técnica de late-bound ("anexação tardia" ou "ligações futuras"). A idéia é que ao invés de fazer referência a ela na opção References, você crie-a por código de forma dinâmica. Exemplo: set objeto = CreateObject("Nome.Classe") Um exemplo disso é... set cn = CreateObject("ADODB.Connection") ... que cria um objeto ADODB.Connection sem que você tenha que se preocupar com a versão instalada do ADO (ou mesmo se ele está instalado; nesse caso aparecerá uma mensagem de erro que pode ser tratada). O mesmo vale para qualquer DLL ActiveX (do tipo que são feitas no VB). Abraços, Graymalkin

Sim, substituir as DLLs de sistemas operacionais diferentes sempre dá problema. Por isso, aconselho o uso do conjunto Inno+ISTool para criação do setup. Primeiro você gera o arquivo de instalação normalmente com o Package & Deployment Wizard e depois importa o setup.lst gerado no ISTool. Quando você for compilar o setup ele acusará os famigerados "unsafe files" (arquivos não seguros). Basta então remover estes arquivos e (provavelmente) você não terá problemas. Para o Inno Setup: http://www.jrsoftware.org/ Para o ISTool: http://www.istool.org/ Abraços, Graymalkin

Sim, existe outro jeito: chamar o ipconfig (com a função shell()) redirecionando a saída dele para um arquivo (com ">") e depois abrir o arquivo texto (com a instrução open) e lendo o conteúdo dele (com a instrução input ou a função input()) e analisando o texto (com as funções de tratamento de strings, como mid(), left(), right(), instr(), etc.). Abraços, Graymalkin

Se não me engano, você tem que passar o valor NULL. Abraços, Graymalkin

Exatamente o que o Luiz falou, por exemplo: Set tb_carteiraliquida = bco_sip.OpenRecordset("SELECT * FROM CarteiraLiquida ORDER BY campo", dbOpenDynaset) Se você não conhece SQL é bom dar uma pesquisada no assunto pois isso ajuda muito quando se lida com banco de dados. Abraços, Graymalkin

Experimente fazer exercícios de lógica de programação (você acha aos montes procurando no onipresente Google). E, se quiser, tente fazer o desafio proposto no contest que aconteceu aqui há um tempo atrás: http://scriptbrasil.com.br/forum/index.php?showtopic=31792 Abraços, Graymalkin

Veja a mensagem de erro: "empty string for float()". Traduzindo: "sequência de caracteres vazia para a função float". Teste aí: print float("") e print float("2") Veja que o primeiro acusará esse mesmo erro. O raw_input() serve justamente para a *entrada* de dados, portanto você deveria escrever algo ali e não simplesmente teclar ENTER (deixando assim as variáveis vazias). Abraços, Graymalkin

Aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=38904. Você poderia ter usado a busca do fórum e ter procurado pela palavra de que você se lembrava ("controls"). Abraços, Graymalkin

Acho que você fala da versão para aprendizado, não? Se não me engano, o nome é "Visual Basic Learning Edition". Você deve achar em algum lugar do site da Microsoft. Outra alternativa é baixar a .NET Framework SDK para ter o VB.NET. Esse é realmente de graça e completo (porém você só vai ter o compilador e não a IDE para desenvolver). Esse, com certeza, você encontra no site da Microsoft. Abraços, Graymalkin

Agora (acho que) entendi melhor. Só que, pelo que entendi, você vai usar apenas uma receita por vez. Certo? Se for, você só vai precisar fazer o loop das checkboxes (já que elas são específicas para a receita escolhida nos optionbuttons). Se não for isso, explique mais detalhadamente. Abraços, Graymalkin

Tem que ser em C++? Isso é muito simples de ser feito em pelo menos três outras linguagens que conheço. Abraços, Graymalkin

Experimente mover para o próximo registro (ou para o anterior) antes de fazer o Refresh e veja se dá certo. Abraços, Graymalkin