Graymalkin

Sim, por isso existe a propriedade CancelError. Quando está propriedade está True, um erro é levantado quando o usuário clica no botão Cancelar. Basta então que você detecte se ocorreu um erro após o ShowColor. Se ocorreu é porque o usuário clicou em Cancelar, caso contrário ele clicou em OK. Segue um exemplo: On Error Resume Next CommonDialog1.CancelError = True CommonDialog1.ShowColor If Err.Number <> 0 Then MsgBox "Cancelar foi clicado!" Else Me.BackColor = CommonDialog1.Color End If On Error GoTo 0 Abraços, Graymalkin

Veja bem, o segundo parâmetro do método AddItem permite que você especifique a posição em que o item será inserido. Além disso, como você já deve saber, a propriedade ListIndex guarda a posição do item selecionado atualmente. Com essas duas dicas já dá pra fazer o que você quer. Abraços, Graymalkin

Cara... você tem que procurar se esforçar. Olhando os métodos e propriedades do CommonDialog você encontrará um método chamado ShowColor e uma propriedade chamada Color. "Show", vem do inglês "mostrar, exibir", portanto já dá pra imaginar o que ShowColor faz. O exemplo que você pediu seria: CommonDialog1.ShowColor Me.BackColor = CommonDialog1.Color Veja que o valor da propriedade Color é atribuído à propriedade BackColor do form. Abraços, Graymalkin

A quantidade de registros que você quer avançar ou retroceder. Se for um valor positivo ele avança, se for um valor negativo ele retrocede. Abraços, Graymalkin

Sim, sem os parênteses. Infelizmente, as rotinas que são chamadas no VB6 não levam parênteses para delimitar os argumentos. Somente as funções necessitam disso. Nas rotinas, quando se tem apenas um argumento, pode-se usar os parênteses, mas isso tem uma outra implicação. Abraços, Graymalkin

Os argumentos da rotina FileCopy() são Source e Destination (do inglês, "origem" e "destino"). Segue um exemplo: FileCopy "c:\pasta\arquivo.jpg", "c:\outrapasta\outroarquivo.jpg" ok? Graymalkin

Embaixo de "Erro de compilação" deve ter outra mensagem. Qual é ela? Graymalkin

Quando tiver dúvidas desse tipo pressione F2 (Object Browser) e digite uma palavra. A palavra, nesse caso, poderia ser "file" ou "copy" (do inglês, "arquivo" e "copiar", respectivamente). Você encontraria então FileCopy(). Abraços, Graymalkin

Você não específicou se está usando DAO ou ADO, mas a idéia seria a seguinte (usando ADO, e onde "material" e "valor" são as variáveis que conterão os respectivos valores): rs.Find "material='" & material & "'" if not rs.eof then 'Se achou rs.fields("peso").value = rs.fields("peso").value + valor rs.update else 'Se não achou rs.addnew rs.fields("material").value = material rs.fields("peso").value = valor rs.update endif ok? Graymalkin

Eu estou aprendendo logica pela apostila e venho resolvendo os problemas normalmente mas esses que eu postei a apostila lançou sem explicar como fazer. Se voces também não sabem eu pergunto em outro fórum Uma apostila jamais lhe ensinará as resoluções para cada problema (até porque existem diversas maneiras de resolver um mesmo problema), mas deverá lhe apresentar os conceitos de cada função, comando ou estrutura. Pois bem, peguemos como exemplo o primeiro: P2.30. Faça um algoritmo que leia uma lista de números inteiros positivos terminada pelo número 0 (zero). Ao final, o algoritmo deve mostrar a média aritmética de todos os números lidos (excluindo o zero). Perguntas: você sabe usar o Enquanto? Você sabe o que é uma média aritmética? Graymalkin

Cara... tente fazer e poste aqui as suas dúvidas (que serão encontradas durante a tentativa de resolução das questões). Pode perguntar pra quê serve um If, o que é uma variável, ou qualquer outra coisa... só não peça que façam os exercícios por você. Abraços, Graymalkin

