-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
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
-
Só complementando a resposta acima, aqui você encontra mais informações: http://www.pythonbrasil.com.br/moin.cgi/CxFreeze Abraços, Graymalkin
-
Por si só não. Mas existem aplicativos/bibliotecas para isso. Recentemente tive sucesso com um programa chamado cx_Freeze. Abraços, Graymalkin
-
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
-
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
-
Aqui funciona certo. Quando você clica no menu "Arquivo" e escolhe "Novo...", no documento criado não aparece? Graymalkin
-
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
-
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
-
As sugestões do Aragorn13 não resolveram? Graymalkin
-
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
-
Aqui: http://vb.scriptbrasil.com.br/ Abraços, Graymalkin
-
Você quer que o programa gere os 45 jogos? Tipo: Grêmio x Corinthians, Bahia x Coritiba, etc. ? Graymalkin
-
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
-
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
-
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
-
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
-
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
-
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
-
Bem, "não me liguei"... por favor, tente explicar melhor. Abraços, Graymalkin
-
Qual Será?
pergunta respondeu ao Newton Pasqualini de Graymalkin em Outras Linguagens de Programação
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 -
Qual Será?
pergunta respondeu ao Newton Pasqualini de Graymalkin em Outras Linguagens de Programação
Hehehe... confesso! Abraços, Graymalkin -
Experimentou o código sem ser no Load? Abraços, Graymalkin
-
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
-
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
-
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