掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
XMLHTTPの非同期通信で、サーバからデータを受信するには (ID:100848)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
では別の方法を 参考：http://support.microsoft.com/kb/303322/ja メニューの「プロジェクト」-「参照設定」よりMicrosoft XML, version 2.0 をチェックしOKを押す 'Class1 ' -- メニューの「ツール」-「プロシージャの属性」でOnReadyStateChangeを選択 ' -- 「詳細」を押してプロシージャIDを (既定) に設定し，OKを押す Option Explicit Dim xmlhttp As XMLHTTPRequest Public Sub Initialize(ByVal xmlhttp_ref As XMLHTTPRequest) Set xmlhttp = xmlhttp_ref End Sub Public Sub OnReadyStateChange() Debug.Print "ReadyState="; xmlhttp.readyState End Sub 'Form1 Option Explicit Dim xmlhttp As XMLHTTPRequest Private Sub Form_Load() Dim Handler As Class1 Set xmlhttp = New XMLHTTPRequest Set Handler = New Class1 Call Handler.Initialize(xmlhttp) xmlhttp.OnReadyStateChange = Handler xmlhttp.open "GET", "http://www.google.co.jp", True xmlhttp.send End Sub これで実行． イミディエイトウィンドウに以下の内容が表示される ReadyState= 1 ReadyState= 1 ReadyState= 2 ReadyState= 3 ReadyState= 4
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.