Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Titelleiste

Userform Titelleiste
11.05.2005 00:22:36
Gunnar
Hi,
ich möchte in einer Userform die Titelleiste blinken lassen bis
der Benutzer etwas in dieser Userform mit der Maus anklickt.
Wie gehts?
mfg Gunnar

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Titelleiste
11.05.2005 13:11:08
Galenzo
Bei "VBA nein" stehen deine Chancen schlecht ;-)
Hier mal als Ansatz:
---- in ein Modul ----
Private Declare Function FlashWindow Lib "user32" _
(ByVal hWnd As Long, ByVal bInvert As Long) As Long

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Public hWnd As Long
Public Sub Flash(ByVal nCount As Integer)
Dim tStart As Long
Dim I As Integer

For I = 1 To nCount
FlashWindow hWnd, True
tStart = Timer
Do Until CLng(Timer) > tStart + 1
DoEvents
Loop
Next I
FlashWindow hWnd, False
End Sub
---- in das Userform-Modul ----

Private Sub CommandButton1_Click()
Flash 5
End Sub



Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Else
hWnd = FindWindow("ThunderXFrame", Me.Caption)
End If
bCaption = False
End Sub


Viel Erfolg!
Anzeige
AW: Userform Titelleiste
11.05.2005 16:11:14
Gunnar
Hi,
danke, wusste nicht, nach welcher API ich suchen muss. Das mit dem VBA nein ist
gelogen, man bekommt aber damit die besseren Antworten.
Klappt übrigens wie gewünscht.
mfg Gunnar

Links zu Excel-Dialogen

CommandButton Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige