Hallo,
hoffe ich bin im richtigen unterforum.
ich würde gerne den Fenstertitel von einem Fenster ändern.
also das ich es makiere und dann kann ich einen beliebigen neuen namen eingeben.
also das ist das fenster:
http://img118.imageshack.us/img118/5820/tutnw2.jpg
gibts da eine möglichkeit?
Gruß
bacardischmal
welche Programmiersprache?
Hallo,
verrate uns doch erst mal, von welcher Programmiersprache Du sprichst, dann kann sich der passende Experte damit befassen. Richtig wärst Du hier mit VB5, VB6, VBA und VBS.
Gruß, Rainer
[MOD]
verrate uns doch erst mal, von welcher Programmiersprache Du
sprichst, dann kann sich der passende Experte damit befassen.
Richtig wärst Du hier mit VB5, VB6, VBA und VBS.
hm das weis ich selber nicht so genau xD
also hab mir gedacht das man mit VB am einfachsten die fenstertitel ändern kann, also auslesen und neu setzen.
Hallo,
hm das weis ich selber nicht so genau xD
also hab mir gedacht das man mit VB am einfachsten die
fenstertitel ändern kann, also auslesen und neu setzen.
ja wenn Du VB6 hast, ist es damit natürlich am einfachsten.
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form\_Activate()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim MyStr As String
'Create a buffer
MyStr = String(100, Chr$(0))
'Get the windowtext
GetWindowText Me.hwnd, MyStr, 100
'strip the rest of buffer
MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
'Triple the window's text
MyStr = MyStr + MyStr + MyStr
'Set the new window text
SetWindowText Me.hwnd, MyStr
End Sub
sagt die API Guide zu dem Thema. 
Reicht Dir das so?
Oder ist das ein fremdes Fenster? Dann mußt Du erst das Handle suchen.
Deklaration:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Aufruf:
WinWnd = FindWindow(vbNullString, Fenstertitel)
OK?
Gruß, Rainer