Print Page - Problem with OCX control fixed by a messagebox.

Title: Problem with OCX control fixed by a messagebox.
Post by: Elias Montoya on January 11, 2012, 04:38:39 PM

Im trying to fix BasictoPHP's DHTMLEdit support, because it doesn't work on windows 7. Easy stuff. However i am getting stuck with something that should be easy... and adding a simple message box fixes everything...

Code Select

   Local Dh   As IDHTMLEdit
   Local sPar  As String
   Local wPar  As wString
   Local vPar  As Variant
   
   Dh = OC_GetDispatch(HWND_STEP10_OCXCONTROL1)

This doesn't work...

Code Select

   If IsObject(Dh) Then
      sPar = "C:\Users\Diamante\Documents\test.html"
      vPar = sPar            
      Dh.NewDocument
      Dh.LoadDocument vPar
      wPar = Only_Path(sPar)      
      Dh.BaseURL = wPar           
      dh.refresh 
      Dh = Nothing      
   End If

But this works just fine after closing the message box...

Code Select

   If IsObject(Dh) Then
      sPar = "C:\Users\Diamante\Documents\test.html"
      vPar = sPar            
      Dh.NewDocument
      MsgBox "ocus pocus"
      Dh.LoadDocument vPar
      wPar = Only_Path(sPar)      
      Dh.BaseURL = wPar           
      dh.refresh 
      Dh = Nothing      
   End If

I must be doing something wrong. Any ideas what is it? :o

Title: Re: Problem with OCX control fixed by a messagebox.
Post by: Elias Montoya on January 11, 2012, 05:00:49 PM

Im sorry, im not sure this post goes here... it's not a firefly issue, but a question about my own code.

PlanetSquires Forums

Support Forums => Other Software and Code => Topic started by: Elias Montoya on January 11, 2012, 04:38:39 PM