Discussion :

[laurentfrancis]

J'ai une grosse application (263 modules) écrite en QB45 qui tourne très bien sous Windows XP ...
Le problème c'est que QB45 ne gère pas les ports USB et je SHELL donc vers une application VB qui se charge des éditions des documents ...

Mon problème est que lorsque le programme VB a terminé ses éditions et que le programme QB45 reprend la main, alors ce dernier à perdu sa définition d'écran et que son affichage est alors tout faux ...

Question : Connaissez-vous un moyen d'éviter celà ??? ..
Merci d'avance

[zazaraignée]

Salut

T'aurais plus de succès avec la fonction de l'API ShellExecute. Mais sous QB45, sais pas si tu peux.

Quelqu'un sait comment ? ou a une meilleure idée ?

[laurentfrancis]

Merci pour ta réponse, mais sous QB45 il n'y a pas de ShellExecute, il n'y a que SHELL avec le nom du programme à lancer ...
ça marche très bien sous Windows 98 ou Me mais sous XP, si tu appelles ainsi une application VB, alors le mode d'affichage est changé et au retour le programme QB45 plante dans son affichage ...

A ce jour je n'ai pas la solution pour remédier à ce problème...
SI quelqu'un a une idée magique ...

[zazaraignée]

Salut

J'ai bien pensé que ça ne fonctionnerait peut-être pas du premier coup. ShellExecute est une fonction de l'API Windows (Application Programming Interface). Ça marche seulement si ton programme tourne sous Windows et il faut l'appeler par sa librairie... C'est tout un tintouin.

Mais vu que tu es sous WinXP, je ne vois pas le problème. Sauf, bien entendu, si tu ne peux pas faire ce genre de déclarations dans QB45.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Declare Function ShellExecute Lib "shell32.dll" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, _
        ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

Si tu ne peux pas placer ce code, c'est râpé!
En plus, l'utilisation c'est une autre histoire... Je ne connais pas Quick Basic suffisemment pour te conseiller mieux.

[laurentfrancis]

Je vous remercie pour votre aide.

Finalement j'ai résolu mon problème en intégrant dans mon prog en QB45
quelques lignes d'interruption BIOS qui m'ont permis de contourner la prise en main par windows des affichages ...

L'avantage de QB45 c'est qu'on peut intégrer des lignes d'interruption DOS
ou plus interessant encore des lignes d'interruption BIOS ...

Merci encore
a+