Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Titelleiste

Forumthread: 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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

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