張小奇 wrote:
墾請JOE兄加一個開...(恕刪)
開機後自動執行只要把主程式做捷徑再複製到程式集的啟動裡就ok了
個人積分：0分
文章編號：1823241
個人積分：6分
文章編號：1825503
個人積分：2分
文章編號：1825540
個人積分：11分
文章編號：1828282
個人積分：0分
文章編號：1831865
個人積分：80分
文章編號：1832544
個人積分：80分
文章編號：1832569
龍千樹 wrote:
JOE兄,多謝閣下的回覆,
其實第3頁的sample,我在dc-dsp的網站已下載了,
但是他沒有vob檔及mpg檔等轉聲道的資料,
小弟在網上找了很久也找不到答案,
在此再大膽地要求joe兄的幫忙,
給我一點資料,謝謝
加上紅色的程式碼
If Not (udtEnumFilters Is Nothing) Then
Do While udtEnumFilters.Next(1, objBaseFilter) = CLng(1)
If IsEqualGUID(objBaseFilter.ClassID, UUIDFromString(CLSID_DCDSPFilter)) Then
Set m_clsDCDSPFilterControl.Object = objBaseFilter
Set m_clsDCDSPFilterVisual.Object = m_clsDCDSPFilterControl.Object
m_clsDCDSPFilterControl.DisableSaving = True
m_clsDCDSPFilterControl.RemoveAllFilters
Call m_clsDCDSPFilterControl.AddFilter(CLng(-1), ftPitchScale)
Call m_clsDCDSPFilterControl.AddFilter(CLng(-1), ftChannelOrder)
Set m_clsDCPitchScale.Object = m_clsDCDSPFilterControl.FilterInterface(0)
Set m_clsDCChannelOrder.Object = m_clsDCDSPFilterControl.FilterInterface(1)
m_clsDCChannelOrder.Enabled = True
Exit Do
End If
Loop
End If
再用我下面的FUNCTION:
Public Sub ChangeChannel(x As Integer)
If Not (m_clsDCChannelOrder.Object Is Nothing) Then
If x = 0 Then '雙聲道
m_clsDCChannelOrder.Order(0) = 0
m_clsDCChannelOrder.Order(1) = 1
ElseIf x = 1 Then '左聲道
m_clsDCChannelOrder.Order(0) = 0
m_clsDCChannelOrder.Order(1) = 0
ElseIf x = 2 Then '右聲道
m_clsDCChannelOrder.Order(0) = 1
m_clsDCChannelOrder.Order(1) = 1
End If
End If
End Sub
就可以變換聲道
個人積分：11分
文章編號：1833036
個人積分：80分
文章編號：1833269
個人積分：11分
文章編號：1833334
