Graymalkin

Mas, aqui... sqlF = sqlF & "VALUES(" & CDbl(Right(tab_dias.Caption, 2)) & ", " ... note que "VALUES" está colado com o parêntese (o que creio que *não* é um problema, é claro). Já no que você mostrou *tem* um espaço entre eles. Por isso que supus que não é o mesmo exemplo. Abraços, Graymalkin

São variáveis comuns mesmo, consigo jogar os valores num vetor, mas o que é este método bolha?? O método bolha consiste em iterar sobre o vetor trocando os valores de posição ao compará-los com os outros. Exemplo: valores = Array(2, 4, 1, 3) s = "" For Each valor In valores s = s & valor & ", " Next valor MsgBox "Não-Ordenados: " & s For i = LBound(valores) To UBound(valores) For j = LBound(valores) To UBound(valores) If valores(i) < valores(j) Then temp = valores(i) valores(i) = valores(j) valores(j) = temp End If Next j Next i s = "" For Each valor In valores s = s & valor & ", " Next valor MsgBox "Ordenados: " & s Certo? ;) Graymalkin

A textbox do VB6 não faz nenhuma distinção no sentido de existirem "linhas" dentro dela. Ou seja... ... é só um texto que tem uma quebra de linha e um retorno de carro após o texto "linha1". Então, tecnicamente, não existem "linhas". O melhor no caso, então, é usar a função Split() para dividir a string pela constante vbCrLf (que é o retorno de carro e a quebra de linha) cujo resultado será um vetor. Neste vetor você poderá remover ou acrescentar "linhas" e ao final do processo você pode jogá-las de volta na caixa de texto. Exemplo: linhas = Split(Text1.Text, vbCrLf) 'Criando o vetor a partir do texto dividido MsgBox linhas(0) 'Mostrando a primeira linha linhas(1) = "" '"Removendo" a segunda linha Text1.Text = "" 'Zerando a textbox e preenchendo-a com o vetor For Each linha In linhas If linha <> "" Then Text1.Text = Text1.Text & linha & vbCrLf End If Next linha Certo? ;) Graymalkin

Se me lembro bem, as abas (TabPages) não possuem índice de tabulação (TabIndex). Só o controle principal (o TabControl) possui. Além disso, quando a aba é selecionada, o primeiro controle dentro dela é que ganha o foco (e não ela efetivamente). Então, o mais sensato seria o último controle dentro da TabPage mandar para a próxima TabPage. Abraços, Graymalkin

Coloque os valores em um vetor e ordene-o usando algum método de ordenação (como são só 4 valores, eu aconselho o método bolha). Abraços, Graymalkin

Você *não* está usando o objeto "busca". Ele é uma referência à célula que foi encontrada. Abraços, Graymalkin

Sim, preencha a propriedade Index de um botão com um valor numérico (0, de preferência) e ele se tornará um array. Daí você poderá usar o código fornecido pelo Anderson. Abraços, Graymalkin

Já experimentou exibir a SQL depois de montada (usando um Debug.Print)? Abraços, Graymalkin

Dê uma olhada na função StretchBlt da API Win32, acho que ela pode ser útil no caso. Abraços, Graymalkin

Que tal uma caixa de texto que calculasse qualquer expressão numérica/pythônica? Seria bem mais útil e poderosa do que uma mera calculadora. Isso você poderia fazer com a função eval() e com a instrução exec. Abraços, Graymalkin

Seria algo assim... Dim números As New Collection Do While números.Count < 32 n = Int(Rnd() * 32) + 1 achou = False For Each número In números If n = número Then achou = True End If Next número If Not achou Then números.Add n End If Loop i = 1 For Each número In números List1.AddItem número If i Mod 4 = 0 Then List1.AddItem "----" End If i = i + 1 Next número ...? ;) Abraços, Graymalkin

Beleza! :) Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=100002 Veja se você consegue falar com o BlasterX e se ele pode ter passar como ele faz a configuração do proxy via código. Abraços, Graymalkin

Aí vai: Python 2.4: http://www.python.org/ftp/python/2.4.4/python-2.4.4.msi wxPython 2.5.5.1: http://downloads.sourceforge.net/wxpython/...mp;big_mirror=1 Boa Constructor 0.4.4: http://downloads.sourceforge.net/boa-const...mp;big_mirror=0 Abraços, Graymalkin

