programme QB45 appelant un programme VB

Question

Bonjour,

Mon probl&#232;me est le suivant :

J'ai un programme &#233;crit en QB45 qui appelle un programme &#233;crit en VB 

Le programme QB45 g&#232;re l'&#233;cran (SCREEN 12 = 16 couleurs .... eh oui!!)

et il appelle l'interface VB (qui n'a rien &#224; afficher ... c'est juste
pour une analyse des imprimantes en r&#233;seau que QB45 ne sait pas faire)

Or lorsque  l'interface VB d&#233;marre, l'&#233;cran est compl&#232;tement
chamboul&#233; : des bandes verticales multicolores ... l'ensemble est
plant&#233; et WINDOWS XP aussi ...   le pied !!



Il faut savoir que l'ensemble fonctionnne impec sous WINDOWS 98, 98SE, 2000 ,Me

Mais voil&#224; sous XP ..... boum !!!



L'ensemble &#224; &#233;t&#233; compil&#233; sous WINDOWS 98 ... cel&#224; peut-il expliquer le probl&#232;me ???

Faut-il tout recompiler sous WINDOWS XP ??? 

Existe-t-il des fonction VB qui pourraient g&#233;rer la situation ???

Enfin voil&#224; .... Si quelqu'un &#224; une id&#233;e ... je l'en remercie d'avance

nhervagault · Answer

Salut

Peut &#234;tre que des fonctions 98 ne sont pas present sous Xp?
Mais il se qui est bizarre c'est que ca fonctionne sur 2000
A moins que que C'est SP2 qui fout la grouille dans ton programme.
A voir de ce cot&#233;.

cs_pluplu · Answer

Je te conseil vivement avant toute chose de recompiler ton programme depuis XP 

Pascal Lauren&#231;on

laurentfrancis · Answer

Salut,

Bon j'ai essay&#233; les param&#232;trages de compatibilit&#233; des logiciels .... Rien

J'ai recompil&#233; les 2 programmes (l' appelant en QB45)  et (l'appel&#233; en VB) sous

WindowsXP .... Rien

Apr&#232;s bien des tests je sais maintenant que c'est le programme appel&#233; r&#233;dig&#233; en VB qui

change compl&#232;tement la d&#233;finition d'&#233;cran et la palette de couleurs
install&#233;es par QB45 avant l'appel ... Ce qui fait que le programme QB45
ne retrouve pas ses marques en retour...



Ma question est la suivante :

Un programme VB qui ne fait qu'&#233;crire dans un fichier et qui n'a
absolument rien &#224; afficher &#224; l'&#233;cran, peut-il &#234;tre param&#233;tr&#233; de fa&#231;on &#224;
ce qu'il ne touche pas &#224; la palette de couleurs en place au moment de
son lancement ... 

Comment en VB peut-on donc rendre un programme totalement "transparent" ?



Merci de me r&#233;pondre si vous avez une id&#233;e &#224; me donner ...

laurentfrancis · Answer

Voici le contenu du fichier VB appel&#233; par le module QB45 :



Private Sub Form_Load()

Dim MyPrinter As Printer



NbPrint = 0

Open "PRINTERS.CFG" For Output As #1

    For Each MyPrinter In Printers

    NbPrint = NbPrint + 1

    NumePr$ = LTrim(Str(NbPrint))

    NomsPr$ = MyPrinter.DeviceName

    PortPr$ = MyPrinter.Port

    CompPr$ = ComputerName$

    

    Write #1, NumePr$, CompPr$, NomsPr$, PortPr$

 

    Next

Close #1

End

End Sub



Il n'a pourtant rien de sp&#233;cial ???? qu'en pensez-vous ???

laurentfrancis · Answer

Une autre question ....



Un programme VB n&#233;cessite-t-il toujours au minimum une feuille form ?

ne peut-il comporter que des instructions et rien d'autre ne
n&#233;cessitant aucune des propri&#233;t&#233;s relatives aux couleurs comme
BackColor par exemple ?

nhervagault · Answer

Un programme VB peut etre que du code dans ce code c'est une dll

laurentfrancis · Answer

J'ai rédigé mon programme VB sans feuille form
mais avec seulement du code au travers de la procédure Main()
Il n'y a donc aucun appel à aucune couleur ....
Eh bien c'est toujours pareil.
Lorsque le Programme QB45 SHELL le Programme VB, au retour, la palette de couleurs a été changée !!!! 
Je ne vois pas comment faire pour retrouver les couleurs de départ ...
SI vous avez une idée ... Help

Programme QB45 appelant un programme VB

7 réponses

Discussions similaires