Graymalkin

Bom, acho que ao invés do método Move() você vai ter que usar a propriedade Location e só deve reparar que DoEvents agora fica na classe Application. Abraços, Graymalkin

Sinceramente, não sei se entendi bem o que você quer. Você quer trocar cada caracter por um valor correspondente? Abraços, Graymalkin

Bom, o que eu vi ali que pode estar errado é que... tbo.Delete tbd.Delete ... só deveria ser executado se... If tbo.NoMatch = True And tbd.NoMatch = True Then ... ou seja, se o registro fosse encontrado em ambas as tabelas. Mas, me parece que não é isso que está acontecendo (identando o código corretamente você vai poder ver isso melhor). Abraços, Graymalkin

É só concatenar com o operador &: MsgBox "O dobro é " & result Ah, e sempre use a tag CODE quando inserir códigos no post. Abraços, Graymalkin

Procure por ShellExecute aqui mesmo no fórum. Abraços, Graymalkin

A comparação aqui... Dim Confirm As Boolean Confirm = MsgBox("Deseja realmente excluir o ofício?", vbYesNo + vbQuestion, "Ofício Informa") If Confirm = True Then ... ... está errada. Msgbox não retorna um boolean. Ele retorna valores definidos pelas constantes vbYes e vbNo. Veja o exemplo: Dim confirma As Boolean confirma = MsgBox("Teste?", vbYesNo) MsgBox confirma Tanto "Sim" como "Não" retornarão True. O certo seria algo como: Dim confirma As VbMsgBoxResult confirma = MsgBox("teste", vbYesNo) MsgBox confirma = vbYes Ah, e o seu código também está todo mal-identado. Abraços, Graymalkin

Qual a linha apontada quando dá o erro? Abraços, Graymalkin

Assim: from xml.dom import minidom x = minidom.parse('arquivo.xml') nos = x.getElementsByTagName("nome") if len(nos)>0: print nos[0].childNodes[0].nodeValue Certo? ;) Graymalkin

Uma forma mais organizada seria colocar tudo em uma classe. Inclusive a parte do Timer você poderia embutir em um método de forma que você não precisaria ter um no form que fosse fazer a comunicação. Quanto ao caminho, acredito que se você colocar a biblioteca junto com as demais bibliotecas do seu programa (que ficam em bin\Debug e/ou bin\Release), basta você informar o nome ("TIBethvb.dll") para que ele encontre. Abraços, Graymalkin

Como assim? E qual evento você está tentando fazer a inserção? Abraços, Graymalkin

Movendo para .NET. E em relação à sua dúvida sobre iniciar com o Windows, existem dicas de como fazer isso aqui mesmo no fórum: http://scriptbrasil.com.br/forum/index.php...st&p=209225 E acho que a diferença é que a assíncrona (GetAsyncKeyState) te retorna o estado da tecla no momento em que a mesma é chamada enquanto que GetKeyState te retorna o estado da tecla tendo ela sido a última a ser usada. Abraços, Graymalkin

Filter é uma propriedade, então seu uso deveria ser: adcUsu.Recordset.Filter = "usuario LIKE '" & str & "%'" E para tirar o filtro basta atribuir "" (uma string vazia) à propriedade. Abraços, Graymalkin

Sim, SQL significa Structured Query Language, ou seja, Linguagem de Consulta Estruturada. Provavelmente, sim. A implementação, certos tipos de dados e a forma de escrita deles é que pode variar de acordo com o banco usado. Mas, a base em si é a mesma. Abraços, Graymalkin

Particularmente eu nunca usei este componente. Mas, o tio Macoratti tem um artigo muito legal falando dele: http://www.macoratti.net/vbn_eprv.htm Abraços, Graymalkin

Mas, não faz mal postar! Você só deve primeiro fazer uma busca para ver se encontra uma dúvida semelhante. Se a busca não resolver, você pode postar tranquilamente. :) Quais componentes especificamente? Você já tem uma base do VB6, que eu sei, então não deve estar tendo dificuldades com *todos* os componentes, mas sim com algum(ns) específico(s). Abraços, Graymalkin

Apostilas você deve achar no Google... então, não seria mais prático você colocar aqui um ponto específico no qual você esteja tendo dificuldade? Abraços, Graymalkin

