Можно ли засовывать музыку в программу? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.333 из 5
Похожие ответы