VBNet - Форум - Что не так?

Вопрос: Что не так? Добавлено: 01.10.09 17:18

Автор вопроса: Not андерстен

' Декларируем функцию
    Private Declare Function mciSendString Lib "winmm.dll" _
    Alias "mciSendStringA" (ByVal lpstrCommand As String, _
    ByVal lpstrReturnString As String, ByVal uRetrunLength _
    As Long, ByVal hwndCallback As Long) As Long

‘ Загрузка формы
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strFile As String

        ' Сначала загружаем файл
        strFile = "C:\Koni.mp3" ' - это путь к музыкальному файлу...
        mciSendString("open " & strFile & " alias music wait", "", 0, 0)

        ' Затем воспроизводим
        mciSendString("play music", "", 0, 0)

    End Sub
Что не так? звука нет
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| Цитата \| #1	Добавлено: 01.10.09 18:33
	Imports System.Runtime.InteropServices Public Class Form1 <DllImport("winmm.dll")> _ Private Shared Function mciSendString(ByVal strCommand As String, ByVal strReturn As System.Text.StringBuilder, ByVal iReturnLength As Integer, ByVal hwndCallback As IntPtr) As Long End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim path As String = "D:\True Music\круто\Tarja\2009 - My Winter Storm- Extended Edition\CD1 (Feature Disc)\04-Seeking for the Reign.mp3" Dim sCommand As String = "open """ + path + """ type mpegvideo alias MediaFile" mciSendString(sCommand, Nothing, 0, IntPtr.Zero) sCommand = "play MediaFile" mciSendString(sCommand, Nothing, 0, IntPtr.Zero) End Sub End Class Ответить

Номер ответа: 2 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| Цитата \| #2	Добавлено: 01.10.09 20:27
	Dim sCommand As String = "open """ + path + """ type mpegvideo alias MediaFile" А разве "+" ане "&" ??? и нафига столько кавычек? Ответить

Номер ответа: 3 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| Цитата \| #3	Добавлено: 01.10.09 21:07
	ну уж поверь мне Ответить

Страница: 1 |