8144.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 27 行

HTML
27 行
字号 
<html>
  <head>
    <title>OK了</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>OK了</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on December 08, 1998 at 23:46:26:<p>
In Reply to: <a href="8134.html">到MSDN上找VB的Knowledge Base</a> posted by 帅帅阿柳 on December 08, 1998 at 17:39:37:<p>
也许你想不到吧 <br>这个API我花了近六小时<br>才找出6553700这数<br>挺复杂的 因为间距不对 <br>会调到左右声道 而不是声音大小<br>这数字我也好不容易才凑到 <br>不过 心理真的好高兴<p>做法是在Form上放一个 Hscroll1 <br>然后贴上以下程式<p>Private Declare Function waveOutGetVolume _<br>Lib "winmm.dll" (ByVal uDeviceID As Long, _<br>lpdwVolume As Long) As Long<br>Private Declare Function waveOutSetVolume _<br>Lib "winmm.dll" (ByVal uDeviceID As Long, _<br>ByVal dwVolume As Long) As Long<br>Const WAVE_MAPPER = -1&<br>Dim h As Long, j As Integer<br>Dim k As Long, l As Integer<br>Option Explicit<p>Private Sub Form_Load()<br>HScroll1.Max = 652<br>HScroll1.Min = 0<br>HScroll1.LargeChange = 100<br>HScroll1.SmallChange = 10<br>Call waveOutGetVolume(WAVE_MAPPER, k)<br>h = k \ 6553700<br>If h <= 0 Then<br>HScroll1.Value = HScroll1.Max + h<br>Else<br>HScroll1.Value = h<br>End If<br>End Sub<p>Private Sub HScroll1_Change()<br>h = HScroll1.Value<br>If h <= 326 Then<br>k = 6553700 * h<br>Else<br>k = (h - 652) * 6553700 - 1<br>End If<br>Call waveOutSetVolume(WAVE_MAPPER, k)<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8144-->
<!--top: 8181--><li><a href="8181.html">Re: 谢谢你! 另外如何才能控制到(主控音量)呢?</a> <b>Headache Man</b> <i>23:41:01 12/09/98</i>
(<!--responses: 8181-->0)
<ul><!--insert: 8181-->
</ul><!--end: 8181-->
</ul><!--end: 8144-->
<br><hr size=7 width=75%><p>

</body></html>

8144.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 8144.html 源码文件，采用 HTML 编程语言编写，共 27 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?