تغیر عنوان پنجره ها

[saeid12]

سلام
من میخواستم بدونم چطوری میشه عنوان پنجره های مختلف ویندوز رو عوض کرد؟
منتظر جواباتون هستم....

[r0ot$harp]

سلام
من میخواستم بدونم چطوری میشه عنوان پنجره های مختلف ویندوز رو عوض کرد؟
منتظر جواباتون هستم....


دوست عزیز اینم خدمت شما :



Private Declare Function SetWindowText _
Lib "user32" _
Alias "SetWindowTextA" (ByVal Hwnd As Long, _
ByVal lpString As String) As Long

Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Sub Form_Load()

Dim Hwnd As Long

Hwnd = FindWindow(vbNullString, "My Computer")

If Hwnd <> 0 Then
SetWindowText Hwnd, "New Caption For [My Computer]"
End If

End Sub




باتشکر احسان