掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IEのステータスバーの値を取得 (ID:140650)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ソースが欠けていましたあげなおします。 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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.