0. Public Functionの名前はAaaとする

1. 各種パラメータを受け取る
  1-1. strBrowserName as String
  1-2. strContentOfWb as String
2. strBrowserNameに格納されている名前を持つWebBrowserに表示されている内容を、タグを含めて、strContentOfWbに代入する
3. strContentOfWbを返す

回答の条件
  • 1人2回まで
  • 登録:2009/10/26 22:18:07
  • 終了:2009/11/02 22:20:03

回答(1件)

id:HALSPECIAL No.1

HALSPECIAL回答回数407ベストアンサー獲得回数862009/10/27 16:02:06

ポイント60pt

関数で取得に成功の場合はリターン値にTrue を返します。strContentOfWb変数にタグ付きの内容をセット

関数で取得に失敗の場合はリターン値にFalseを返します。strContentOfWb変数は空です。

    Public Function Aaa(ByVal strBrowserName As String, ByRef strContentOfWb As String) As Boolean
        Dim AllCtrl As Control() = GetAllControls(Me)
        Dim wb As WebBrowser = Nothing
        strContentOfWb = ""

        For Each c As Control In AllCtrl
            If c.GetType().Equals(GetType(WebBrowser)) Then
                If c.Name = strBrowserName Then
                    wb = c
                    Exit For
                End If
            End If
        Next

        If wb Is Nothing Then
            Return False
        End If

        strContentOfWb = wb.DocumentText

        Return True
    End Function

    Private Function GetAllControls(ByVal top As Control) As Control()
        'http://www.atmarkit.co.jp/fdotnet/dotnettips/224controls/controls.html
        Dim buf As ArrayList = New ArrayList
        For Each c As Control In top.Controls
            buf.Add(c)
            buf.AddRange(GetAllControls(c))
        Next
        Return CType(buf.ToArray(GetType(Control)), Control())
    End Function

※なお、WebBrowserのコントロールはデザインでフォームに貼り付けているものと仮定しています。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません