我寫了以下的程式碼:
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Const GENERIC_READ = &H80000000
Const CREATE_NEW = 1
Const FILE_ATTRIBUTE_NORMAL = &H80
Private Sub Form_Load()
Dim a As Long
a = CreateFile("d:\123.bmp", GENERIC_READ, 0&, 0&, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, &0)
Text1.Text = a
End Sub
結果a=-1,如無意外,這應該是取不到handle,但究竟以上的程式有甚麼錯誤的呢??
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()