[ÇóÖú]

wql

Çë½ÌÈçºÎ½«2005µÄ±êÌâÀ¸»»³É×Ô¼ºµÄ±êÌâÀ¸£¿Ð»Ð»£¡

ÍõßÛÉú

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, "Hello World!"
End Sub

wql

ÄÜ·ñÔÙ¾ßÌåһЩ£¬Ð»Ð»£¡

alin

ÕâÑù»¹²»¾ßÌ壿

mikewolf2k

ºÜ¾ßÌåÁË¡£ÁíÍâÇëÎÊһϣ¬Äܲ»ÄÜͨ¹ýÃüÁîÐÐÐ޸ıêÌâÀ¸£¿

alin

mikewolf2k·¢±íÓÚ2005-10-3 13:44:00ºÜ¾ßÌåÁË¡£ÁíÍâÇëÎʻϣ¬Äܲ»ÄÜͨ¹ýÃüÁîÐÐÐ޸ıêÌâÀ¸£?lt;/DIV>

2. (defun SetTitleBar (Str)
3.   (setvar "USERS5" Str)
4.   (vl-vbarun "h:/alin/SetTitleBar.dvb!Test_SetTitle")
5.   (princ)
6. )

(defun SetTitleBar (Str)   (setvar "USERS5" Str)   (vl-vbarun "h:/alin/SetTitleBar.dvb!Test_SetTitle")   (princ) )

2. Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
3. Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

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

2. Public Sub SetTitle(ByVal hwnd As Long, Optional ByVal title As String)
3.     If title = "" Then
4.         title = "???? http://www.mjtd.com"
5.     End If
6.     SetWindowText hwnd, title
7. End Sub

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

2. Public Sub Test_SetTitle()
3.     Dim hwnd As Long    '&
4.     hwnd = GetParent(GetParent(ThisDrawing.hwnd))
5.     SetTitle hwnd, ThisDrawing.GetVariable("USERS5")
6. End Sub

Public Sub Test_SetTitle()     Dim hwnd As Long    '&     hwnd = GetParent(GetParent(ThisDrawing.hwnd))     SetTitle hwnd, ThisDrawing.GetVariable("USERS5") End Sub