Os operadores lógicos não são exclusivos do Pascal. Duas maneiras fáceis de entender são: AND - Somente retorna True quando os dois valores são True OR - Retorna True se qualquer um (ou ambos) dos dois valores for True NOT - Inverte um valor; se é False retorna True, se é True retorna False ou AND - Retorna False se qualquer um (ou ambos) dos valores for False OR - Retorna False somente se ambos os valores forem False NOT - (é tão simples, que não consegui pensar outra maneira de explicar... ) Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

O componente Microsoft Common Dialog Control 6.0 tem isso. Abraços, Graymalkin

Mas, a idéia de uma pilha é que você só pode ver o item que está no topo. Para ver o próximo elemento é necessário que você retire o primeiro. Ao tirar o primeiro, o item do topo passará a ser o segundo valor. E assim vai, até a pilha acabar. Para não perder esses valores, você deverá guardá-los em outro local, como outra pilha ou um vetor. Abraços, Graymalkin

Para abrir um arquivo: e.Workbooks.Open "C:\arquivo.xls" Para salvar o arquivo aberto com outro nome: e.ActiveWorkbook.SaveAs "C:\arquivo2.xls" Onde "e" é um objeto Excel.Application. Abraços, Graymalkin

Coloque isso no evento KeyPress da caixa de texto: if keyascii=asc(",") and text1.text="" then keyascii=0 endif Onde "text1" é o nome da caixa de texto. Abraços, Graymalkin

Veja bem: existe um recordset ligado ao FlexGrid, certo? Pois então, quando você clicar em uma linha do FlexGrid, automaticamente, o Recordset passará a apontar para aquele registro. Daí, basta você preencher o outro form com os determinados campos do recordset. Abraços, Graymalkin

Mas, você também pode fazer isso: os.system('clear') Abraços, Graymalkin

Você não usou Value ao invés de Caption... note que são coisas distintas, não opostas. No caso, o que você fez foi verificar se a variável "segundo" tem o valor "Programador" ou "Novato" e daí marcou a OptionButton de acordo. Dá quase no mesmo que o exemplo que dei acima, a única diferença é que você descreve as strings no código ("Programador" e "Novato") enquanto que eu fiz usando a propriedade Caption das OptionButtons (que possuem exatamente estes mesmos valores). E, parabéns pela solução!!! Abraços, Graymalkin

Acredito que você possa então fazer num HTML (acho que é isso, não tenho certeza): <script LANGUAGE=Vbscript> 'seu código aqui </Script> No entanto, o VBScript é mais útil quando executado do lado do servidor, e não do lado cliente (onde tem algumas restrições). Abraços, Graymalkin

O For Each...Next é a versão do For...Next que não itera sobre inteiros, mas sim sobre coleções ou vetores. Dessa forma, é o mesmo que dizer (naquele caso): "Para cada b na coleção de controles". Segue um outro exemplo, utilizando um vetor dessa vez: Dim vet(2) As Integer vet(0) = 6 vet(1) = 5 vet(2) = 7 For Each valor In vet MsgBox valor Next valor E, voltando ao outro caso, a única coisa que poderia ser declarada seria o "b" (como Control), mas não há uma real necessidade disso. Abraços, Graymalkin

Quê isso, cara?! Não fique desanimado assim não. Deve ser só uma fase. E, sinceramente, não tenho visto uma diminuição (tanto em quantidade, quanto em qualidade) da ajuda que você dá pro pessoal aqui do fórum. Força aí, valeu? Abraços, Graymalkin

Bem, faltou o mais importante... de onde e como você está obtendo os dados? ADO, DAO, banco de dados, arquivos texto, etc.? Abraços, Graymalkin

Tipo "ls", "cp", etc.? Se for isso, use a função os.system("comando"). Abraços, Graymalkin

Creio que quando a pessoa apertar no "Sobre" o form principal não deverá ser descarregado (ou seja, o mesmo que fechar o programa), certo? Se for o caso, tire aquele "Unload Me" que faz exatamente isso. Em relação a fazer o outro form aparecer, veja a dica do Joaozava. Abraços, Graymalkin