[VB6] Form su WebBrowser che ottiene il focus

[lucmix]

Salve a tutti, ho un piccolo problema da risolvere.
Ho creato un form con Visual basic che prende dei dati da internet ad intervalli di 1 minuto, il problema è che se navigo con il mio browser (Explorer o Firefox), per esempio so cercando un link dai miei dati preferiti (mouse puntato sui link dopo aver cliccato sul menu dei preferiti), il form in questione (se sta scaricando i dati) prende il focus e praticamente mi chiude il menu dei preferiti che avevo selezionato.
Come posso risolvere questo problema?
Grazie.

[oregon]

Con la convinzione?


Se magari ci

1) dicessi la versione di VB

2) facessi vedere il codice che usi

...

[lucmix]

uso Visual basic 6

qui' cerca il link

Dim WithEvents IEst As SHDocVw.InternetExplorer
On Error Resume Next
If IEst Is Nothing Then 'creo solo la 1a volta
Set IEst = CreateObject("InternetExplorer.Application")
End If
IEst.Navigate STMsitotah

e quì esegue le operazioni non appena scarica i dati

Private Sub IEst_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim doc As MSHTML.HTMLDocument, b As MSHTML.IHTMLBodyElement

[oregon]

Molto probabilmente dipende da cosa fai esattamente in

Private Sub IEst_DocumentComplete(ByVal pDisp As Object, URL As Variant)

ma dato che non lo mostri non so cosa dirti ...

[lucmix]

la procedura completa è questa:
Private Sub IEst_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim doc As MSHTML.HTMLDocument, b As MSHTML.IHTMLBodyElement
Dim num, endnum As Long, symbol As String, indata, strnew, strdata, strvar, passaggio As String
Set doc = IEst.Document
'MsgBox b.innerText
'Set doc = pDisp.Document
Set b = doc.body
'Form1.Text2 = b.innerText
passaggio = lblora
indata = b.innerText
symbol = x ' Strinda da cercare
num = InStr(1, indata, symbol) + Len(symbol) + 1
endnum = num + i 'InStr(numcapMS, inDataMS, symbol1)
strnew = Mid(indata, num, endnum - num)
lblQuotest = strnew
Set IEst = Nothing
End Sub

quello che penso, nella mia ignoranza, è che non dipenda da questa sub, ma dal fatto che il form non lavora in background....

[oregon]

Beh ... mettiamola cosi' ... se scrivo un programma simile al tuo che ogni minuto naviga su www.google.it (non in background ...), non succede assolutamente quello che hai detto.

Se aggiungo il codice che hai mostrato, ovviamente, mi mancano tutte le dichiarazioni delle variabili usate e del loro contenute e, in ogni caso, non funzionerebbe nulla se non si va sulla pagina che stai utilizzando tu ...

In definitiva, per poter replicare il problema (ed eventualmente risolverlo) *e' necessario* avere il tuo codice esattamente com'e', con tutto quello che serve ... mi dispiace ma non potendo replicare il problema, non posso dirti come rimediare ...

[lucmix]

Ok grazie lo stesso, cerchero' di risolvere prossimamente magari postando tutto il codice...

[lucmix]

ripeto per chi non avesse letto la prima parte:

Salve a tutti, ho un piccolo problema da risolvere.
Ho creato un form con Visual basic che prende dei dati da internet ad intervalli di 1 minuto, il problema è che se navigo con il mio browser (Explorer o Firefox), per esempio so cercando un link dai miei dati preferiti (mouse puntato sui link dopo aver cliccato sul menu dei preferiti), il form in questione (se sta scaricando i dati) prende il focus e praticamente mi chiude il menu dei preferiti che avevo selezionato.
Come posso risolvere questo problema?
Grazie.

Oregon ci sei??.......


questo è il codice:

Option Explicit
Dim WithEvents IE As SHDocVw.InternetExplorer

Private Sub Form_Load()
trovasito
End Sub
Private Sub trovasito()
On Error Resume Next
If IE Is Nothing Then 'creo solo la 1a volta
Set IE = CreateObject("InternetExplorer.Application")
End If
IE.Navigate "http://forum.html.it/forum/index.php?"
End Sub

Private Sub IE_DocumentComplete(ByVal xpDisp As Object, xURL As Variant)
On Error Resume Next
Dim doc As MSHTML.HTMLDocument, b As MSHTML.IHTMLBodyElement
Dim num, endnum As Long, symbol As String, indata, strnew, strdata, strvar As String
'Command1.Enabled = True
Set doc = IE.Document
'MsgBox b.innerText
'Set doc = pDisp.Document
Set b = doc.body
'Form1.Text2 = b.innerText
Text1.Text = b.innerText
indata = b.innerText
symbol = "Benvenuto"
num = InStr(1, indata, symbol) + Len(symbol) + 12
endnum = num + 6 'InStr(num, inData, symbol1)
strnew = Mid(indata, num, endnum - num)
Text2.Text = strnew
Set IE = Nothing
End Sub

Private Sub Timer1_Timer()
trovasito
End Sub

[alka]

Originariamente inviato da lucmix
ripeto per chi non avesse letto la prima parte

Verrà letta, visto che si continua la stessa discussione (le ho unite io, questa volta); inoltre, meglio usare dei titoli più significativi, che diano un'idea effettiva del problema.

[oregon]

Questo e' tutto il codice ? E' possibile provarlo cosi' com'e' ? Hai ancora quel problema ?