Question

求VB高手进行解答，高手请进！！！！！

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Integer) As Integer
Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Int32, ByVal lpThreadAttributes As Int32, ByVal bInheritHandles As Int32, ByVal dwCreationFlags As Int32, ByVal lpEnvironment As Int32, ByVal lpCurrentDriectory As Int32, ByRef lpStartupInfo As STARTUPINFO, ByRef lpProcessInformation As PROCESS_INFORMATION) As Int32
Public Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, ByVal pDevmode As Int32, ByVal dwFlags As Int32, ByVal dwDesiredAccess As Int32, ByVal lpsa As Int32) As Int32
Public Declare Function CloseDesktop Lib "user32" (ByVal hDesktop As Int32) As Int32
Public Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As Int32) As Int32
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int16, ByVal wMsg As Int16, ByVal wParam As Int16, ByVal lParam As Int16) As Int16
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As IntPtr) As IntPtr
Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Callback, ByVal lParam As IntPtr) As Boolean
Public Delegate Function Callback(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Int32, ByVal hWndNewParent As Int32) As Int32
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As Int32) As Int32
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Int32, ByVal nIndex As Int32) As Int32
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Int32, ByVal hWndInsertAfter As Int32, ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As Int32
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Int32, ByRef lpRect As RECT) As Int32
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Int32, ByVal dwMilliseconds As Int32) As Int32
Public Const WS_CAPTION = &HC00000 Public Const WS_THICKFRAME = &H40000 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_FRAMECHANGED = &H20
Public Const HWND_TOP = 0 Public Const GWL_STYLE& = (-16)
Public Const WM_CLOSE = &H10 Public Const INFINITE = -1&
就是这些代码在做什么？？？
还有那个“user32”在干什么事情？
每个句子里都有lib，lib 是干什么用的？？

Answer 1

简单讲:
user32.dll gdi32.dll kenerl.dll 等都是系统的DLL, VB加载他们, 使用其中的函数完成特定的工作, lib 就是一种标示, 告诉VB要加载什么DLL

Answer 2

这时api的声明，lib表示库，user32表示系统的dll文件user32.dll这个文件
需要使用它里面的api函数，这种声明方式是固定的

Answer 3

就是,,,乱贴了这么长的代码,,日了

Answer 4

你想知道什么...?