Information générale
Catégorie:
Codage, syntaxe et commandes
Hi, I have been able to hide most of the activity when running a FoxPro exe but the main foxPro
window still flashes briefly when the exe loads. Is there a way to remove this also?
Thanks
Steve
This is the foxPro exe program
**********************************
_Screen.Visible = .F.
o = GETOBJECT(,'excel.application') && helps to reduce screen activity
o.Visible= .T.
WITH o.Application &&.Run("Hw2004ETF.xls!GotoFidelity")
.screenUpdating = .f. && also helps
.Sheets("ImportArea").Select
.Goto("FedImpRange")
.Selection.Copy
.Sheets("Fidelity").Select
.Goto("LastDay")
.Range("HV7").Select
.ActiveSheet.Paste
Recalc() && .Run("Hw2004ETF.xls!ReCalcSheet")
.Goto("LastDay")
.screenUpdating = .t. && also helps
ENDWITH
PROCEDURE ReCalc
.Run("Hw2004ETF.xls!ReCalcSheet")
RETURN .t.
This is the Excel macro
***********************
Sub aa()
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Dim ProcessID As Long
Dim file2run As String
Application.ScreenUpdating = False
file2run = ("c:\pager\oQot.exe -t") '' should the -t remove FoxPro's initial screen from showing?
ProcessID = Shell(file2run, CLng(SW_SHOWNORMAL))
Application.ScreenUpdating = False
End Sub
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement