Danleonhart

Qual TextBox você quer capturar o que foi escrito ? são todas ? e onde seria essa "parte de baixo do programa" ? não vejo o controle StatusBar em seu programa...mas ele serviria para fazer o que quer... Para adicionar esse controle, pressione as teclas "Ctrl + T" e procure na lista o componente por nome de Microsoft Windows Common Controls 6.0 em sua caixa de ferramenteas será adicionado 9 controles...basta identificar o controle por nome de StatusBar. Para fazer com que o nome digitado em uma TextBox seja apresentado nele, basta fazer assim: StatusBar1.Panels(1).Text = txt1.Text OKs ?!

Se você quer pegar todas as linhas da ListBox então pode ser assim: Private Sub cmd1_Click() Dim L As Integer For L = 0 To List1.ListCount - 1 MsgBox List1.List(L) Next L End Sub Adapta para fazer o que deseja na parte onde tem o MsgBox... Se você quiser fazer apenas com a Linha selecionada na ListBox fica assim: Private Sub cmd2_Click() Dim L As Integer For L = 0 To List1.ListCount - 1 If List1.Selected(L) = True Then MsgBox List1.List(L) End If Next L End Sub Dica: Se você deixar a Propriedade do ListBox "MultiSelect = 2", poderá selecionar mais de uma linha...até mesmo alternada. Qualquer coisa tamos aê ! VALEU !

Fala Matheus ! Você usa algo para gerar relatório ? tipo o Data Report ? eu utilizo o Active Reports 2.0 p/ VB-6...nele gero os relatórios onde posso imprimir e também exportar para Excel, PDF, TXT e outros... mas se for só para imprimir mesmo o Data Report que vem no VB-6 dá pra fazer...avisa aê que trocamos dicas... VALEU !!!

Olá Paulo ! Esqueceu de mencionar qual componente está usando...creio que seja o MonthView... Então, para transferir a "data" para uma TextBox ao clicar em cima da mesma no calendário : Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Text1.Text = Format(MonthView1.Value, "DD-MM-YYYY") End Sub Adicionei um MonthView e um Textbox em um Form, para exemplificar... VALEU !

Olá Vitor ! É quase isso cara...criar objetos em tempo de execução no VB-6 já tenho um pouca da noção, o que pretendo é criar em tempo de execução mas utilizando o WSH (Windows Script Host). Vê o código que postei acima ?! copia e cola no Bloco de Notas, depois salva com o formato ".vbs"; depois de salvo, execute-o...quero fazer isso, só que ao invés de criar Caixas de Diálogos quero criar algo mais como um Form, TextBoxes, Labels... ;) Entendes ??? Não se trata de TCC ou projeto para cliente, apenas a nível de curiosidade :D VALEU !

Pessoal... Estou a tentar criar um Form via script (Script Host), com o código abaixo, crio uma rotina simples onde são apresentados Caixas de Mensagens, então estou querendo saber se é possivel fazer o mesmo com Form's, Labels etc... p1 = InputBox("Digite o 1º Valor:", "VALOR 1") p2 = InputBox("Digite o 2º Valor:", "VALOR 2") If p1 = p2 Then MsgBox "Os Valores informados são iguais...", vbInformation, "Aviso !" ElseIf p1 > p2 Then MsgBox "O 1º Valor é MAIOR que o 2º.", vbInformation, "Aviso !" ElseIf p1 < p2 Then MsgBox "O 2º Valor é MAIOR que o 1º.", vbInformation, "Aviso !" End If Digito no Notepad, e salvo com o formato ".vbs"...depois executo... Não é para projeto, apenas para conhecimento... ;)

Kuroi... Tem como criar uma rotina de pesquisa no Registro ? Tipo, se digitar dentro de uma Caixa de Texto a palavra "Word", seja indicado em uma Listbox todos os caminhos relacionados a palavra procurada...

Pessoal... Resolví o problema corrigindo uma entrada no Registro do Windows...justamente a que solicita a lincensa [HKEY_CLASSES_ROOT\LicensesF60458A-9C91-47CD-9DC9-4C6188C3C498]...a mesma estava em branco (Valor Padrão), então coloquei licença e o erro sumiu. Fica a dica :rolleyes:

Kuroi... Danado é que a versão que instalei não pede serial, nem tem hotfix e não encontrei essa tal dll actrpt2.dll...

