EXCELの表からバーコードの印刷をしたいが、
PCのadministratorの権限が無いため、
アプリケーションのインストール等ができなかった。
”EXCELバーコード革命”が使えそうなので、使ってみたが、
フォントの登録ができず、これも断念。
考えまくった結果、バーコードだけお借りして、
フォント登録のAPIを毎回実行することで解決
Declare Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA"
(ByVal lpszFileName As String) As Long
sub test()
x = AddFontResource("BarCode39.ttf")
If x = 0 Then
MsgBox "フォントがインストールできませんでしたので終了します。"
Exit Sub
End If
(省略)
end sub
今までの作品
平安京エクセリアン：平安京エ○リアン
ＣＥＬＬ-ＯＮ：ヘッド○ン
ＮＥＷ ＲＡＬＬＹ ＥＸＣＥＬ：ＮＥＷ ＲＡＬＬＹ ○
ＰＥＸＣＥＬＭＡＮ：パ○クマン
ＲＥＴＵＲＮ ＯＦ ＥＸＣＥＬＩＡＮ：スペ○スパニック
ＣＥＬＬＤＵＧ：ＤＩ○ＤＵＧ
ＥＸＣＥＬ ＣＯＭＭＡＮＤ：ミ○イルコマンド
これらは、すべてhttp://www.geocities.co.jp/SiliconValley-Sunnyvale/9554/からダウンロードできます。
だだし、表計算ソフトＥＸＣＥＬが無いと遊べません。
平安京エクセリアン：平安京エ○リアン
ＣＥＬＬ-ＯＮ：ヘッド○ン
ＮＥＷ ＲＡＬＬＹ ＥＸＣＥＬ：ＮＥＷ ＲＡＬＬＹ ○
ＰＥＸＣＥＬＭＡＮ：パ○クマン
ＲＥＴＵＲＮ ＯＦ ＥＸＣＥＬＩＡＮ：スペ○スパニック
ＣＥＬＬＤＵＧ：ＤＩ○ＤＵＧ
ＥＸＣＥＬ ＣＯＭＭＡＮＤ：ミ○イルコマンド
これらは、すべてhttp://www.geocities.co.jp/SiliconValley-Sunnyvale/9554/からダウンロードできます。
だだし、表計算ソフトＥＸＣＥＬが無いと遊べません。
背景のスクロール、敵（一種類）の移動、自機の移動と攻撃まで
完成しています。一応、ＢＧＭも流れます。
これから敵の攻撃をプログラミングする予定。
作成中の作品には、次のAPIを使っています。
GetAsyncKeyState キー入力
GetTickCount ゲームのスピード調整
mciSendString 効果音（wavやmidiの多重再生）
途中までの作品を見たい方は、お送りしますのでメール下さい。
ただし、ＥＸＣＥＬを持っていないと動きませんが。
完成しています。一応、ＢＧＭも流れます。
これから敵の攻撃をプログラミングする予定。
作成中の作品には、次のAPIを使っています。
GetAsyncKeyState キー入力
GetTickCount ゲームのスピード調整
mciSendString 効果音（wavやmidiの多重再生）
途中までの作品を見たい方は、お送りしますのでメール下さい。
ただし、ＥＸＣＥＬを持っていないと動きませんが。
| ホーム |
