纯API 构成的窗体及DTP.

stanleypan

很多东西规根到底都是API函数构成的.其实窗体也是由API函数创建出来的.只不过用IDE环境把创建是把过程都封装起来，现在我们用API方式创建，大致让我们了解一个窗体的产生过程，让我们使用VB及VBA的的网友对系统的机制多一些了解.

PKKBkFtZ.rar (28.26 KB, 下载次数: 415)

2005-8-21 22:56 上传

点击文件名下载附件
纯API 构成的窗体及DTP.

紫蝶儿菲菲

偶也学习一下。

cpali3023

学习！！！

jobubu

我怎么显示: 错误438,对象不支持该属性或方法.

winxp+excel2000

jobubu

调试是这句错误:

wc.hInstance = Application.hInstance

jobubu

还是不行.又来一句gHwnd& = apiCreateWindowEx(0&, gClassName$, gAppName$, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 208, 150, 0&, 0&, Application.hInstance, ByVal 0&)

算了,反正我对api也是一窍不通,呵

hxhgxy

我理解这是窗体的构建原理，可否研究出来工作表，图表，绘图的构建原理？

lingweixuan

为什么我改成0&之后，又提示.CreateDTPControl    '生成DTP错误

stanleypan

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_HINSTANCE = (-6)
Public Sub GetAppHinstance()
Dim Hin As Long
   Hin = GetWindowLong(FindWindow("XLMAIN", vbNullString), GWL_HINSTANCE)
   Debug.Print Application.Hinstance
End Sub

'请用Hin 替代Application.Hinstance(低版本不支持Application.Hinstance)

cncc

[em27]