|
| |
Suche Visual-Basic Code| Re: Code um MSGBOXen abzufangen | |  | | Autor: Knight | | Datum: 04.06.06 21:16 |
| Ok so.... Ich hab einmal einen VB Code gefunden, um das Fenster zu schließen
[Code]Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hwnd _
As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) _
As Long
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 SendMessage Lib "user32.dll" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Const WM_CLOSE = &H10
Private Sub Command1_Click()
Call EnumWindows
End Sub
Private Sub EnumWindows()
Dim hwnd&, Result&, Title$
List1.Clear
hwnd = GetWindow(Me.hwnd, GW_HWNDFIRST)
Do
Result = GetWindowTextLength(hwnd) + 1
Title = Space$(Result)
Result = GetWindowText(hwnd, Title, Result)
Title = Left$(Title, Len(Title) - 1)
If InStr(1, Title, Text1.Text) Then
List1.AddItem Title
List1.ItemData(List1.NewIndex) = hwnd
End If
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop Until hwnd = 0
If List1.ListCount > 0 Then
Command2.Enabled = True
Else
Command2.Enabled = False
End If
End Sub
Private Sub Command2_Click()
Dim x&, y&, hwnd&
x = List1.ListCount
If x > 0 Then
For y = 0 To x - 1
hwnd = List1.ItemData(y)
If hwnd = Me.hwnd Then MsgBox ("Nagut, wie gewünscht!")
SendMessage hwnd, WM_CLOSE, ByVal 0&, ByVal 0&
Next y
End If
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End SubDas funktioniert auch gut, nur ich schaff' es nicht, das das fenster mit dem titel nachrichtendienst immer dann geschlossen wird, wenn es aufgerufen wird! ich hoff du kannst mir da noch einmal unter die arme greifen - thx im vorraus 
p.s. sry wegen trippelposts, aber man kann keine beiträge editieren  | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
