⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 16972.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>
  <head>
    <title>为何老是录出8位元单音?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>为何老是录出8位元单音?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:ijung@ms1.hinet.net">榕树</a> on August 10, 1999 at 09:22:06:<p>
      cmdStr = "Open New type WaveAudio alias wave"<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      If optBit(0).Value Then<br>        cmdStr = "set wave bitspersample 8"<br>      Else<br>        cmdStr = "set wave bitspersample 16"<br>      End If<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      If optRat(0).Value Then<br>        cmdStr = "set wave samplespersec 11025"<br>      ElseIf optRat(1).Value Then<br>        cmdStr = "set wave samplespersec 22050"<br>      Else<br>        cmdStr = "set wave samplespersec 44100"<br>      End If<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      If RetValue <> 0 Then MsgBox "wrong"<br>      If optCha(0).Value Then<br>        cmdStr = "set wave channels 1"<br>      Else<br>        cmdStr = "set wave channels 2"<br>      End If<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      cmdStr = "record wave"<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>为何以上不管怎么设定,老是录出8位元单音?
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16972-->
<!--top: 17027--><li><a href="17027.html">Re: 为何老是录出8位元单音?</a> <b>Sun Jack</b> <i>23:25:34 8/10/99</i>
(<!--responses: 17027-->0)
<ul><!--insert: 17027-->
</ul><!--end: 17027-->
</ul><!--end: 16972-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

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