タイトル : Re: CreateDC実行でプログラムがダウンする 投稿日 : 2008/08/22(Fri) 06:52 投稿者 : 花ちゃん
> ですが、開発環境では問題無く動作しているので、原因が良くわかりません。 関数の引数の型や使用したハンドルの削除忘れ等どこかプログラムが間違っていませんか? その辺が解らないと何とも答えようがありません。 関数の戻り値を含め再確認して下さい。 関数の宣言時 Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" ( _ ByVal lpDriverName As String, _ ByVal lpDeviceName As String, _ ByVal lpOutput As Long, _ ByVal lpInitData As Long) As Long 関数の使用時 Phdc = CreateDC(Printer.DriverName, Printer.DeviceName, 0&, 0&) ハンドルの削除 lngResult = DeleteDC(Phdc) > 開発環境は、VB6.0SP6で、実行環境は、XPSP3です。 環境を書くなら、双方の環境を統一して詳しく書かないと違いが見ている人には 解りません。(プログラムでもこのように比較していると疑ってしまう) (開発環境は、VB で、実行環境は、OS の環境では) |