затавить замигать заголовок окна

[Sirik]

собственно сабж, какие есть идеи чтобы "заставить" заголовок окна помигать чуть-чуть? )

примерно так же как как мигает при переходе между задачами в Панели задач

[dr.MIG]

Код: Выделить всё


Private Declare Function FlashWindowEx Lib "user32" (pfwi As FLASHWINFO) As Boolean
Private Type FLASHWINFO
  cbSize As Long
  hwnd As Long
  dwFlags As Long
  uCount As Long
  dwTimeout As Long
End Type
Private Const FLASHW_ALL As Integer = &H3
Private Const FLASHW_TIMER As Integer = &H4

Private Sub Command1_Click()
     ' Окно мигает 5 раз
     Dim fwi As FLASHWINFO
     ' Определяем размер структуры
     fwi.cbSize = Len(fwi)
     ' Определяем статус мигания
     fwi.dwFlags = FLASHW_ALL Or FLASHW_TIMER
     ' Определяем частоту мигания
     fwi.dwTimeout = 0
     ' Дескриптор окна для мигания
     fwi.hwnd = Me.hwnd
     ' Число миганий
     fwi.uCount = 5
     FlashWindowEx fwi
End Sub


[Sirik]

спасибо

[kibernetics]

о! а как сделать на панеле во вкладке приложения, чтобы отображалось изменение процента?
типа, как в Неро, когда записывается диск, видно, сколько процентов уже записалось

[dr.MIG]

Так ведь на той 'вкладке' отображается Caption формы... Менять это свойство.

[Хакер]

Нет, dr.MIG, оно не будет меняться в самом таскбаре при изменении Caption-а. Меняться будет только после долгого клика по заголовку, к примеру.

[kibernetics]

Да. Верно Хакер говорит. Капшион меняешь, а на панеле он не меняется...