-
Total de itens
8.257 -
Registro em
-
Última visita
Tudo que Graymalkin postou
-
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
-
E qual seria esse banco de dados? Access, SQL Server, MySQL, PostgreSQL, etc. Abraços, Graymalkin
-
Parabéns a ambos! :) Abraços, Graymalkin
-
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
-
Auto-incremento Sem Ter Um Campo Auto-incremento
pergunta respondeu ao Gabriel Cabral de Graymalkin em Visual Basic
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 -
Incluindo Dados Em Um Bd Access Atraves De Um Form Asp
pergunta respondeu ao Notax de Graymalkin em ASP
Nops... isso é ASP, então estou movendo para o lugar correto. Abraços, Graymalkin -
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
-
Novo (?) Moderador De Javascript
tópico respondeu ao Beraldo de Graymalkin em Novidades e Anúncios Script Brasil
Bem-vindo novamente, fercosmig! Abraços, Graymalkin -
Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=104390 Abraços, Graymalkin
-
Exato, por esta razão é que existem os instaladores e a necessidade de se realmente "instalar" o aplicativo no sistema operacional. Abraços, Graymalkin
-
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
-
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
-
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
-
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
-
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
-
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
-
Coloca novamente o código todo que você está usando, que aí fica mais fácil para ajudar. Abraços, Graymalkin
-
Erro Em Código Python De Um Tutorial Muito Bom.
pergunta respondeu ao Bolt 4 de Graymalkin em Python
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 -
Os nomes estão certos? Da caixa de texto, por exemplo? Graymalkin
-
Erro Em Código Python De Um Tutorial Muito Bom.
pergunta respondeu ao Bolt 4 de Graymalkin em Python
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 -
Como Configurar Postgre Em Rede Para Windows?
pergunta respondeu ao Alexandre Becker de Graymalkin em PostgreSQL
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 -
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
-
Percorra a coleção Columns com um For Each. Abraços, Graymalkin
-
Mas, não é método Navigate() que você deve chamar? Abraços, Graymalkin
-
O que é o "en"? Não é com a hashtable "Cesta" que você está trabalhando? Abraços, Graymalkin