【ExcelVBA】テトリス

昔作ったExcelのテトリスです。

モジュール

標準モジュールをたくさん、フォームを少しだけ使っています。

自分用に作ったので、コードが汚いですね。すみません。

ブログの記事のネタ不足につき、苦肉の策で過去の成果物をアップします。

これ実は元ネタがあって、一から私が作った訳ではなく、ベースがありました。ベースは、Webの海に落ちていました。それを拾って、カスタマイズしました。

ベースがあった元のURLは失われて久しいです。ごめんなさい。

コードを見て、「あ！これ自分のだ！」とお気づきの権利者の方がいましたら、当方にお知らせください。

著作権上ほかいろいろ支障ありましたら削除いたします。

私は一時期あるWebサイトのテトリスにはまっていまして、毎日暇さえあればやっていたものでした。

ステージ上に障害物があるのですが、ステージ14の障害物がとても難しくて、でもそのWebサイト上ではステージ1から順番にクリアしていかないとステージ14まで行けなくて、そこまでに到達するまでとても時間がかかったので、なんとかステージ14だけ練習できないかと思い、自作したものです。

このステージごとに障害物があるテトリス、久しぶりにプレイしようとWebを検索してみましたが、どこにも残っていませんでした。残念です。

「かいしステージ」というところに今は「１」が入っていますが、「14」と入れれば、次のリセットからはいきなりステージ14から開始できます。

現在64bit対応コードになっています。

32bit環境の方は、コードの修正が必要です。

不親切仕様ですみません。

現在、ModuleAの冒頭部分のDeclareにPtrSafeがついていますが、これが64bit対応です。

32bit環境では、PtrSafeを削ればよいです。