Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. A maioria sim, mas já que até o Visual Studio 2003 está relacionado, eu arriscaria fazer um teste com o VB6. Quem sabe não funciona? Abraços, Graymalkin
  2. Graymalkin

    Windows Forms

    E qual seria esse banco de dados? Access, SQL Server, MySQL, PostgreSQL, etc. Abraços, Graymalkin
  3. Parabéns a ambos! :) Abraços, Graymalkin
  4. Graymalkin

    Sintetizador De Voz

    Eu uso a RealSpeak Raquel (que tem uma pronúncia muito boa) com o SAPI: Dim k As Object = CreateObject("SAPI.SpVoice") k.Speak("Isto é um teste") Abraços, Graymalkin
  5. O problema neste caso é que se o programa for ser utilizado em rede (ou seja, por mais de um computador), poderá haver duplicação de códigos. Neste tópico eu proponho uma solução para isso: http://scriptbrasil.com.br/forum/index.php?showtopic=28512 Abraços, Graymalkin
  6. Nops... isso é ASP, então estou movendo para o lugar correto. Abraços, Graymalkin
  7. Coloque o seguinte no evento KeyPress da caixa de texto: KeyAscii = Asc(UCase(Chr(KeyAscii))) Lembre-se de retirar o seu código do evento Change. Abraços, Graymalkin
  8. Bem-vindo novamente, fercosmig! Abraços, Graymalkin
  9. Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=104390 Abraços, Graymalkin
  10. Exato, por esta razão é que existem os instaladores e a necessidade de se realmente "instalar" o aplicativo no sistema operacional. Abraços, Graymalkin
  11. Realmente não está encontrando mesmo (se a caixa está ficando vermelha, esse é o motivo). Mas, você está digitando o *início* do que deve ser procurado? Porque se não for o início você pode colocar um * (asterisco) na frente do texto no código: If HF1.TextMatrix(i, 1) Like "*" & txtBusca.Text & "*" Then Experimente mudar essa linha e veja se dá certo. Abraços, Graymalkin
  12. Repare no evento onde você colocou o código: StatusTextChange do WebBrowser. Este evento só vai ocorrer se o texto de status do mesmo mudar. Você deveria colocar este código no evento Load do form ou no Click de um botão. Abraços, Graymalkin
  13. Graymalkin

    Trigger

    Por "base em sql" você quer dizer no SQL Server? Ou no MySQL? Ou em qualquer outro SGBD que suporte SQL (como o próprio PostgreSQL)? :rolleyes: Graymalkin
  14. A própria DLL da máquina virtual do VB (msvbvm60.dll) é uma biblioteca do tipo COM/ActiveX, assim como 99% das outras bibliotecas usadas em um programa criado em VB. E este tipo de biblioteca necessita de registro no sistema operacional para ser localizada. Portanto acho difícil que você possa usar o VB6 sem registrar as DLLs (o que é feito na instalação do mesmo). Abraços, Graymalkin
  15. Sim, você pode fazer algo assim (onde HF1 é uma Hierarchical Flexgrid): Private Sub txtBusca_Change() achou = False HF1.Col = 1 For i = 1 To HF1.Rows - 1 If HF1.TextMatrix(i, 1) Like txtBusca.Text & "*" Then HF1.Row = i HF1.TopRow = i achou = True Exit For End If Next i If Not achou Then txtBusca.BackColor = vbRed txtBusca.ForeColor = vbWhite Else txtBusca.BackColor = vbWhite txtBusca.ForeColor = vbBlack End If End Sub A parte do final (onde a cor da caixa de texto é alterada) é opcional, mas é legal para dar um aviso ao usuário de que ele não encontrará nada a partir do que está escrito. Abraços, Graymalkin
  16. Seria melhor então você fazer assim: Set Tbl = cat.Tables("Tabela") achou = False For Each coluna In Tbl.Columns If coluna.Name = txtNome.Text Then achou = True Exit Sub End If Next If Not achou Then Tbl.Columns.Append txtNome.Text, adSmallInt End If Apenas um loop e um if. Abraços, Graymalkin
  17. Coloca novamente o código todo que você está usando, que aí fica mais fácil para ajudar. Abraços, Graymalkin
  18. Você viu o meu código ali em cima? É um exemplo de código identado. Só que quando você está digitando no interpretador ativo você tem que observar que o código pode ficar meio torto por causa da primeira linha (onde vai ter um >>> na frente). Experimente colocar o código em um arquivo .py e executá-lo e você verá que funciona. Veja como fica no interpretador: >>> x = raw_input('Informe a fase:') Informe a fase:vapor >>> if x=='líquido': print 'Menos de 100ºC' elif x=='vapor': print 'Mais de 100ºC' else: print 'Menos de 0ºC' Mais de 100ºC E veja como fica somente o código quando colocado em um arquivo .py: x = raw_input('Informe a fase:') if x=='líquido': print 'Menos de 100ºC' elif x=='vapor': print 'Mais de 100ºC' else: print 'Menos de 0ºC' Note que a diferença é só que o ">>>" do interpretador afeta a visualização da primeira linha. Abraços, Graymalkin
  19. Os nomes estão certos? Da caixa de texto, por exemplo? Graymalkin
  20. Você não parece estar identando o código. A identação é essencial em Python porque é a maneira de delimitar blocos de código: x = raw_input('Informe a fase: ') if x == 'líquido': print 'Menos de 100º C' elif x == 'vapor' : print 'Mais de 100º C' else: print 'Menos de 0º C' Repare os espaços na frente dos "print"s. Abraços, Graymalkin
  21. Acho que você tem que colocar uma linha assim: host all all 192.168.1.1/100 md5 Quer dizer que vai de 192.168.1.1 até o 192.168.1.100. Eu fiz isso lá no serviço e posso te passar a dica amanhã, se não estiver certo. Abraços, Graymalkin
  22. Acho que aqui... For Each Columns In Tbl.Columns If Columns = txtNome.Text Then ... ... deveria ser... For Each Columns In Tbl.Columns If Columns.Name = txtNome.Text Then ... ... não? Abraços, Graymalkin
  23. Percorra a coleção Columns com um For Each. Abraços, Graymalkin
  24. Mas, não é método Navigate() que você deve chamar? Abraços, Graymalkin
  25. O que é o "en"? Não é com a hashtable "Cesta" que você está trabalhando? Abraços, Graymalkin
×
×
  • Criar Novo...