[Access VBA] 任意のコマンドを実行するで書いた、Shell関数を使ったVBAでの任意のコマンドの実行方法は非同期なものだと知りました。

Shell関数は任意のコマンドを実行し、コマンドの終了を待たずにShell関数の呼び出し以降のステートメントが実行されていきます。

それではあまりうれしくないときがあるので、同期実行する方法を以下に示します。

この方法を使うと、呼び出したコマンドが終了してから、以降のステートメントが実行されていきます。

以下、ソースコード。

   1  Dim strShellCommand As String     ' シェルコマンド
   2  Dim objWSH As Object              ' WSH
   3  
   4  strShellCommand = " "    ' 実行したいコマンド
   5      
   6  ' WSHを使ってコマンドを実行する
   7  Set objWSH = CreateObject("WScript.Shell")
   8  objWSH.Run strShellCommand, vbNormalFocus, True ' 第3引数がTrueなら、同期実行
   9  Set objWSH = Nothing

ソースを見るとなんとなくわかるかもしれませんが、WSHを使います。

第1引数は、コマンドを入れてあげます。

第2引数は、WindowStyleを入れてあげます。ここに入る値は、Shell関数のと同じです。

第3引数は、同期実行ならTrue、非同期実行ならFalseを入れてあげます。

See Also

• VBScript&JScript Tips - プログラムを実行する、ファイルやフォルダを開く

画像を扱うappを作っていて、シミュレータにどうやって画像を追加すればいいのだろう？と思って調べてみたら、ありました。

Start the simulator. Drag the image you want to add there, it will start safari and shows it to you. Tap and hold, then tap “Save Image”. Bingo, it’s now in the photo album.
http://ofcodeandmen.poltras.com/2008/11/04/adding-pictures-to-the-simulator/

ざっくり訳：

1. シミュレータを起動して、
2. 画像をドラッグ&ドロップ、
3. Safariで表示されたら、タップしてホールド、その後"Save Image"ボタンを押せば完了。

同様に、Safariで適当なURLを開いて、サイト内の画像をタップしてホールド...という方法もokですね。

me, myself & MUJIの修正のお知らせです。

me, myself & MUJI
http://mmm.s21g.com/

my MUJI登録で2MBを超えるファイルをアップロードした場合、my MUJIが表示できないエラーが発生しておりました。ご迷惑をおかけして申し訳ありません。

my MUJI登録で2MBを超えるファイルアップロード時の対応

my MUJIはアップロード時にオリジナル画像を保持していますが、大容量のファイルがアップロードされた場合、オリジナル画像として縮小したもの(表示用に使用している物と同じもの)を保存することに致しました。

これによって、ユーザが画像をリサイズする手間なしでmy MUJIを登録・表示することができるようになりました。

今後ともme, myself & MUJIをよろしくお願い致します。

Merbでは、providesによってMIMEタイプに応じたレスポンスを返す仕組みがありますが、 :htmlや:yamlや :jsなどの、あらかじめ登録されてあるMIMEタイプ以外のコンテンツを返したい場合には、以下のようにMIMEタイプを定義する必要があります。

config/init.rb

   1  Merb.add_mime_type(:pdf, :to_pdf, %w[application/pdf], "Content-Encoding" => "gzip")

あとは、コントローラの中で provides :pdfを宣言し、 render @objすれば、@obj.to_pdfが呼ばれる感じになります。

See Also

• Merb | provides あたり
• Adding Mime Types to Merb

株式会社万葉 さまより会場提供を頂きまして、 下記の日程でMerb勉強会を開催いたします。

• 日時 / DATE : 2009/01/11 12:00 to 18:00
• 定員 / LIMIT : 11 人
• 場所 / PLACE : 株式会社万葉 神保町オフィス http://everyleaf.com/company/
• 参加費 / FEE : 飲食代（過去の実績では500〜1000円程度。参加人数によって異なります）

内容

• sliceを極める
• Rails3の行く末を案じる
• Merbお悩み相談
• 各自ネタを持ち寄って披露する

お昼時なので、ピザと飲み物を用意いたします。 参加をご希望の方は、以下のページより参加登録をお願いいたします。

• http://atnd.org/events/275

それでは、よろしくお願いいたします。