Claro. :) No caso, o método ShowDialog() é que faz realmente a janela aparecer. E nesta janela você tem os botões "Abrir" e "Cancelar", certo? Então, esse método te retorna uma constante que representa o botão que foi clicado. Se você clicou no "Abrir" ele irá retornar DialogResult.OK, já se você clicar em "Cancelar" ele irá retornar DialogResult.Cancel. Então, com o If a gente faz com que a imagem só seja aberta se o caboclo clicar no "Abrir"; caso ele escolha o "Cancelar" nada acontecerá. Capisce? ;) Abraços, Graymalkin

Huhauhauhauhua... agora eu sou algum tipo de entidade divina, é? :lol: :P Abraços, Graymalkin

http://scriptbrasil.com.br/forum/index.php?showtopic=101724 Graymalkin

PHP no servidor já serve. E em VB você pode fazer o programinha que vai verificar e baixar os arquivos. Qual é a idéia? No servidor vai ter uma página, digamos "listar.php", que ao ser acessada irá mostrar o conteúdo de uma determinada pasta no servidor (com as datas dos arquivos). O programa em VB irá acessar esta página para receber uma lista dos arquivos e suas respectivas datas. Ele então irá comparar com os arquivos locais. No caso de ser necessário, ele irá baixar os novos arquivos e copiá-los para a pasta do programa. Como não tem graça receber o trabalho de mão beijada, vou te darr algumas dicas sobre o que você deverá pesquisar (em VB): 1 - O controle WebBrowser para acessar a página; 2 - As funções Dir() e FileDateTime() para obter a listagem de arquivos locais e suas datas; 3 - O contorle Inet para baixar os novos arquivos; 4 - A rotina FileCopy para copiar os novos arquivos para outra pasta. E para o PHP: 1 - Como pegar os arquivos de uma determinada pasta e suas datas. Lembrando que existem diversas maneiras de se fazer isso. Ou seja, isto é apenas uma sugestão de solução. Soluções mais complexas poderiam usar o Winsock e desta forma não necessitar do PHP no servidor. Algumas destas coisas você deverá achar aqui mesmo no fórum. Abraços, Graymalkin

Não, é só mesmo mudar a propriedade nodeValue do elemento que você quer alterar: from xml.dom import minidom x = minidom.parse(r"C:\pasta\teste.xml") principal = x.getElementsByTagName("Principal")[0] usuarios = principal.getElementsByTagName("Usuario") for usuario in usuarios: id = int(usuario.getElementsByTagName("Id_Usuario")[0].childNodes[0].nodeValue) if id==1: telefone = usuario.getElementsByTagName("Telefone")[0].firstChild telefone.nodeValue = "21212121" print x.toprettyxml() Certo? ;) Graymalkin

Bom, esse código aí não bloqueia contra outro atalho de cópia conhecido do pessoal "das antigas" (opa, estou ficando velho!): o CTRL + INSERT. Aliás, eu mesmo só uso CTRL + INSERT para copiar e SHIFT + INSERT para colar. Então, acho que você vai ter que fazer algum ajuste nele. Bom, quanto à alternativas, você pode usar um banco Access com senha. E para mostrar na tela, acho que daria um pouco de trabalho, mas você poderia exibir uma imagem com o texto que vem do BD (criada automaticamente, é claro). Desse jeito, não teria como o caboclo selecionar para copiar (a não ser que ele copiasse a tela toda e usasse um OCR para transformar em texto... pra tudo tem uma saída :)). Abraços, Graymalkin

Use um OpenFileDialog e mostre a imagem em uma PictureBox. Exemplo: Dim o As New OpenFileDialog() o.Filter = "Imagens|*.bmp;*.jpg;*.gif;*.png" If o.ShowDialog() = Windows.Forms.DialogResult.OK Then PictureBox1.Image = Image.FromStream(o.OpenFile()) End If Certo? ;) Graymalkin

Eu consegui... na segunda tentativa :). Eu instalei a wxPython 2.8 e realmente não funcionou. Aí li nas notas do Boa que ele foi reescrito para a wxPython 2.5. E realmente a última versão do Boa (0.4.4) foi escrita na época da versão 2.5. Então, bastou instalar a wxPython 2.5.5.1 e funcionou perfeitamente. Veja a tela abaixo: Recapitulando a receita de bolo: Python 2.4.2 wxPython 2.5.5.1 Boa Constructor 0.4.4 Certo? ;) Graymalkin

Do que você precisa? :huh: Abraços, Graymalkin

Com um objeto IO.BinaryWriter. O método Write() dele aceita justamente um array de bytes. Abraços, Graymalkin

Você quer uma janela que ao mesmo tempo tenha as opções de cadastro e de consulta? Se for, eu usaria caixas de texto para o cadastro e uma DataGridView para exibir as consultas. E você poderia usar um Timer para atualizar a consulta de tempo em tempo. Abraços, Graymalkin