Graymalkin

Mas, cara, isso daí é a declaração do evento... você não precisa copiar isso, só o código do meio que importa. No caso, "Private Sub RTB_TextChanged(...)" é o mesmo que o seu "Private Sub RichTextBox1_Change()", que aliás, o VB já coloca *automaticamente* para você. Aí é só uma questão de adaptar. O que o código acima faz é definir a fonte da seleção (como negrito). Você vai ter o mesmo efeito fazendo (no VB6): RichTextBox1.SelBold = True Sendo que o que eu disse foi para você analisar a ***formatação*** RTF e *não* converter aquele código. Sim, porque essa não é a melhor maneira de se fazer isso. O recomendável é usar a formatação RTF, que é o foco daquele código no tópico citado. Abraços, Graymalkin

Você tem que associar a extensão que você quiser ao seu programa (e também prepará-lo para abrir o arquivo quando o mesmo for passado para ele). Essa associação é feita através de chaves no Registro. No tópico http://scriptbrasil.com.br/forum/index.php?showtopic=31052 você encontrará as chaves que devem ser criadas, bastando usar os métodos próprios para isso (acesso ao Registro) em .NET. Novamente você pode se valer da utilização do Registro, gravando os valores em chaves específicas e depois recuperando-os na inicialização do programa. Abraços, Graymalkin

As dicas sobre formatação RTF deste tópico podem ser úteis para o seu caso: http://scriptbrasil.com.br/forum/index.php?showtopic=46485 Abraços, Graymalkin

No caso, não vai ter como você usar uma textbox comum, já que ela só permite *uma* cor para *todo* o texto. Você vai precisar usar uma RichTextBox, e é bem provável que os tópicos que você encontrou (mesmo os que falam sobre VB.NET) devam ser referir a este controle e ao código RTF (RichText Format), que é o utilizado para a formatação de um arquivo RTF. Abraços, Graymalkin

Tem um campo de data na tabela? Se tiver, você pode ordenar os dados por este campo. Abraços, Graymalkin

Mas, não precisa fazer nada. Deixando o tipo de dados do array como Variant já vai permitir que você coloque outro array nele: v = Array(Array(1, 1), Array(1, 2), Array(1, 3)) For Each e In v MsgBox e(0) & "x" & e(1) Next e Certo? ;) Graymalkin

Seja muito bem-vindo novamente, Progr'amador! :) Abraços, Graymalkin

Eu não duvidei do seu interesse em aprender programação, mas sim do seu esforço para tal. E você acha que eu "adivinho" os códigos? Creio que ninguém faça isso. Dificilmente existe "certo" e "errado" em relação a lógica de programação, portanto existem n maneiras de se fazer aquilo. Eu só te mostrei uma delas. E não chegou nem mesmo próximo do desejado? Se tivesse chegado, você poderia ter postado aqui o seu código e dito o que você não conseguiu fazer. Isso é extremamente relativo. E, no caso, o que eu fiz foi justamente te passar a *base* da coisa (a idéia). E o que você me pediu quando eu fiz isso? A coisa "pronta" (o código). Ótima postura. Talvez eu é que tenha me enganado sobre você, mas é que a atitude de pedir códigos prontos é uma característica de membros preguiçosos. Neste caso, aceite as minhas apologias. Abraços, Graymalkin

Bom, "gravar som wave no Access" ficou uma coisa ambígua. Você quer realmente gravar o som *através* do Access ou você quer armazenar um arquivo .wav *em uma tabela* de um banco Access? Abraços, Graymalkin

Você tentou fazer o sugerido? Abraços, Graymalkin

Não tem como você chamar esta mesma função (de deixá-los topmost) para os outros dois forms? Graymalkin

Já deu uma olhada no WinPcap [1]? Particularmente eu nunca usei, mas creio que seja o que você procura. [1] - http://www.winpcap.org/ Abraços, Graymalkin

Creio que você queira fazer o "log-off", né? Já experimentou a função ExitWindows da API Win32? Abraços, Graymalkin

Bom, qual é, exatamente, a sua dúvida? Porque você já falou o que precisa fazer. Abraços, Graymalkin

