جواب سؤال اول و دوم:
اول در محل Declaration این کد رو می نویسید
Public Shadows Event TextChanged(ByVal sender As Object, ByVal e As EventArgs
)
بعد هم این فرمان را اضافه کنید
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmr.Tick
Static n As String
Try
If Me.Document.DomDocument.body.innertext <> n Then
n = Me.Document.DomDocument.body.innertext
RaiseEvent TextChanged(Me, New EventArgs)
End If
Catch ex As Exception
End Try
End Sub
سوال سوم:
رویداد موجود مثل اود و اسکرول را با کلمه کلیدی Shadows تعریف کنید
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Public[SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Shadows[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Event[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Scroll([/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Object[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2], [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] e [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] EventArgs)[/SIZE]
[/COLOR][/SIZE][/COLOR][/SIZE]