Pessoal... Alguém sabe o que pode estar causando esse erro no final do Relatório gerado no ActiveReports ? Tenho outros projetos que não apresentam esse erro...porém em todo relatório que crio agora, é apresentado esse erro no final. Uso a versão para VB-6...ActiveReports 2.0 SP 5. Os projetos antigos vieram de back-up de meu antigo S.O. (WinXP), e eles abrem normal no Win7, apresentam os relatórios bem direitinho...mas os atuais...sempre com esse erro...e não aparece lugar de colocar serial ou outra coisa ... :mellow:

Olá Ricardo... Cara...na boa...melhor ser mais explicativo nas perguntas... bem, se eu entendí, ver este exemplo que estou colocando no link... Projeto Exemplo? Valeu !

Olá pessoal... Gostaria que me indicassem uma IDE propria para programar em Delphi... e onde encontro otimas apostilas e até video-aulas sobre o assunto. Obrigado.

Como faço para saber todos os programas instalados no PC consultando o Registro do Windows pelo VB-6 ? Estou a criar um script de atualização de software e antes preciso descobrir em que pasta está instalado a aplicação...para daí iniciar a atualização...

Informe a linha que ocorre o erro...e o nome do erro também :rolleyes:

Não conseguí... Tentei esse código mas não funcionou: Private Sub Worksheet_Change(ByVal Target As Range) If Len(Target.Value) = 2 Then: Target.NumberFormat = "00\:" End Sub Tentei formatando e personalizando a célula...coloquei assim: " 00\: " funcionar funciona...mas a fórmula que uso não consegue executar o cálculo...pois no real o valor digitado na célula está: " #### " embora seja visualizado: " ##:## " Planilha - Excel 2007 Aberto para sugestões... se postarem exemplos agradeço... :rolleyes:

Seguinte... Como faço para que seja colocado automaticamente ":" (dois pontos) ao ser digitado dois caracteres em uma celula ? Tipo: se for colocar 14, automaticamente ser adicionado o ":" ficando: "14:" No VB-6 colocaria usando o Len() no evento KeyPress...mas no Excel não faço a menor idéia... Se alguém tiver uma Apostila de VBA com bastantes dicas, agradeço... Estou precisando...

Valeu Kuroi...não sabia desse detalhe...bom saber !

Deixa ver se eu entendí...você cria o script em tempo de execursão e salva como ".vbs"...depois executa-o pelo MS-DOS ??? é isso ? não fica mais prático passar tudo para script MS-DOS ou VB ? Só sugestão... outra opção é a função Shell()...

- Sim ! tem ! - Descreva como quer adicionar no ListView...pois dependendo do que você vai adicionar na ListView pode-se colocar tanto em Vertical como em Horizontal... B)

Veja esse exemplo...vê se dá pra adaptar ao seu código: http://www.4shared.com/file/DkLCGo8D/Ramal.html :rolleyes:

Que tipo de Relatório você usa ??? DataReport, Crystal Report, Active Report... tem mais , mas só fiz testes com esses... :unsure:

Valeu Kuroi ! Quanto a informação do ZLib.dll, peço desculpas por não informar...deu este erro aqui também, então fui a procura desta biblioteca...encontrei, baixei, instalei e registrei (nem foi necessário)... fiz a declaração igual a que você colocou no post, só não deduzí que o Load da biblioteca retornava em Boolean... e muito menos que era no DrawToDC para exibir a imagem...procurei no Object Browser do VB alguma ajudinha mas não encontrei nada...então resolví postar a dúvida. Fiz aqui e funcionou...como você falou, tem imagens que carregam...outras não...quanto ao exemplo do VBForuns eu já havia visto...mas não entendí o código, e quando não entendo, não godto muito de utilizar...lí sobre a PNGLib e resolví tentar com ela, mas vai dá um trabalho ! :)

Kuroi, Baixei no link abaixo: http://www.dlldll.com/search/pnglib.dll?sr...mp;x=29&y=6 E aqui vai dois bons sites com Bibliotecas e Componentes (.DLL's & .OCX's): http://www.softpicks.net/dll/ http://www.dlldll.com/getdl :closedeyes: :rolleyes:

Tenho cara...estou no trabalho, quando chegar em casa posso passar via e-mail...

Olá pessoal ! Alguém aqui sabe usar a DLL PNGLib ? Tipo, como setar, configurar para o VB-6 apresentar imagens no formato PNG ? :unsure: