|
发表于 2005-2-6 14:31:00
|
显示全部楼层
VB代码
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Dim hw
Dim acadobj As Object
Set acadobj = GetObject(, "AutoCAD.Application.16")
If err Then Exit Function
Set acaddoc = acadobj.ActiveDocument
hw = GetParent(GetParent(acaddoc.hwnd))
SetWindowText hw, “你好!!”
|
|