Sim, use a função Dir() do VB. Basta chamá-la consecutivamente até que ela retorne uma string vazia ("" ou vbNullString). Exemplo: arq = Dir("c:\pasta\") Do While arq <> vbNullString List1.AddItem arq arq = Dir() Loop Supondo que List1 é uma listbox existente no form. Certo? ;) Graymalkin

Você pode postar um exemplo do código usado? Abraços, Graymalkin

O fórum saiu do ar quando eu ia te responder uns dois dias atrás, mas de qualquer segue a resposta abaixo: Beleza! Então depois eu vou fixar ele! :) Como assim, "o primeiro a ser aberto"? Tudo que você coloca em um módulo é acessível à todo o projeto. É isso que você quer saber? Acho que você poderia fazer algo assim: Public Module Módulo Public MySQLConn As MySql.Data.MySqlClient.MySqlConnection Public Function InicializaConexão() As Boolean MySQLConn = New MySql.Data.MySqlClient.MySqlConnection("Server=localhost;Database=v2interativa;Uid=root;Pwd=rafael") Try MySQLConn.Open() Return True Catch erro As Exception MessageBox.Show("Ocorreu um erro ao inicializar a conexão: " & erro.ToString()) Return False End Try End Function Public Function ExecutarSQL(Byval query As String) As MySql.Data.MySqlClient.MySqlDataReader Dim MySQLCmd As New MySql.Data.MySqlClient.MySqlCommand(query, MySQLConn) Return MySQLCmd.ExecuteReader() End Function End Module Com o módulo acima, o seu exemplo de utilização ficaria da seguinte maneira: 'conexao mysql Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If InicializaConexão() Then Dim MySQLDrr As MySql.Data.MySqlClient.MySqlDataReader = ExecutarSQL("SELECT * FROM AQCAD") If MySQLDrr.HasRows = True Then While MySQLDrr.Read Dim codigo As String = MySQLDrr.Item(1) Dim ls As New ListViewItem(codigo, 0) ls.SubItems.Add(MySQLDrr.Item(0).ToString) ListView1.Items.Add(ls) End While End If End If MySQLDrr.Close() End Sub End Class Era isso que você tinha em mente? Abraços, Graymalkin

Você tem o código-fonte do exemplo em VB6? Se tiver, não deve ser difícil "traduzí-lo" para o VB.NET. Abraços, Graymalkin

Então recomendo você utilizar a Input32X.NET do Eduardo Oliveira: http://www.eoliv.com/ É só pedir por e-mail a versão .NET que ele envia. Os controles (NumberBox, DateBox, MaskedBox, etc.) são muito melhores do que o Maskedit. Abraços, Graymalkin

Realmente, ainda não vi o site, mas o fórum ficou muito show! Parabéns! Abraços, Graymalkin

Mude a propriedade TextAlign para Right. Abraços, Graymalkin

Hummm... saquei. Eu já fiz isso também, só que com VB, Python e o Access. No caso, o servidor em Python retornava um XML com os resultados das queries (executadas em um banco Access) para a aplicação feita em VB (que é também que enviava a query para o servidor). Mas, no caso específico do PostgreSQL com o Delphi 2006 (é o .NET, certo?), porque você não usa o Npgsql para fazer a conexão? Eu tenho usado este componente com o VB.NET e ele tem funcionado 100%. Abraços, Graymalkin

Mas, no caso... def calculaNotas(valor): '''Calcula o valor das notas''' try: notas = [100, 50, 10, 5, 1] for nota in notas: x = valor/nota if x > 0: print "Quantidade de nota(s) de %i reais: %i" % (nota, x) valor = valor % nota if valor <= 0: break except Exception, erro: print "Ocorreu um erro: %s" % erro ... ele *está* fazendo o que eu mandei no except. Veja ali, fui *eu* que fiz um: print "Ocorreu um erro: %s" % erro Se eu colocar um pass ali ao invés do "print '..." ele não vai fazer absolutamente nada, como é o que você quer. Ou seja: def calculaNotas(valor): '''Calcula o valor das notas''' try: notas = [100, 50, 10, 5, 1] for nota in notas: x = valor/nota if x > 0: print "Quantidade de nota(s) de %i reais: %i" % (nota, x) valor = valor % nota if valor <= 0: break except Exception, erro: pass Assim como também poderia ser: def calculaNotas(valor): '''Calcula o valor das notas''' try: notas = [100, 50, 10, 5, 1] for nota in notas: x = valor/nota if x > 0: print "Quantidade de nota(s) de %i reais: %i" % (nota, x) valor = valor % nota if valor <= 0: break except Exception, erro: print "Digite um número inteiro!" Sendo que o melhor, na minha opinião, seria fazer o exemplo acima com a função type(), como coloquei em outro post. Abraços, Graymalkin