タイトル : Re^2: ビットマップ内のバーコードデータが更新されない 投稿日 : 2009/04/06(Mon) 00:24 投稿者 : ゆき
早速ありがとうございます。 花さんから助言を頂いた内容で確認したところ、どちらも投稿させて 頂いた内容と同じ現象になってしまったので、 Do〜Loopを一回一回Remで止めて確認してみると 変数のLABELDATAは問題無くカウントアップされていました。 でCドライヅ所定箇所のbmpファイルも毎回開いて確認して見たんですが ここでのbmp形式のバーコードが更新されずに前のLoop時ままでした。 これに関しても花さんの助言でTimerを使用し、タイムラグを作って 実行して見ましたが同じ状況でした。 こう言ったコードの書き方では、bmpファイルのバーコードは更新されないのでしょうか。 一旦、bmpファイル自体を削除してからCreatObjectで再作成が良いのでしょうか? (ただ、VB側からのbmpファイル削除の仕方も分からないのですが) Dim COUNT As Long: COUNT = 0 Do Until COUNT = 20 LABELDATA = "ABCDE" + COUNT ’’’バーコードデータの作成 ’■■■LABELDATAのデータは問題なくカウントアップされる Call Shell("C:\QR_BarCode.exe\mkqrimg.exe /O""C:\QR_BarCode.exe\QR.bmp"" /T" & LABELDATA & "") ’■■■C:\QR_BarCode.exe\QR.bmpのbmp形式バーコードが前のLABELDATAで作成されたまま BMPPATH = _ GetObject("Scripting.FileSystemObject").GetAbsolutePathName("C:\QR_BarCode.exe") ’Remクリップボードへ貼り付け エクセル貼り付け COUNT = COUNT + 1 Loopボードへ貼り付け |