Eu deixo ele minimizado aqui o tempo todo. E defini para ele verificar e-mails a cada 10 minutos (Ferramentas -> Opções). Abraços, Graymalkin

Será que ajudei mesmo? Tenho cá minhas dúvidas se você só copiou e colou (do mesmo jeito que você provavelmente vai fazer com o código abaixo): achoutudo = True arquivos = Array("\half-life.gcf", "\half-life engine.gcf") For Each arquivo In arquivos achoutudo = achoutudo And Dir(pasta & arquivo) <> "" Next arquivo if achoutudo then FrmMain.LstGames.AddItem "Half-Life" endif Graymalkin

Python *não* é uma "linguagem para Web", mas sim uma linguagem de propósito geral. E, assim como a maioria das linguagens hoje em dia, *pode* ser utilizada para a criação de páginas dinâmicas (mas isso não significa que esse seja o alvo principal dela). Neste caso, você tem algumas opções para fazer isso: 1 - Criar um servidor HTTP próprio (veja a classe SimpleHTTPServer na documentação) 2 - Usar uma framework web [1] (TurboGears [2], Webware, CherryPy, Quixote, etc.) 3 - Usar o PSP do mod_python [x] (um módulo para o servidor Apache) Eu, no meu site [4], fiz uso da terceira opção (PSP do mod_python). [1] - http://www.pythonbrasil.com.br/moin.cgi/PythonParaWeb [2] - http://www.pythonbrasil.com.br/moin.cgi/SobreTurbogears [3] - http://www.modpython.org/ [4] - http://www.gs.kitbr.com/ Abraços, Graymalkin

Sim, uma variável booleana comporta os valores Verdadeiro (True) e Falso (False). A idéia, no caso, é dar-lhe um valor (Verdadeiro) antes do loop e modificá-la dentro do mesmo, caso o arquivo não seja encontrado. Ao final do mesmo você vai ter como saber se todos existem ou não. Ah, mas aí eu vou estar fazendo o código pra você, o que é um crime visto que estarei te impedindo de pensar e chegar ao extâse da descoberta sozinho... ;) Abraços, Graymalkin

Mas, é *exatamente* isso que você está mandando ele fazer naquele código. Sim, você pode simplesmente usar uma variável booleana para dizer se todos os arquivos existem e daí decidir se inclui ou não o item. Abraços, Graymalkin

Legal! :D Agora, me veio uma coisa à mente... neste trecho... da.Update(ds, "Clientes") da.Fill(ds, "Clientes") dt = ds.Tables("Clientes") ... você não precisaria apenas da primeira linha? Não tenho certeza, mas acho que o método Update já mudaria as tabelas do DataSet não sendo necessário preenchê-lo (Fill) novamente. Abraços, Graymalkin

Você pode usar as funções SaveSetting() e GetSetting() para, respectivamente, salvar e resgatar quaisquer informações que lhe sejam convenientes. No caso, você guardaria o diretório com SaveSetting ao finalizar o programa e depois o resgataria com GetSetting() ao iniciá-lo. Sim, você pode listar os arquivos de uma pasta fazendo isso: pasta = "d:\temp\" arq = Dir(pasta) Do While arq <> "" Debug.Print arq arq = Dir Loop Sendo que eu acredito que você queira fazer algo assim: pasta = "d:\temp\" arquivos = Array("arquivo1.txt", "arquivo2.jpg", "arquivo3.dll", "arquivo4.exe") For Each arquivo In arquivos If Dir(pasta & arquivo) = "" Then MsgBox "O arquivo " & pasta & arquivo & " não existe!" End If Next arquivo Certo? ;) Graymalkin

Não, mas você pode verificar se um determinado arquivo existe através da função Dir(). E, se você colocá-los em um array, ao invés de uma string, fica ainda melhor. Como assim? Abraços, Graymalkin

Leia o que você escreveu acima. Ao que parece, eles ficam duplicados na origem dos dados (provavelmente uma DataTable). Você já verificou isso? Abraços, Graymalkin

A propriedade MdiChildren do MDIPai é justamente a coleção de filhas do mesmo. Abraços, Graymalkin

Experimente usar a função PosEx(). O último argumento dela determina a partir de onde a procura deve começar. Abraços, Graymalkin