tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。