Graymalkin

Aqui você tem o "caminho das pedras", em minha humilde opinião: http://desenvolvedores.net/modules.php?nam...=article&sid=27. E, se você gostar, por favor, vote no mesmo. Abraços, Graymalkin

Se não há como sumir com ele, inviabilize-o colocando... cancel = 1 ... em seu evento Unload. Abraços, Graymalkin

Na seção Arquivos da página do grupo VBj (http://br.groups.yahoo.com/group/vbj/) você encontra alguns exemplos disso. Só que, se me permite opinar, é muito mais simples e prático usar o componente Py.Sendmail (http://www.graymalkin.globalhosts.com.br/pysendmail.asp) que desenvolvi. Quando se trata de VB é besteira querer distribuir só o executável, portanto é muito mais seguro (e algumas vezes prático também) criar um setup para o seu programa (utilizando o InnoSetup, de preferência). Abraços, Graymalkin

Brother, sempre faça uma busca no fórum antes de postar. Como eu já sabia que esse assunto já tinha passado por aqui, fiz a busca com o título do seu próprio post, e encontrei a resposta para o que você quer aqui: http://scriptbrasil.com.br/forum/index.php...amas+instalados Abraços, Graymalkin

O necessidade de compilação nativa, é para conseguir um desempenho melhor em micros antigos. Me dizeram que Python é lenta para micros antigos. Um micro antigo para mim é um Pentium 100 com 16 ram, por exemplo. Valeu pela ajuda. Talvez fique lento só para o carregamento inicial (quando é feita a compilação). Após isso, creio que não haverá problemas (que inviabilizem o uso do sistema). Você também pode experimentar usar o Psyco (http://psyco.sourceforge.net/) que otimiza o desempenho de programas python. Abraços, Graymalkin

Sim, mas o retorno da propriedade tem que ser Variant (pelo menos foi como consegui aqui): Public Property Get ListaDeRestricoes() As Variant ListaDeRestricoes = total_restricao End Property Quanto a copiar um vetor inteiro para outro, veja esse exemplo: Dim a() As Integer Dim b() As Integer ReDim a(2) a(0) = 3 b = a MsgBox b(0) Abraços, Graymalkin

A desvantagem que vejo no ADODataControl (ADODC) é que você só tem *um* recordset aberto para *uma* conexão estabelecida. Quando você usa os objetos ADO via código você pode abrir somente *uma* conexão e a partir dela abrir *vários* recordsets. Ah, e só uma observação: a conexão "manual" a que você se refere não é via ADODC e sim via ADO. Abraços, Graymalkin

Isso é uma afirmação ou uma pergunta? Abraços, Graymalkin

Não sei se é exatamente o que você quer, mas tente... If ListView1.SelectedItems.Count > 0 Then MsgBox(ListView1.SelectedItems(0).Text) End If ... no evento SelectedIndexChanged. Abraços, Graymalkin

Acho que seria com a função Format(), exemplo: msgbox format(0.424826388888889, "hh:mm:ss") Mas, não ficou exatamente o tempo do seu exemplo. Abraços, Graymalkin

Use um while mesmo. Basta que você inverta a condição. "Do Until a=b" é o mesmo que "while a<>b do". O primeiro é "faça até que" e o segundo é "faça enquanto". Abraços, Graymalkin

Como o VB.NET é verdadeiramente orientado a objetos, criar um form segue a mesma rotina de criação de um objeto qualquer (já que um form *é* um objeto). O que você quer seria feito assim: Dim f As New Form3() f.Show() Abraços, Graymalkin

Sim, existe o controle UpDown que você encontra em um dos Common Controls (marque-os na opção Components do menu Project até achar um que tenha esse controle). Abraços, Graymalkin

Sim, deixe a propriedade CancelError como True e daí utilize o seguinte código: On Error Resume Next CommonDialog1.ShowOpen If Err.Number <> cdlCancel Then 'Não Cancelou 'o que deve ser feito se *não* for cancelado End If On Error GoTo 0 Abraços, Graymalkin

Confesso que talvez seja uma solução um tanto quanto tosca, mas uma possilidade é tranformar o valor em uma string e cortar só pedaço interessante, depois transformar de volta em um double e só então gravar na tabela. Acredito que daria certo. Abraços, Graymalkin

Só posso responder melhor em relação a Python. Perl e Tcl não conheço praticamente nada. E, Python tem tudo isso que você mencionou como desejado, exceto a compilação nativa (mas, se me permite, por que isso seria um requisito?). Abraços, Graymalkin

Procurando aqui no fórum creio que você encontre as maneiras diferentes se desligar para as diferentes versões (mais precisamente para Win9x e WinNT). Quanto a pegar a versão do sistema, o API-Guide fornece uma função prática para isso na API GetVersion: http://www.mentalis.org/ Abraços, Graymalkin

Já tentou utilizar o componente Common Dialog? Abraços, Graymalkin

O Delphi é um *produto* que utiliza a linguagem Object Pascal. Por isso você não encontrará "compiladores" para Delphi. Já para a linguagem (Object Pascal) você encontrará diversos. Um que já usei uma vez foi o Free Pascal (que, como o nome sugere, é de graça): http://www.freepascal.org/ Abraços, Graymalkin

Você já olhou se o ícone utilizado tem uma versão em 16x16 com uma alta quantidade de cores (16bits, 32bits ou XP)? Nunca me liguei muito na qualidade dos ícones do systray (eles ficam tão pequenos que fica difícil fazer com que eles fiquem bonitos como os de 48x48), por isso não sei se é preciso fazer algo de especial. Abraços, Graymalkin

Aí fica complicado. Acho que o ideal seria usar só strings e converter quando for necessário (com o val(), como você falou). Abraços, Graymalkin

É só mudar o... Dim Clubes(20, 20, 13) ... para: Dim Clubes(20, 20, 13) As String Como eu disse anteriormente, arquivos binários transformam valores para a forma binária, mas não strings. E uma variante não é exatamente uma string. Abraços, Graymalkin

Creio que você saiba pelo menos instanciar o objeto Word.Application, certo? (Já que você estava procurando por CreateObject). Isso já é o suficiente. O resto o próprio Word faz pra você: basta criar uma macro (Ferramentas->Macro->Gravar Nova Macro), fazer o que você quer fazer (centralizar, escrever algo, colocar em negrito, etc.) e depois pedir para "Editar" a macro. Ele então te mostrará o código (em VBA) para isso. Esse mesmo código servirá para ser usado no VB (com o objeto Word.Application criado). Abraços, Graymalkin

Era exatamente o que falei acima. Veja os novos códigos dos Command1 e Command2: Private Sub Command1_Click() Open caminho For Binary As #1 Screen.MousePointer = 11 For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 Put #1, , Clubes(A, B, C) & "@" Next C Next B Next A Close #1 Screen.MousePointer = 0 MsgBox "Concluido a Gravação" End Sub Private Sub Command2_Click() Open caminho For Binary As #1 dados = Split(Input(LOF(1), 1), "@") Close #1 Screen.MousePointer = 11 i = 0 For A = 0 To 20 For B = 0 To 20 For C = 0 To 13 Clubes(A, B, C) = dados(i) i = i + 1 Next C Next B Next A Screen.MousePointer = 0 MsgBox "Concluido a Leitura" End Sub Ainda assim, realmente não fica mais rápido que o modo texto (mas fica *muito* mais rápido do que o anterior). Abraços, Graymalkin

Ainda não executei aqui, mas veja que... dado = Space(LOF(1)) Get #1, , dado ... lê um caracter por vez. Lembra que eu não sabia como seus dados estavam organizados e que pensei que você queria fazer uma matriz de bytes? Pois bem, é isso que esse código aí faz, mas que acredito que não é o que você quer. Daqui a pouco vou testar seu código para ver o que posso fazer. Abraços, Graymalkin