помагите новичку в Vbasic

Тема в разделе "Visual Basic", создана пользователем Randol111, 5 авг 2007.

Статус темы:
Закрыта.
  1. Randol111

    Randol111 Гость

    начинаю изучать VBasic из книги С. Н. Лукина
    задача было такой: нужно свтавить музыка на калькулятор и чтобы музыка играла при вкльючений калькулятора.

    и код
    Код (Text):
    Private Sub Form_Load()
    media.DeviceType = "Sequencer"
    media.FileName = "c:\Windows\Media\Canyon.mid"
    media.Command = "Open"
    media.Command = "Play"
    End Sub

    Private Sub Form_Terminate()
    media.Command = "Close"
    End Sub
    думаю все зделал как описано
    но поемуто музыка не играет.
    вчем причина?
     
  2. Гость

    Попробуй воспроизвести звук при помощи функции api sndPlaySound
    -------------------------------------------------------------------------------------
    Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"(ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long

    Public Const SND_ALIAS = &H10000 'реальное имя файла находится в win.ini
    'или в реестре
    Public Const SND_ASYNC = &H1 'Асинхронное воспроизведение
    Public Const SND_SYNC = &H0 'Синхронное воспроизведение
    Public Const SND_NOWAIT = &H2000 ' Не ждать, если драйвер занят
    Public Const SND_LOOP = &H8 'Циклическое воспроизведение до следующего вызова

    Sub SoundCheck()
    Dim lRetVal As Long
    lRetVal = sndPlaySound("C:\WINDOWS\MEDIA\CHIMES.wav", SND_SYNC)
    lRetVal = sndPlaySound("SystemStart", SND_ALIAS + SND_ASYNC + SND_ NOWAIT)
    'SystemStart - представляет собой псевдоним систмного звука. Имя реального файла находится
    'в реестре(где, кстати, описаны и остальные системные звуки.)
    End Sub
     
  3. Shtirlits

    Shtirlits Гость

    и даже с собственным кодом ты можешь проиграть любой media файл, только не забудь добавить на форму компонент MMControl (Microsoft Multimedia Control), который у тебя в коде называется media :)
     
Загрузка...
Похожие Темы - помагите новичку Vbasic
  1. vladimir412
    Ответов:
    0
    Просмотров:
    816
  2. rn3rjd
    Ответов:
    9
    Просмотров:
    1.231
  3. maxiik
    Ответов:
    3
    Просмотров:
    1.575
  4. zaza41rus
    Ответов:
    0
    Просмотров:
    1.054
  5. hellsq
    Ответов:
    6
    Просмотров:
    1.473
Статус темы:
Закрыта.

Поделиться этой страницей