Ajuda Declaração DLL via código em VB6


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Ajuda Declaração DLL via código em VB6

Juan Carlos R.A

MACEIO
AL - BRASIL

Postada em 20/10/2010 15:55 hs

vc teria na classe:

Public Sub ImprimeCabecalho1()
.................
.................
................
End sub

Public Sub ImprimeCabecalho2()
.................
.................
................
End sub

na impressao seria como diz treze

Dim Imprimir1 As New IMPR_TH
Dim Imprimir2 As New IMPR_TH

Imprimir1.ImprimeCabecalho1
Imprimir2.ImprimeCabecalho2

Treze

SÃO VICENTE
SP - BRASIL

Postada em 20/10/2010 17:59 hs

na realidade seria isto

ublic Sub ImprimeCabecalho1()
.................
.................
................
End sub

Public Sub ImprimeCabecalho2()
.................
.................
................
End sub

e como estão dentro da mesma classe seria assim

Dim Imprimir As New IMPR_TH

Imprimir.ImprimeCabecalho1
Imprimir.ImprimeCabecalho2

Scaliburth

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 21/10/2010 06:43 hs

pessoal vcs estao me ajudando bastante, mas sem querer abusar mas ja abusando, o raciocio passado ate agora funciona perfeitamente, porem estou buscando uma forma de organizar o codigo ainda mais. Por isso pensei em relacionar todos os metodos/rotinas de uma determinada impressora em uma classe ou dll e os mesmos metodos/rotinas porem para outra impressora em outra dll ou classe dentro da mesma dll. Dessa forma o codigo ficaria mais organizado e nao ficaria com aquele tanto de metodos todos juntos (que sao varios). A dll em standard ja estou desanimando porem, gracas a voces, surgiu a ideia da classe, mas ai vem eu denovo tentando desta forma, rsrsrs.
Se tiverem mais aguma ideia e puderem me ajudar!!!
Muito obrigado mesmo, vcs estao quebrando um maior galhão!

Treze
não registrado

Postada em 21/10/2010 11:46 hs

Scaliburth coloque dois exemplos de metodos e rotinas que deseja que te ajudaremos, acho que fica até mais fácil de raciocinar, rs

Scaliburth

BELO HORIZONTE
MG - BRASIL

ENUNCIADA !

Postada em 21/10/2010 14:22 hs

Estes métodos por exemplo, estão na classe que denominei de MP4000TH 'que se refere à impressão quando estiver utilizando a impressora Bematech MP4000-TH

Public Sub IniciaImpressao()
iRetorno = ConfiguraModeloImpressora(5) 'Modelo MP4000-TH
If iRetorno = 1 Then
Else
    MsgBox "Falha no modelo de impressora utilizada.", vbCritical, "Impressões do sistema"
End If
iRetorno = IniciaPorta("USB")
If iRetorno = 1 Then
Else
    MsgBox "Falha ao abrir a porta de comunicação.", vbCritical, "Impressões do sistema"
End If
End Sub

Public Sub ImprimeCabecalho()
Linha1 = GetSetting("Park Royal", "Registro", "ELinha1")
Linha2 = GetSetting("Park Royal", "Registro", "ELinha2")
Linha3 = GetSetting("Park Royal", "Registro", "ELinha3")
Linha4 = GetSetting("Park Royal", "Registro", "ELinha4")
Linha5 = GetSetting("Park Royal", "Registro", "ELinha5")
Linha6 = GetSetting("Park Royal", "Registro", "ELinha6")
iRetorno = iRetorno = FormataTX(Linha1 + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = iRetorno = FormataTX(Linha2 + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX(Linha3 + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX(Linha4 + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX(Linha5 + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX(Linha6 + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
End Sub

Public Function ImprimeEntrada(ByVal Placa As String, ByVal Marca As String, ByVal Cor As String, ByVal TipoEnt As String, ByVal HEnt As String) As Integer
'Inicia a impressão do ticket de entrada
IniciaImpressao
ImprimeCabecalho
iRetorno = FormataTX("Veículo : " & Placa & " - " & Marca & "/" & Cor + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX("Entrada : " & HEnt + Chr(10) + Chr(13), 2, 0, 0, 0, 0) 'Armazenará data e hora dd/mm/yyyy hh:mm:ss
iRetorno = FormataTX("Tipo    : " & TipoEnt + Chr(10), 2, 0, 0, 0, 0)
iRetorno = FormataTX("_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _" + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX("           OBRIGADO PELA PREFERÊNCIA" + Chr(10) + Chr(13), 2, 0, 0, 0, 0)
iRetorno = FormataTX("   Desenvolvimento software: Ronan Afonso(31)3224-1282" + Chr(10) + Chr(13), 1, 0, 0, 0, 0)
EncerraImpressao
If iRetorno = 1 Then
    ImprimeEntrada = 1
Else
    ImprimeEntrada = 0
End If
End Function

Scaliburth

BELO HORIZONTE
MG - BRASIL

Postada em 21/10/2010 14:30 hs

Já estes métodos estariam na classe que denominaria de DarumaMatricial, que faz a mesma coisa, ou seja, as impressões do sistema mas para utilização em impressoras matriciais como a daruma ds348, por exemplo. Porém, em virtude de ser outra impressora tem outras Dll's (que ainda não substitui ainda, pois aqui estou usando via spooler) e outras formas de impressão.

Public Sub ImprimeCabecalho ()
Printer.Print Linha1
Printer.Print Linha2
Printer.Print Linha3
Printer.Print Linha4
Printer.Print Linha5
Printer.Print Linha6
end sub

Public Function ImprimeEntrada(ByVal Placa As String, ByVal Marca As String, ByVal Cor As String, ByVal TipoEnt As String, ByVal HEnt As String) As Integer
'Inicia a impressão do ticket de entrada
ImprimeCabecalho
'Inicia a impressão do ticket de entrada
Printer.FontSize = 12
Printer.Print
Printer.Print "     Placa: " & TxtPlacaEntrada & "   Marca: " & TxtMarcaEntrada
Printer.Print "     Cor: " & TxtCorEntrada & "       Tipo: " & TxtClass
Printer.Print "     Hora: " & TxtHoraEntrada & "   Data: " & TxtDataEntrada
Printer.FontSize = 10
Printer.Print
Printer.Print "       OBRIGADO PELA PREFERÊNCIA"
Printer.Print "  Suporte: Ronan Afonso-(31)3224-1282"
Printer.Print
Printer.EndDoc
ImprimeEntrada = 1
End Function

''Porem como são muitos métodos de impressão, multiplicados por uns 5 tipos de impressora que utilizamos são muitos métodos para colocar tudo numa classe só, ficará imenso e de difícil manutenção.

Agradeço a todos viu. Será uma grande ajuda mesmo que vocês estão me dando.

TÓPICO EDITADO

Página(s): 2/3 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR