vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Tipp 2188: Titelleiste blinken lassen 
Autor: Luschi
 Tipp anzeigenDatum: 03.08.10 08:06

Hallo Dieter,

habe diesen Tipp mit VB 2008 ausprobiert und mußte folgende Änderungen vornehmen, damit
er funktioniert:

Private Declare Auto Function FlashWindow Lib "user32" ( _
ByVal hwnd As IntPtr, _
ByVal bInvert As Integer) As Integer

zu

Private Declare Auto Function FlashWindow Lib "user32" ( _
ByVal hwnd As Integer, _
ByVal bInvert As Integer) As Integer

Hier http://www.vbarchiv.net/api/details.php?id=flashwindow ist die API-Funktion so definiert.
Sollte man statt Integer doch lieber Long benutzen,
da ja der Long-Typ in Vb6 dem Integer-Typ von VB.Net größenmäßig entspricht?

Durch die Einstellung Option Strict On erfolgten noch diese Änderungen:

Public Sub Flash(ByVal hWnd As Integer, ByVal Count As Integer)
For i As Integer = 1 To Count * 2
FlashWindow(hWnd, 1) 'statt True

' kurz warten
Dim Start As Double = Microsoft.VisualBasic.Timer 'statt Single
Do Until (Microsoft.VisualBasic.Timer) > Start + 0.5
Application.DoEvents()
Loop
Next i

FlashWindow(hWnd, 0) 'statt False
End Sub

Kanst Du diese Änderungen so nachvollziehen?

Gruß von Luschi
aus klein-Paris
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 2188: Titelleiste blinken lassen3.143Luschi03.08.10 08:06

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 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