Почему CreateWindowEx возвращать 0

Question

VB.NET 2008 Экспресс

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Integer, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hwndParent As Integer, ByVal hMenu As Integer, ByVal hInstance As Integer, ByRef lpParam As Object) As Integer 

Private Const WS_EX_APPWINDOW = &H40000 
Private Const WS_EX_WINDOWEDGE = &H100& 
Private Const WS_SYSMENU = &H80000 
Private Const WS_CAPTION = &HC00000 
Private Const WS_MINIMIZEBOX = &H20000 
Private Const WS_THICKFRAME = &H40000 
Private Const WS_MAXIMIZEBOX = &H10000 
Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX) 

Dim AppHandle As Int32 = System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32() 

Dim WindowHandle as integer = CreateWindowEx(WS_EX_APPWINDOW Or WS_EX_WINDOWEDGE, "MyWindow", "MyTitle", WS_OVERLAPPEDWINDOW, 0, 0, 640, 480, 0, 0, AppHandle, Nothing) 

CreateWindowEx возвращает 0?

Answer 1

Возможные причины того, что вы забыли зарегистрировать класс окна «MyWindow» с RegisterClass/Ex(), не правильно установили процедуру окна или неправильно обрабатывали сообщение WM_CREATE. Кроме того, ваше объявление P/Invoke неверно, оно не будет работать в 64-разрядных операционных системах.

Не записывайте этот код самостоятельно, Windows Forms - очень хорошая оболочка вокруг CreateWindowEx().

Answer 2

Вам нужно проверить NULL после вызова CreateWindowEx, и если это так, вы можете немедленно позвонить Marshal.GetLastWin32Error по этой причине.