掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
高速文字列連結 (ID：85031)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
そのコードで一番時間のかかっている部分は、 >.Value >Label5.Caption = Format(i, "#,###,###") & "/" _ >& Format(lngSize, "#,###,###") & "[" _ >& Format(Int((i / lngSize) * 100), "@@@") & "%]" >DoEvents ですよ。 速くやるならプログレスバーは不要です。 If (i / 100 = i \ 100) Then .Value = i Label5.Caption = Format(i, "#,###,###") & "/" _ & Format(lngSize, "#,###,###") & "[" _ & Format(Int((i / lngSize) * 100), "@@@") & "%]" DoEvents End If どうしてもと言うなら、この位のことをやらなくては速くくならない。 表示は一番最後に一回だけの方がいい。 Joinでやるなら For i = 0 To lngsize s(i) = Chr(bytArray(i)) Next strConve = Join(s, "") プログレスバーは入りません。 ですがどちらが速いかは条件次第です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.