Gerador de Boletos para
Microsoft
Visual Basic 6 (TL: Delphi, C++)

Type library (*.TLB) são arquivos binarios que guardam informações de componentes para que aplicativos possam, utilizar seus métodos e propriedades, é compativel com Visual Basic, Delphi e C++ Saiba mais...

Este componente para Visual Basic 6, foi desenvolvido inicialmente em C#.NET, mas pode ser utilizado normalmente em Visual Basic 6.

Foi Criado um programa de interface (comBoleto.tlb), que expõe os Metodos do Componente .Net para o Visual Basic

Para que o componente funcione é preciso que na máquina cliente tenha o Microsoft Framework.Net v1.1( download) alem das bibliotecas de runtime do Visual Basic 6

[ Partes dos códigos | Algumas Funções | Documentação ]

Assista aqui um video, demonstrando a instalação, registro e utilização. ( 6 minutos )

Clique duas vezes sobre o vídeo para visualizar em tela cheia (Double Click)

ATENÇÃO

A tecnologia .Net assim como várias outras linguagens geram ACTIVEX, ou Type Library, a implementação, personalização, instalação, e funcionamento, exigem um conhecimento mais profundo do programador, pois são componentes registrados, assinados, e no cado do .Net, ficam em cache no GAC.

Por isso disponibilizamos os códigos fontes em VB.NET, do conversor do componente que faz a interface do .NET para o VB6, assim que desejar utilizar este componente em VB6, deve conhecer também a tecnologia .NET. para conseguir solucionar possiveis problemas de registro, cache, etc.

É possivel que este compoenente funcione em outras Linguagens como Delphi, FoxPro, Dataflex, e outras que suportam ActiveX, mas não conhecemos tais linguagens e consequentemente não damos suporte a estas implementações.
CLIQUE AQUI PARA COMPRAR

Exemplo de Código:

Dim blt As New BoletoNET

Private Sub Form_Load()
'Referencie o arquivo comBoleto.tlb
'(menu: Project -> References -> Browse -> Adicione o arquivo: comBoleto.tlb)

'Definição dos dados do cedente (emitente)
blt.CedenteNome = "Cliente"
blt.CedenteBanco = "001-9"
blt.CedenteAgencia = "1234"
blt.CedenteConta = "123123-0"
blt.CedenteCarteira = "01"
blt.CedenteConvenio = "1234561"

'Definição dos dados do sacado
blt.SacadoNome = "Seu nome"

'Definição dos dados do boleto
blt.BoletoNossoNumero = "11223344556677"
blt.BoletoValorDocumento = 1000
blt.BoletoDataDocumento = Now
blt.BoletoDataVencimento = Now

'Executa os calculos de geraçào de boleto
blt.MakeBoleto()

'Le os calores calculados
Label1.Caption = "Linha Digitavel: " & blt.LinhaDigitavel
Label2.Caption = "Código de Barras: " & blt.CodigoBarras

'Apos os calculos pode-se desenhar o boleto

'Salva a imagem do boleto em algum lugar temporario para exibição permanebte no picture box
blt.Save("c:\Boleto_Temp.bmp")
Picture1.Picture = LoadPicture("c:\Boleto_Temp.bmp")

End Sub

[ Home ]