掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
iTunesアプリケーションを処理待ちにしないようにするには？ (ID:139737)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やじゅさん、コメントありがとうございます。 下記、2箇所にそれぞれ入れてみましたが、残念ながら処理待ち状態は変わりませんでした・・・ '----------------------------------------------------------- Dim StriTunesTrName As String Public Sub BtnChangeArtistTxt(ByVal StriTunesArtistName As String) Dim iTunesApp As New iTunesApp Dim Track As IITTrack '〜iTunes側の処理〜 Track = Nothing iTunesApp = Nothing System.Windows.Forms.Application.DoEvents() '←追加 NextProgram(TxtText) System.Windows.Forms.Application.DoEvents() '←追加 End Sub Public Function NextProgram(ByVal TxtTextAs String) URL = "" 'HPアドレス ie = CreateObject("InternetExplorer.application") ie.Visible = False ie.Navigate2(URL) 'ページ読み込み待ち Do While ie.Busy = True System.Windows.Forms.Application.DoEvents() Loop Dim objHtml As mshtml.HTMLDocument objHtml = ie.Document '〜IE側での処理〜 ie.Document.forms(0).submit() ie.Quit() ie = Nothing End Function '-----------------------------------------------------------
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.