VB利用API创建窗体的模块代码
这篇博客展示了如何在VB中利用API函数创建自定义窗体。通过声明并使用API函数，如`RegisterClass`、`CreateWindowEx`等，创建了一个包含按钮和编辑框的窗口，并实现了点击按钮时弹出消息框的功能。
Public
Declare
Function RegisterClass()
Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class AsClass As WNDCLASS) As Long
Public Declare Function UnregisterClass()Function UnregisterClass Lib "user32" Alias "UnregisterClassA" (ByVal lpClassName As String, ByVal hInstance As Long) As LongPublic Declare Function DefWindowProc()Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Declare Function GetMessage()Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As LongPublic Declare Function TranslateMessage()Function TranslateMessage Lib "user32" (lpMsg As Msg) As LongPublic Declare Function DispatchMessage()Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As LongPublic Declare Function ShowWindow()Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPublic Declare Function LoadCursor()Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Any) As LongPublic Declare Function LoadIcon()Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As LongPublic Declare Function CreateWindowEx()Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName
最低0.47元/天 解锁文章
扫一扫
315
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
