スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

【HTA】簡易プログレスバー設置【VBA】

HTAでプログレスバーを表示して
進捗状況を見たい!

…そう思い、いろいろ調べてみましたが
情報が無い。無い無い。無い無い無い!!

ということで、考えました。

------------------------------------------------------------

'===============--IE========================
Dim objIE ' IE オブジェクト プログレスバー

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Width = 300
objIE.Height = 120
objIE.AddressBar = False
objIE.MenuBar = False
objIE.ToolBar = False
objIE.Resizable = False
objIE.Visible = True
objIE.Navigate "about:blank"
objIE.Left = 0
objIE.Top = 0

objIE.Document.Write "" & vbcrlf
objIE.Document.Write "" & vbcrlf
objIE.Document.Write "更新進捗" & vbcrlf
objIE.Document.Write " " & vbcrlf
objIE.Document.Write " " & vbcrlf
objIE.Document.Write "
" & vbcrlf
objIE.Document.Write "
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。
" & vbcrlf
objIE.Document.Write " " & vbcrlf
'==================================================

objIE.Document.Body.InnerText = NowRow-1 & "/" & MaxRow-StartData & vbcrlf & String(NowRow-1, "■") & String(MaxRow+1-StartData-NowRow, "□")'プログレスバー進捗率

'==================================================

こんな感じでした。
NowRowが現在。 MaxRow が最大値
StartDataが現在…だったかな?(覚えてない)

適宜、考えて修正して使ってみてください^^
関連記事
スポンサーサイト

コメントの投稿

非公開コメント

訪問者数
プロフィール

もちーは

Author:もちーは
平成2年生まれの技術者(ヒヨッコ)
前向きに、色々取り組みます!
友達絶賛募集中です(´ω`*)

最新記事
カテゴリ
その他
アフィリエイト 暮らしをおトクにかえていく|ポイントインカム  
最新コメント
月別アーカイブ
便利なサイト
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。