如何在VB中使用API画出一个窗口(VB技术区的人太水)在线等待

[jyg8888]

我想在按一个按钮后利用API显示另外一个窗口
========================模块代码
Option Explicit
Public Declare Function CreateWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Public Declare Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class As WNDCLASS) As Long
Public Type WNDCLASS
style As Long
lpfnwndproc As Long
cbClsextra As Long
cbWndExtra2 As Long
hInstance As Long
hIcon As Long
hCursor As Long
hbrBackground As Long
lpszMenuName As String
lpszClassName As String
End Type
Public Const WS_OVERLAPPED = &H0&
Public Const WS_CAPTION = &HC00000
Public Const WS_SYSMENU = &H80000
Public Const WS_THICKFRAME = &H40000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Public Const CW_USEDEFAULT = &H80000000
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Const SW_SHOWDEFAULT = 10
Public Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long
Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long
Public Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
========================窗体1代码=====================================
Option Explicit
Dim wndobj As WNDCLASS
Private Sub Command1_Click()
Dim hwnd As Long
wndobj.hInstance = 111
wndobj.lpszClassName = "NO_1"
wndobj.lpszMenuName = 0
wndobj.cbClsextra = 0
wndobj.cbWndExtra2 = 0
wndobj.lpfnwndproc = 0
wndobj.style = &H2 + &H1
wndobj.hIcon = LoadIcon(0, 32512&)
wndobj.hCursor = LoadCursor(0, 32515&)
wndobj.hbrBackground = GetStockObject(0)
RegisterClass wndobj

'hwnd = CreateWindow("NO_1", "First Window", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 200, 200, 0, 0, 1111, 0)'如果使用CreateWindow报找不到DLL入口
我已经声明过这个API了呀
hwnd = CreateWindowEx(0, "NO_1", "First Window", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 200, 200, 0, 0, 111, 0)
'换 CreateWindowEx却执行老是崩溃,到底应该怎么实现啊
ShowWindow hwnd, SW_SHOWDEFAULT
UpdateWindow (hwnd)
End Sub

[jyg8888]

我想证明API调用是没有技术方式限制的
朋友 不懂就别出声 说什么没需求什么的

[dawnwinds]

传的参数hInstance固定为111，是不是这个有问题，VB调用api函数如果参数错误就会崩溃。

[cpio]

怎么能说人家水呢？

用大量API来画一个窗口目的何在？

[jyg8888]

真的吗
那我能加一个吗

[wshcdr]

呵呵，你自己试一下吧

[wshcdr]

LZ在模拟SDK的创建窗口的方式
可是
wndobj.lpfnwndproc = 0
如果没有窗口过程,肯定是不行的