[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^2: CreateDC実行でプログラムがダウンする 投稿日 ： 2008/08/23(Sat) 01:30 投稿者 ： 蒼月
| > > ですが、開発環境では問題無く動作しているので、原因が良くわかりません。 > 関数の引数の型や使用したハンドルの削除忘れ等どこかプログラムが間違っていませんか？ > その辺が解らないと何とも答えようがありません。 > 関数の戻り値を含め再確認して下さい。 その辺は何度も確認しましたので、問題ないと思います。 戻り値についてですが、CreateDCで戻り値が戻る前にプログラムダウンするため、確認することができません。 MsgBox "CreateDC開始" Phdc = CreateDC(Printer.DriverName, Printer.DeviceName, 0&, 0&)←ここでダウンする MsgBox "CreateDC終了" & Phdc ←ここまで来ない > 関数の宣言時 > 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 の環境では） 書き方が悪かったですね。 開発、実行ファイルの実行ともに、OSはWindows XP SP3 そして、開発環境は、VB6.0SP6を使っています。 |
をクリックするとツリー全体を一括表示します） - CreateDC実行でプログラムがダウンする - 蒼月 08/08/22-01:47No.12939