元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。) IE のステータスバーに表示されるアドレスを取得(VB6.0)　[No.191の個別表示] 　　　　　サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 日時： 2008/07/20 23:31 名前： 花ちゃん *********************************************************************************** * カテゴリー：[インターネット][][]                                                * * キーワード：ステータスバー,リンク,activeElement.href,AccessibleObjectFromEvent  * *********************************************************************************** タイトル ：リンク先のアドレスを取得するには 記事No ： 12715 投稿日 ： 2008/07/07(Mon) 06:44 投稿者 ： ととろ   ウェブブラウザコントロール上に表示されているページの、現在フォーカスがあるオブジェクト(または、マウスの下のオブジェクト)を取得するにはどうすればいいでしょうか？ > それなら、ステータスバーに表示されるリンクでいいのでしょうか？ はい、まさにそれを取得したいと思いまして。 (ステータスバーにリンクが表示されているということを今まで知りませんでした。) ----------------------------------------------------------------------------------- 記事No ： 12729 投稿日 ： 2008/07/07(Mon) 21:49 回答者 ： 花ちゃん   ----------------------------------------------------------------------------------- 結果的に的外れの回答だったのですが、他にも使えるかなと思い。 Option Explicit Private IE As SHDocVw.InternetExplorer Private Sub Form_Load()    Set IE = New SHDocVw.InternetExplorer    IE.Navigate ("http://hanatyan.sakura.ne.jp/")    IE.Visible = True    Timer1.Interval = 200    Timer1.Enabled = True End Sub Private Sub Timer1_Timer()    On Error Resume Next    Dim myStatusText As String    myStatusText = IE.StatusText    If Left$(myStatusText, 4) = "http" Or Left$(myStatusText, 4) = "ftp" Then       Label1.Caption = IE.StatusText    Else       Label1.Caption = ""    End If End Sub

Page: 1 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