纯API 构成的窗体及DTP.

stanleypan · 发表于 2005-8-21 22:56

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

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

紫蝶儿菲菲 · 发表于 2005-8-22 12:58

偶也学习一下。

cpali3023 · 发表于 2005-8-25 17:30

学习！！！

jobubu · 发表于 2005-8-28 01:27

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

winxp+excel2000

jobubu · 发表于 2005-8-28 01:32

调试是这句错误:

wc.hInstance = Application.hInstance

jobubu · 发表于 2005-8-28 13:59

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

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

hxhgxy · 发表于 2005-9-4 19:39

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

lingweixuan · 发表于 2006-11-30 10:53

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

stanleypan · 发表于 2006-11-30 19:24

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 · 发表于 2006-12-1 22:45

[em27]

		自动登录	找回密码
密码			免费注册