タイトル : Re^3: CreateDC実行でプログラムがダウンする 投稿日 : 2008/08/23(Sat) 06:37 投稿者 : 花ちゃん
Form1 に下記コードを貼り付けて実行しても同様に落ちますか? Option Explicit 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 Private Declare Function DeleteDC Lib "gdi32" ( _ ByVal hdc As Long) As Long Private Sub Command1_Click() Dim Phdc As Long Dim Ret As Long Phdc = CreateDC(Printer.DriverName, Printer.DeviceName, 0&, 0&) MsgBox "Phdc: " & Phdc & " Printer.DeviceName : " & Printer.DeviceName Ret = DeleteDC(Phdc) End Sub |