|
发表于 2006-10-14 09:44:00
|
显示全部楼层
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
Sub SetAcadTitle()
Dim hw as long
hw = GetParent(GetParent(ThisDrawing.hwnd))
SetWindowText hw, "乐筑天下 http://www.mjtd.com"
End Sub
怎么这样写了,还是没能改标题名呢,我的hw为0,这是什么原因呢?是不是代码加的位置不对 |
|