Можно ли засовывать музыку в программу? - VB
Формулировка задачи:
Можно ли засовывать музыку в праграмму если да то как и дайте код.
Код должен делать действия:
При нажатии на кнопку начинается музыка (и там уже моя музыка которую выберу ,главное скажите как?)
Решение задачи: «Можно ли засовывать музыку в программу?»
textual
Листинг программы
Option Explicit Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Dim WithEvents cb As CommandButton, l&, t&, w&, h& Const r = 90 Private Const SND_ASYNC = &H1 ' play asynchronously Private Const SND_FILENAME = &H20000 ' name is a file name Private Sub cb_Click() PlaySound "Windows Vista Notify.wav", 0&, SND_ASYNC Or SND_FILENAME End Sub Private Sub Form_Load() l = r: t = r: w = r * 20: h = r * 4 Set cb = Controls.Add("vb.CommandButton", "cb") With cb .Move l, t, w, h .Caption = "Прослушать звук" .Visible = 1 End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д