<http://forum.pspad.com/read.php?f=2&i=10512&t=10507> 
----------------------------------------------------------------

I appreciate your suggestions but I am calling a function in my ActiveX and
so the VBScript does not continue to execute until call flow is returned to
the script.


Here is my script.  Since a form within the ActiveX is displayed I need to
know how to make it display in front of PSPad instead of behind.  Any
ideas?


Sub GetLogFile()
        Dim oEXE
        Dim sTime, sFile, sFilePath
        Dim PSPadEditor, PSPadNewEditor
        
        Set PSPadEditor = newEditor()
        If PSPadEditor.assignActiveEditor() Then
                sTime = PSPadEditor.selText()
                sFilePath = PSPadEditor.fileName()
                Set oEXE = CreateObject("CustomVBScripts.Routines")
                
                sInfo = "FILEPATH:" & Replace(sFilePath,":","@COLON@") & "|TS:"
& Replace(sTime,":","@COLON@")
                
                sFilePath = oEXE.GetLogFile(sInfo)
                If Len(sFilePath) > 0 Then
                        Set PSPadNewEditor = newEditor()
                        PSPadNewEditor.openFile(sFilePath)
                End If
        
                Set oEXE = Nothing
                Set PSPadNewEditor = Nothing
                
        End If
        
        Set PSPadEditor = Nothing
        
End Sub



[%sig%]

-- 
PSPad freeware editor http://www.pspad.com

Reply via email to