Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Foi o que disse no 4º parágrafo 7 tópicos acima. Não sei se isso é possível, mas pensando bem acho que não, já que o arquivo inicialmente aberto é o Normal.dot e a partir dele é que essas rotinas passam a valer. Por isso que Document_New() não é executada quando o Word é aberto. De qualquer forma, se eu conseguir imaginar uma solução te passo. Abraços, Graymalkin
  2. Graymalkin

    Exe

    Só complementando a resposta acima, aqui você encontra mais informações: http://www.pythonbrasil.com.br/moin.cgi/CxFreeze Abraços, Graymalkin
  3. Graymalkin

    Exe

    Por si só não. Mas existem aplicativos/bibliotecas para isso. Recentemente tive sucesso com um programa chamado cx_Freeze. Abraços, Graymalkin
  4. Graymalkin

    Flash,gifs

    Não, não dá erro. Fiz o teste aqui e deu certo: Private Sub Form_Load() AniGif1.LoadFile "c:\arq\anjo.gif", False End Sub Abraços, Graymalkin
  5. Mas, os jogos não ocorrem ao mesmo tempo. Por isso, o primeiro jogo do Flamengo pode ser com o Grêmio, mas o primeiro jogo do Grêmio não precisa ser necessariamente com o Flamengo. Ou não? Graymalkin
  6. Aqui funciona certo. Quando você clica no menu "Arquivo" e escolhe "Novo...", no documento criado não aparece? Graymalkin
  7. Sim, entendi... só acho que não haja uma maneira de impedir que o usuário altere isso. De qualquer forma, basta você trocar a linha... Selection.TypeText "Documento Nº: " & contador ... por: Selection.TypeText "Data de Criação: " & Date() & " - Arquivo Gerado Nº: " & format(contador, "00000") Abraços, Graymalkin
  8. Repare na variável "arquivo": arquivo = "C:\Documents and Settings\Rochinha\Dados de aplicativos\Microsoft\Modelos" O caminho informado não é de um arquivo e sim de uma pasta. O correto seria algo do tipo: arquivo = "C:\Documents and Settings\Rochinha\Dados de aplicativos\Microsoft\Modelos\arquivo.txt" ok? Abraços, Graymalkin
  9. As sugestões do Aragorn13 não resolveram? Graymalkin
  10. Não, ele não grava outro número só de abrir o Word. É necessário que o arquivo seja salvo antes de ser fechado para que isso ocorra. Por isso que fiz checar a propriedade Saved. Para mostrar o número no documento você pode incluir o seguinte: Private Sub Document_New() arquivo = "c:\contador.txt" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If Selection.TypeText "Documento Nº: " & contador End Sub Isso pode entrar exatamente abaixo ou acima do outro código. O único problema é que isso parece não valer para o primeiro documento (aquele que aparece ao iniciar o Word). Abraços, Graymalkin
  11. Graymalkin

    Downloads

    Aqui: http://vb.scriptbrasil.com.br/ Abraços, Graymalkin
  12. Você quer que o programa gere os 45 jogos? Tipo: Grêmio x Corinthians, Bahia x Coritiba, etc. ? Graymalkin
  13. Abra o Word, pressione ALT+F11, do lado esquerdo, em "Projeto - Normal", você terá uma hierarquia assim: "Normal" -> "Microsoft Word Objetos" -> "ThisDocument". Pois bem, dê um duplo-clique em "ThisDocument" e cole o código acima na janela branca que aparecerá ao lado. Apenas preste atenção que o código deve ficar no "ThisDocument" do "Normal" (haverá um outro "ThisDocument" abaixo no "Project (Documento1)"). Abraços, Graymalkin
  14. Não, não existe nenhuma propriedade para isso. No entanto, é interessante o efeito de mudar a cor, já que com isso sabe-se de forma mais rápida se o controle está ou não com o foco (pelo menos, é a minha opinião). Abraços, Graymalkin
  15. Graymalkin

    Flash,gifs

    Não pode se dizer que exista um "certo". Perguntei apenas porque ficaria mais fácil de ajudar sabendo quais são. Para gif existem vários, como o Animated Gif, por exemplo. Com este, o código seria: AniGif1.LoadFile "c:\imagem.gif", False Abraços, Graymalkin
  16. Sim, desde que a DataCombo tenha as propriedades List e ListIndex. Não uso a DataCombo, portanto fiz o código acima tendo em mente uma ComboBox normal. Aliás, uma DataCombo não deveria ser preenchida automaticamente? (Caso contrário, qual seria a diferença entre ela e a combobox normal?) E afinal, você está usando DAO ou ADO??? DBCombo é do DAO, para o ADO é DataCombo. Abraços, Graymalkin
  17. Agora entendi. Bem o que você quer pode ser feito usando o método Find() para encontrar um registro. Por exemplo: if not (rs.eof and rs.bof) then rs.movefirst endif rs.find "nome='" & cmbProduto.list(cmbProduto.listindex) & "'" if not rs.eof then txtDescrição.text = rs.fields("descricao").value endif Onde "rs" é o Recordset, cmbProduto é a combo com os produtos e txtDescrição é a textbox onde deve aparecer a descrição; nome é o campo na tabela que tem o nome do produto e descrição é o campo que contém a descrição do produto. Abraços, Graymalkin
  18. Não sei se é bem o que você quer, mas utilizando o evento Close do objeto Document no normal.dot, consegui fazer com que ele incrementasse o contador apenas quando um documento tivesse sido salvo antes de ter sido fechado (olhando a propriedade Saved de ActiveDocument). O código usado foi: Private Sub Document_Close() If ActiveDocument.Saved Then contador = 0 arquivo = "c:\contador.txt" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If contador = contador + 1 n = FreeFile() Open arquivo For Output As #n Print #n, contador Close #n End If End Sub Espero ter ajudado. Graymalkin
  19. Bem, "não me liguei"... por favor, tente explicar melhor. Abraços, Graymalkin
  20. Sim, talvez o tutorial do Guido não seja legal para quem está iniciando (eu mesmo não o segui a risca, só consulto de vez em quando). Então, dê uma olhada nos tutoriais disponíveis na página: http://www.pythonbrasil.com.br/moin.cgi/ArtigosTutoriais Abraços, Graymalkin
  21. Hehehe... confesso! Abraços, Graymalkin
  22. Experimentou o código sem ser no Load? Abraços, Graymalkin
  23. Vou dar uma olhada e vejo o que consigo. Nunca mexi com modpython também, mas "mod_python.so" não seria no Linux? Se não me engano, essa extensão (se bem que pode não ter nada haver) é algo equivalente a DLL no Windows. De qualquer forma, vou baixar o Apache e dar uma lida nesses tutoriais. Abraços, Graymalkin
  24. Graymalkin

    Programinha!

    Seria isso? valor = 0.5 qt = 1 resultado = 0 Do anterior = resultado resultado = resultado + valor ^ qt qt = qt + 1 diferença = resultado - anterior Loop Until diferença < 0.000001 Debug.Print resultado (Deu até nó na mente... não sou bom em Matemática...) Abraços, Graymalkin
  25. Graymalkin

    Duvidas

    Em relação a sua segunda pergunta, sim, é possível alterar as configurações de cores do sistema, usando a API SetSysColors. No API-Guide (www.mentalis.org) tem um exemplo. Abraços, Graymalkin
×
×
  • Criar Novo...