社区 › VB › [求助]

wql 发表于 2005-10-2 06:04:00

[求助]

请教如何将2005的标题栏换成自己的标题栏？谢谢！

王咣生 发表于 2005-10-2 11:37:00

Public 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
Public Sub SetTitle(ByVal hwnd As Long, Optional ByVal title As String)
    If title = "" Then
      title = "乐筑天下 "
    End If
    SetWindowText hwnd, title
End Sub
Public Sub Test_SetTitle()
    Dim hwnd As Long    '&
    hwnd = GetParent(GetParent(ThisDrawing.hwnd))
    SetTitle hwnd, "Hello World!"
End Sub

wql 发表于 2005-10-2 15:36:00

能否再具体一些，谢谢！

alin 发表于 2005-10-3 12:43:00

这样还不具体？

mikewolf2k 发表于 2005-10-3 13:44:00

很具体了。另外请问一下，能不能通过命令行修改标题栏？

alin 发表于 2005-10-5 14:42:00

(defun SetTitleBar (Str)
(setvar "USERS5" Str)
(vl-vbarun "h:/alin/SetTitleBar.dvb!Test_SetTitle")
(princ)
)
Public 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
Public Sub SetTitle(ByVal hwnd As Long, Optional ByVal title As String)
    If title = "" Then
      title = "???? http://www.mjtd.com"
    End If
    SetWindowText hwnd, title
End Sub
Public Sub Test_SetTitle()
    Dim hwnd As Long    '&
    hwnd = GetParent(GetParent(ThisDrawing.hwnd))
    SetTitle hwnd, ThisDrawing.GetVariable("USERS5")
End Sub

查看完整版本: [求助]