Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
マウスオーバーをしている時間の計測
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=10307#CommentId20978
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
そそそ
 (学生)
投稿日時
2011/6/30 19:33:32
webbrowserコントロールで表示したページでマウスオーバーするとhtmlの要素をtextboxに表示するプログラムを作っています。
ある要素にどのくらいの時間マウスが停滞していたかを測りたいのですがどうすればよいでしょうか?
現在のプログラムは以下のようになっています。
Imports System.Runtime.InteropServices.Marshal
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.google.co.jp/")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
'WebBrowser1.Document.AttachEventHandler("onmouseup", AddressOf document_onmouseup)
WebBrowser1.Document.AttachEventHandler("onmouseover", AddressOf document_onmouseover)
End Sub
Sub ReleaseObject(ByVal o As Object)
If o IsNot Nothing AndAlso IsComObject(o) Then
ReleaseComObject(o)
End If
End Sub
Sub document_onmouseover(ByVal sender As Object, ByVal e As EventArgs)
TextBox1.Text = WebBrowser1.Document.GetElementFromPoint(WebBrowser1.PointToClient(Control.MousePosition)).OuterText
TextBox2.Text = WebBrowser1.Document.GetElementFromPoint(WebBrowser1.PointToClient(Control.MousePosition)).OuterHtml
End Sub
End Class