Comment qu'on fait ?Résolu

Question

Bonjour,

J'&#233;cris du code en VB pour formater mon texte pour l'impression.
Le probl&#232;me, c'est que ce code fait gonfler l'ex&#233;cutable de mon application &#224; vue d'oeil (page complexe oblige).

Est-il possible de d&#233;porter ce code dans un fichier externe (un OCX ou une DLL peut-&#234;tre) et de l'appeler, un peu de la m&#234;me mani&#232;re qu'un module ?

Et si oui, comment on fait ??

Merci beaucoup d'avance !

PCPT · Accepted Answer

ok.....

pour tester, l&#226;che ton projet 

nouveau projet, EXE Standard
dans la Form1 (par d&#233;faut), tu poses un bouton (par d&#233;faut), puis tu copies ce code :

Private MaDll As New Cls_Test 
'
'
Private Sub Command1_Click() 
    Set MaDll =  New Cls_Test 
        Set MaDll.MyFrm = Me 
        Call MaDll.MyCommandPrinter 
    Set MaDll = Nothing 
End Sub 

ensuite,
menu fichier > ajouter un projet, DLL ActiveX

tu renommes la classe par d&#233;faut en  Cls_Test  et tu y copies ce code :

Private mFrm As Object 
'
'
Public Property Get MyFrm() As Object 
    MyFrm  = mFrm 
End Property 
Public Property Set MyFrm(ByVal new_mFrm As Object) 
    Set mFrm = new_mFrm 
End Property 
'
'
Public Sub MyCommandPrinter() 
    mFrm.Command1.Caption = "classe valide" 
End Sub 

l&#224;, tu fermes tes fen&#234;tres (sauf VB), tu s&#233;lectionnes ton projet1 (EXE), menu projet > r&#233;f&#233;rences et tu coches ta dll (projet2)

F5, click sur le bouton, eh hop, &#231;&#224; marche

je viens de le refaire en m&#234;me temps pour &#234;tre certain.

donc pour toi, tu n'auras plus qu'&#224; changer mFrm.Command1.Caption = "classe valide" par ce que tu veux, comme entre autres :

Printer.Print mFrm.Label_PeriodeDebut.Caption & "  " & mFrm.DTPicker_PeriodeDebut.Value

en l'attente
PCPT

pjouy · Answer

Ah, j'oubliais : actuellement, ce code est dans un bouton, et donc j'imprime les contr&#244;les que je veux qui sont dans la Form en cours. Est-il aussi possible de faire comprendre &#224; la dll que le code qui est dans celle-ci correspond &#224; ma Form ?
Ca &#233;viterait de faire un Call de 3 kilom&#232;tres de long avec 10 000 variables !

Merci encore

PCPT · Answer

salut,
possible.... l&#224;, il faudrait ton code pour savoir.
dans le principe, sans doute, mais si ton Click fait r&#233;f&#233;rence &#224; "10000" variables, et que tu ne veux pas les &#233;num&#233;rer en appel, si elles sont priv&#233;es, &#231;&#224; semble compromis.....

colle un morceau de code, &#231;&#224; sera plus facile de se rendre compte ;)
PCPT

pjouy · Answer

Salut,

En fait, il y a beaucoup de contr&#244;les qu'il faut imprimer, c'est surtout &#231;a qui m'inqui&#232;te... (est-ce que la DLL prendre les contr&#244;les de ma Form ou me renvoyer une erreur). Bref, voil&#224; un tout petit bout de code, le reste est dans le m&#234;me ordre d'id&#233;e.

Private Sub Command_ImprimerEAA_Click()
    On Error GoTo ErreurImpression      'Au cas o&#249; il y ait un pb &#224; l'impression (par exemple s'il n'y a pas d'imprimante)
    'D&#233;finition des param&#232;tres de la feuille
    Printer.FontName = "Arial"
    Printer.PrintQuality = -3           'qualit&#233; &#233;conomie
    Printer.PaperSize = vbPRPSA4        'format papier A4
    Printer.Orientation = 1             'mode portrait
    Printer.ScaleMode = vbMillimeters   'calage en millim&#232;tres
    GoSub Entete      'Et en plus j'ai des Sub !!
    'Page 1 ###################################################
    Page = 1
    Printer.FontSize = 22               'taille de la police
    Printer.FontBold = True
    Printer.ForeColor = &HE0E0E0        'gris clair
    Printer.CurrentX = 21
    Printer.CurrentY = 32
    Printer.Print Label_Titre.Caption
    Printer.ForeColor = vbBlack
    Printer.CurrentX = 20               'Position X
    Printer.CurrentY = 32               'Position Y
    Printer.Print Label_Titre.Caption
    Printer.FontSize = 14
    Printer.FontBold = False
    Printer.CurrentX = 25
    Printer.CurrentY = 80
    Printer.Print Label_PeriodeDebut.Caption & "  " & DTPicker_PeriodeDebut.Value
    Printer.CurrentX = 25
    Printer.CurrentY = 90
    Printer.Print Label_PeriodeFin.Caption & "  " & DTPicker_PeriodeFin.Value
    Printer.FontSize = 16    Printer.CurrentX 30: Printer.CurrentY 115
    Printer.Print "Nom : " & NomPrenom.Text    Printer.CurrentX 30: Printer.CurrentY 128

......

Voil&#224;
Merci pour ton aide

PCPT · Answer

re,
ta fonction (dans un dll activex) sera une automatisation.

si ton but est de, par exemple, ne PAS imprimer toutes les valeurs de la form (des Label, Textbox, etc...), il faudra soit tous les passer en param, soit passer ceux qui ne doivent pas &#234;tre imprim&#233;s.

ton code "gonfle cons&#233;d&#233;rablement l'exe", je suppose donc que tu l'appelles &#224; plusieurs occasions...
si tu penses (et tu es le mieux plac&#233;) qu'il est possible de mettre le code en dll, c'est qu'il l'est aussi en module, appelable &#224; diff&#233;rents endroits, donc pas tant de place que &#231;&#224;.

c'est l&#224; ou je bloque. tu veux d&#233;porter le code, simplement? une sorte d'include en fait....

et tes appels seraient toujours la m&#234;me Form?

j'en demande beaucoup
PCPT

pjouy · Answer

Salut

Non, ce code n'est appel&#233; qu'une seule et unique fois, lorsqu'on appuie sur le bouton qui va bien. Mais comme je cr&#233;e des pages complexes (avec beaucoup de labels et textbox qui sont dans la form [qui est une forme d'assistant avec Pr&#233;c&#233;dent / Suivant avec des Frames] ), chaque nouvelle page fait prendre environ 30 &#224; 50 ko &#224; mon ex&#233;cutable.

Mon id&#233;e &#233;tait de le d&#233;charger un peu, et de mettre le code dans une DLL.

Maintenant, tu as vu une partie de mon code (qui r&#233;sume tr&#232;s bien la globalit&#233; de ce que j'ai &#224; imprimer)... Est-ce que, &#224; ton avis, il est possible de le d&#233;porter de mon Command_Imprimer_Click vers une DLL (sans avoir &#224; passer mes labels et textbox en variable) ?

Merci ;)

PCPT · Answer

si tu n'as cet appel que d'un seul bouton, alors oui, sans probl&#232;me. mais &#224; ta place, j'utiliserais un module de classe dans le projet. il sera  instanci&#233;, pas la peine de dll...
PCPT

pjouy · Answer

Est-ce qu'un module de classe va me cr&#233;er un fichier suppl&#233;mentaire par rapport &#224; l'exe ? Parce que c'est ce que je cherche au bout du compte...

Si je souhaite cr&#233;er une DLL pour l'impression de ces pages, est-ce qu'un couper/coller tout b&#234;te de mon code peut suffir ? Ou bien y a-t-il des choses &#224; changer ? De plus, est-ce qu'il ne va pas me sortir un truc du genre "objet non d&#233;fini" quand je prendrai le texte d'un label dans ma form ?
Pardonne-moi toutes ces questions, mais je n'ai encore jamais fait de DLL...

PCPT · Answer

re,
pour faire tes tests, ajoute juste un module de classe dans ton projet (donc qui n'ajoutera rien en "externe" au programme, et donc qui ne cr&#233;era pas la DLL finale que tu veux)

ensuite, pour la d&#233;clarer, dans ta Form
Dim MaDllMachin as New NOM_DE_TA_CLASSE

fait une fonction ou une proc&#233;dure dans cette classe
Public Sub MyCommandPrinter(ByVal F as Form)

mets y le code de ton bouton en ajouter F. devant les contr&#244;les correspondants
Printer.Print F.Label_Titre.Caption
...

ensuite pour l'appeler
Call MaDllMachin.MyCommandPrinter(Me)

et si &#231;&#224; fonctionne bien comme tu veux, il n'y aura plus qu'&#224; cr&#233;er une 2e projet (ActiveX), d'y d&#233;placer ta classe, la mettre en public, et de la compiler

dispo au besoin
++
PCPT

pjouy · Answer

Re,

J'ai r&#233;ussi &#224; faire ce que tu m'as dit jusqu'&#224; la cr&#233;ation d'un 2&#232;me projet DLL ActiveX. J'ai fait un copier/coller de mon module de classe. Mais je ne sais pas la mettre en Public. Effectivement, lorsque j'essaye de la compiler, il me dit "Des modules d'objets priv&#233;s ne peuvent &#234;tre utilis&#233;s dans les modules d'objets publics comme types renvoy&#233;s..."

J'y suis presque

PCPT · Answer

bon, j'avais commenc&#233; des imprim &#233;crans, etc...
s&#251;r de moi, en en fait, j'ai le m&#234;me probl&#232;me que toi.
et pareil en d&#233;clarant la fonction en Friend

continue &#224; rechercher de ton c&#244;t&#233;, je te tiens &#233;galement au courant
@+
PCPT

pjouy · Answer

Apparament, le probl&#232;me vient du fait qu'il y a des variables pass&#233;es dans les Public Sub. Si on les enl&#232;ve, il veut bien compiler la DLL. Par contre, si on ne lui indique pas la Form o&#249; se trouvent les contr&#244;les, il va y avoir un probl&#232;me... All&#244; Houston ??

PCPT · Answer

bon, bah quand même !!!!!! çà fonctionne chez moi. ' ------------ ' dans la Form ' ------------ Private MaDll As New Cls_Test ' ' Private Sub Command1_Click() Set MaDll = New Cls_Test Set MaDll.MyFrm = Me Call MaDll.MyCommandPrinter Set MaDll = Nothing End Sub ' ---------------------- ' dans le module, en dll ' ---------------------- Private mFrm As Object ' ' Public Property Get MyFrm() As Object MyFrm = mFrm End Property Public Property Set MyFrm(ByVal new_mFrm As Object) Set mFrm = new_mFrm End Property ' ' Public Sub MyCommandPrinter() mFrm.Command1.Caption = "classe valide" End Sub Coloration syntaxique automatique [AFCK] tiens-moi au courant PCPT

pjouy · Answer

Re [d&#233;sol&#233; pour le retard]

J'ai pas compris grand chose &#224; ton code... et je m'emm&#234;le les pinceaux avec tous les Frm...

Aurais-tu la gentillesse de m'expliquer &#224; quoi tout &#231;a correspond ?

Merci

pjouy · Answer

Je te remercie pour tes explications d&#233;taill&#233;es, mais j'avais d&#233;j&#224; compris ce que tu m'avais dit de faire.

Ce que je comprends pas tr&#232;s bien, c'est comment fonctionne le code. Si je devine pas trop mal, on essaye de faire passer la variable par un objet...
C'est que j'aime bien comprendre le code que j'impl&#233;mente, sinon on n'&#233;volue pas

PCPT · Answer

la DLL va garder en r&#233;f&#233;rence la Form appelante, en tant que collection (particuli&#232;rement objet ici).
on instancie cet appel d'objet en priv&#233;, et c'est pour &#231;&#224; qu'on peut l'utiliser.
l'objet par lui-m&#234;me ne peut pas &#234;tre utilis&#233; en public.

en comparaison, on pourrait dire qu'elle (la dll) consid&#232;re la Form appelante comme un Item, et qu'elle ne travaille que sur ce dernier, et non pas sur le contenant total.

j'aurais du mal &#224; mieux expliquer.....

en l'attente,
PCPT

pjouy · Answer

Ca marche ! 

Merci beaucoup

J'avoue juste que ce passage ne m'est pas tr&#232;s clair : 

Public Property Get MyFrm() As Object 
    MyFrm = mFrm       'OK on r&#233;cup&#232;re la variable
End Property 
Public Property Set MyFrm(ByVal new_mFrm As Object) 
    Set mFrm = new_mFrm    'Mais ici &#231;a sert &#224; quoi, vu que la variable
                           'new_mForm n'est utilis&#233;e nulle part...
End Property

PCPT · Answer

ok, d&#233;sol&#233; :
le Get sert &#224; ce que, &#224; partir de la Form, tu puisses r&#233;cup&#233;rer (donc relire) Madll.MyFrm (sachant que c'est bien un objet, pas une String)
et le Set, pour initialiser. donc la Form dit &#224; la classe qu'elle re&#231;oit une nouvelle valeur.
la classer re&#231;oit la valeur (objet) temporaire, et l'enregistre ensuite dans sa variable (mFrm = param&#232;tre renvoy&#233;)

oui?

PCPT

pjouy · Answer

OK, merci beaucoup, c'est plus clair maintenant.

Donc, si &#224; l'avenir j'ai d'autres variables &#224; ajouter, il faut que je rajoute autant de Public Property Get et Set que de variables.

PCPT · Answer

&#231;&#224; d&#233;pend tu cas de figure.
si t'as 50 string et que tu vas les traiter dans une m&#234;me proc&#233;dure, tu peux aussi d&#233;clarer un get/let (et pas Set pour des variables) en tableau

PCPT

pjouy · Answer

Hum hum, c'est de l'inconnu tout &#231;a.
Je me contenterai de faire ce que tu m'as appris, avec Get et Set  
Merci encore