Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: ShadowOfSun
На первый вопрос держи ссылочку
http://www.sql.ru/forum/actualthread.aspx?bid=22&tid=248037&hl=%e3%f0%ee%ec%ea%ee%f1%f2%fc
громкость микшера
либо так

Option Compare Database
Option Explicit

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long

Private Type ulLong
    HiWord As Integer
    LoWord As Integer
End Type

Private Type uvLong
    n As Long
End Type

Private ulVol As ulLong
Private uvVol As uvLong

Public Function SetVolume(Volume As Long)
' Максимальное значение параметра Volume = &HFFFF&.
    ulVol.HiWord = (Volume And &H7FFF&) - (Volume And &H8000&)
    ulVol.LoWord = (Volume And &H7FFF&) - (Volume And &H8000&)
   
    LSet uvVol = ulVol
   
    Call waveOutSetVolume(0, uvVol.n)
End Function



на третий вопрос тоже ссылка
http://www.sql.ru/forum/actualthread.aspx?tid=693609


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.