Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Graymalkin

    Comando Salvar Como

    Você pode colocar um componente CommonDialogs (clicando em "Mais controles" na barra de controles) e depois usar o seguinte código (dentro do evento Click do botão): CommonDialog1.CancelError = True CommonDialog1.Filter = "Apresentação do PowerPoint|*.ppt" Err.Clear On Error Resume Next CommonDialog1.ShowSave If Err.Number = 0 Then ActivePresentation.SaveAs CommonDialog1.FileName End If On Error GoTo 0 Sendo que eu não sei se as "respostas" serão salvas, já que eu não uso PowerPoint. Abraços, Graymalkin PS: Movido para VBA.
  2. Graymalkin

    Numeros

    De posse dos valores de 0 até 9, de 10 até 19 e das dezenas (20, 30, 40, 50, ..., 90) é só analisar o número e juntar as palavras. Usando um dicionário fica fácil de se fazer isso. Abraços, Graymalkin
  3. Graymalkin

    Posicao Em Arquivo

    Acredito que seja mais simples você ler as linhas (se não forem muitas) e daí mostrar especificamente a que você quer: linhas = file("c:/arquivo.txt", "r").readlines() print linhas[2] Certo? ;) Graymalkin
  4. O problema é que Find *não* é um método, e sim uma propriedade. Para executar mesmo é o método Execute() desta propriedade. Veja um código de exemplo: Type tipoWord = Type.GetTypeFromProgID("Word.Application"); Type tipoDocuments, tipoSelection, tipoFind; object winword = Activator.CreateInstance(tipoWord); object Documents, Selection, Find; Documents = tipoWord.InvokeMember("Documents", BindingFlags.GetProperty, null, winword, new Object[] {}); tipoDocuments = Documents.GetType(); tipoDocuments.InvokeMember("Add", BindingFlags.InvokeMethod, null, Documents, new Object[] {}); Selection = tipoWord.InvokeMember("Selection", BindingFlags.GetProperty, null, winword, new Object[] {}); tipoSelection = Selection.GetType(); tipoSelection.InvokeMember("TypeText", BindingFlags.InvokeMethod, null, Selection, new Object[] {"um $nome$ e outro teste"}); tipoSelection.InvokeMember("HomeKey", BindingFlags.InvokeMethod, null, Selection, new Object[] { 6 }); Find = tipoSelection.InvokeMember("Find", BindingFlags.GetProperty, null, Selection, new Object[] {}); tipoFind = Find.GetType(); tipoFind.InvokeMember("Text", BindingFlags.SetProperty, null, Find, new object[] { "$nome$" }); tipoFind.InvokeMember("Execute", BindingFlags.InvokeMethod, null, Find, new Object[] {}); tipoWord.InvokeMember("Visible", BindingFlags.SetProperty, null, winword, new object[] {true}); Certo? ;) Graymalkin
  5. Graymalkin

    Diagrama De Nós

    Qual é, exatamente, a sua dúvida? Abraços, Graymalkin
  6. Iguais aos do Clipper, né? Realmente são ótimos! :) Bom, um form só com botões tem o foco alterado pelas setas direcionais. No caso do sub-menu você poderia utilizar outros forms da mesma maneira. Sendo que, na minha opinião, um menu convencional do Windows é bem mais prático e também é utilizável pelo teclado. Abraços, Graymalkin
  7. Graymalkin

    Winsock

    Se você quiser passar o seu projeto eu posso dar uma olhada e tentar descobrir o que está errado. Meu e-mail é: wap@openlink.com.br Abraços, Graymalkin
  8. Eles responderam... .... ou seja, infelizmente, a gente não pode fazer a tradução. Abraços, Graymalkin
  9. O que você usa para imprimir? O objeto Printer? Se for, não seria só diminuir a fonte e colocá-la em negrito? (Se me lembro bem, o condensado é assim). Abraços, Graymalkin
  10. Graymalkin

    Uso Da Função Itoa

    Não, e nem o contrário dela (atoi()) faz isso. Você teria que fazer os cálculos igual a gente faz na mão (você poderia criar uma função para isso). Abraços, Graymalkin
  11. Isso já passou aqui no fórum. Experimente fazer uma busca. Abraços, Graymalkin
  12. A descrição e utilização destes métodos você encontra no help do VBA do Word, sendo que o jeito mais prático de utilizá-los é, no próprio Word, gravando uma macro fazendo exatamente o que você quer e depois indo no Editor do VBA (ALT+F11) e vendo o código gerado. Daí, é só adaptar. Abraços, Graymalkin
  13. De nada. :) Nós ajudamos no que podemos. E, se você está iniciando na programação agora, sugiro a você dar uma estudada sobre lógica de programação (aliás, temos uma sala para isso). Abraços, Graymalkin
  14. Em C# tanto faz você usar object ou Object (sendo System.Object o nome real deste último), já que eles são a mesma coisa. A diferença na utilização é em como chamar os métodos e propriedades deste, e é justamente isso que o artigo mostra. Enquanto em VB.NET você pode fazer... objWord.Documents.Open("e:\teste\teste.doc") ... em C# a mesma linha seria algo como (baseada nos objetos do artigo): tipoDocuments.InvokeMember("Open", BindingFlags.InvokeMethod, null, Documents, new Object[[]] {"e:/teste/teste.doc"}); Isso porque C# não tem o recurso de late-binding. Abraços, Graymalkin
  15. MdiChildren é uma coleção, portanto seus elementos podem ser acessados via índice (MdiChilren(0), MdiChildren(1), etc.) ou através de um For Each: For Each janela As Form In Me.MdiChildren MessageBox.Show(janela.Name) Next janela Certo? ;) Graymalkin
  16. Logo abaixo da linha "Inherits ..." você pode declarar esse objeto, porém você deverá utilizar o nome da classe (o nome da classe é "atendimento"?). Exemplo: dim x as new atendimento() Supondo que "atendimento" é o nome da classe e que "x" será o objeto a ser utilizado. Sendo que sem saber como você fez essa classe e onde ela está fica difícil dizer se o código acima vai ser válido no seu caso. Abraços, Graymalkin
  17. E naquela tela de splash (quando você abre o VB)? Aparece algo como "Enterprise Edition", "Standard Edition", etc.? Pergunto isso porque existe uma versão acadêmica que acredito que não permita gerar o executável. Abraços, Graymalkin
  18. Dê uma olhada neste tutorial que escrevi: http://www.onmasters.com.br/?area=ler_arti...os&artid=61 Acredito que ele vá te ajudar a fazer isso. Abraços, Graymalkin
  19. Assim: import sys sys.exit(0) Abraços, Graymalkin
  20. Se você usa ADO para abrir o banco, veja se o código abaixo resolve o caso: For Each campo In rs.Fields Response.Write campo.Name & " -> " & campo.Type Next campo Abraços, Graymalkin
  21. A identação está irregular, não? E a qual "segundo if" você se refere? Abraços, Graymalkin
  22. Se você utiliza Windows, dê uma olhada no WCurses: http://adamv.com/dev/python/curses/ E se você não precisar de nada sofisticado, você pode usar o módulo msvcrt também: import msvcrt def LerSenha(tamanho=4): retorno = "" print "Senha:" while len(retorno)<tamanho: letra = msvcrt.getch() msvcrt.putch("*") retorno += letra return retorno digitada = LerSenha(4) print "\nSenha digitada: %s" % digitada Abraços, Graymalkin
  23. Onde o objeto (ou classe?) "atendimento" é declarado? Abraços, Graymalkin
  24. Você pode usar o módulo curses que acompanha Python. Particularmente eu nunca usei, mas você vai encontrá-lo na documentação oficial da linguagem. Abraços, Graymalkin
  25. Qual a versão do seu VB6? Graymalkin
×
×
  • Criar Novo...