[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== Start OI via StartOI using Visual Basic (OpenInsight 32-bit Specific) ====
=== At 17 MAY 2005 01:46:49PM Ray Chan wrote: ===
 
{{tag>"OpenInsight 32-bit Specific"}}
 
<QUOTE>
To all,

We are calling StartOI from a VB program. However, it isn't working, i.e., OI doesn't start.



We protyped [b]RDKINSTP[/b] as:



Public Declare Function StartOI Lib "c:\Work\Single User\Oinsight\Develop\RDKINSTP.dll" (ByVal RSHwnd As Long, ByVal RSApp As String, ByVal RSLoc As String, ByVal RSUser As String, ByVal RSPassword As String) As Boolean



Below is our [b]VB test code to start OI[/b]:



Function Update_openinsight()

  Dim hInstallWindow As Long

  ChDir ("c:\Work\Single User\Oinsight")

  a=StartOI(hInstallWindow, "SYMMETRY", "c:\Work\Single user\Oinsight\dEVELOP", "SYMMETRY", "”)

  MsgBox (a)



End Function





******* end of code *********************



Any comments/suggestions would be welcome,



Ray Chan
</QUOTE>
----

=== At 18 MAY 2005 08:46AM Colin Rule wrote:  ===

<QUOTE>We have a VB exe (with form being the splash screen) with the following code, to launch an OI app.





Private Sub Form_Load()

    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

    Me.Show

    DoEvents

    Shell "OINSIGHT /ap=icepac /un=ripac"

    End

End Sub

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=691FB900A5541939852570040061ABA3|View this thread on the  forum...]]