как заставить мигать?

[Skarobey]

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

[Skarobey]

забыл
и как воспроизвести звукавой файл? формат неважно, главное чтоб полегче!?

вобщем хочу чтоб прога обратила на себя внимание, буть-то я за компом или рядом!

[|kerish|]

звуковой файл воспроизводится API - функцией SndPlaySound.

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Например: SndPlaySound "C:\test.wav", 3

[Ruslan Demidow]

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

Самый примитив:

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

Private Declare Function FlashWindow Lib "user32.dll" ( _
     ByVal hwnd As Long, _
     ByVal bInvert As Long) As Long


Option Explicit

Private Sub Command1_Click()
    Timer1.Interval = 300
    Timer1.Enabled = True
       
       
End Sub

Private Sub Timer1_Timer()
    Static i As Integer
    FlashWindow Me.hwnd, 1
    i = i + 1
    If i > 4 Then
        i = 0
        Timer1.Enabled = False
    End If
End Sub


[Ennor]

...
и как выдавать предупреждение по верх всех окон? мсгбокс не повер вылазит(((

А с чего ты взял, что юзеру нужен твой MsgBox(), если он на другое приложение переключился и занят сейчас совершенно другими вещами? Винда - она, знаешь ли, многозадачная. Вот когда он захочет вернуться к твоей проге, вот тогда он этот мессадж и увидит. До этого момента ему на него - накласть.

Так что не надо вызывать для своего окна SetForegroundWindow(), если у тебя всего лишь сообщение. Юзер и так заметит, более того, в случае появления диалогового окна винда сама прекрасно помигает таскбаром несколько секунд. Не представляешь, как такие попрыгайцы раздражают...

[Skarobey]

звуковой файл воспроизводится API - функцией SndPlaySound.

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Например: SndPlaySound "C:\test.wav", 3

если в томже каталоге, то без пути до рабочего каталога "\test.wav" ?

[Dzhon]

Если в том-же каталоге то:

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

SndPlaySound app.path & "test.wav", 3


[Ennor]

Если в том-же каталоге то:

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

SndPlaySound app.path & "test.wav", 3


Забыл проверить App.Path на наличие концевого бэкслэша. Если прога лежит не в корне диска, то получишь примерно такое:
C:\Program Filestest.wav

[Dzhon]

Согласен, так лучше?

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

SndPlaySound app.path & "\test.wav", 3


[/b]

[Amed]

Не совсем. Если программа лежит в корне диска, то app.path - уже "C:\". Надо так примерно:

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

dim path as string

If Right$(app.path,1)<>"\" Then
path=App.Path & "\test.wav"
Else
path=App.Path & "test.wav"
Endif


[A.A.Z.]

А еще лучше - функцию App.Path заменить чем-то своим:

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

Function AppPath$()
If Right(App.Path, 1) = "\" Then AppPath = App.Path Else AppPath = App.Path & "\"
End Function

[Amed]

Да, верно. При частом использовании будет удобнее...

Всего одна поправка:

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

Function AppPath$() As String
If Right(App.Path, 1) = "\" Then AppPath = App.Path Else AppPath = App.Path & "\"
End Function

[A.A.Z.]

Ты про As String? Дык значок $ стоит - уже и не надо Она так не будет работать

[Amed]

Хм. Вы правы, коллега.

[Dzhon]

Сенкс!

[Skarobey]

[|kerish|]

Replace(App.path & "\" , "\\" , "\") & "MyFile.wav"