07/01/08 23:48:47
>>944
馬鹿にされがちなやり方だけど愚直にタイマつかってポーリングするのが
一番簡単だと思う。エレガントでは全然ないが。
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim rect As Rectangle
With WebBrowser1
rect = .RectangleToScreen(.ClientRectangle)
If rect.Contains(Control.MousePosition) Then
.Focus()
End If
End With
End Sub