+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: تغییر عنوان پنجره ها (/showthread.php?tid=857)
تغییر عنوان پنجره ها - Ghoghnus - 09-04-2011
سلام دوستان با این کد میتونید عنوان پنجره های فعال را عوض کنید!
کد:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Timer1_Timer()
c = GetForegroundWindow
SetWindowText c, "خلیج فارس"
End Sub