vba影音撥放

版大可以請教一下嗎??G大

我這是vba撥放的code,為何在win10 office2016下無法執行,其他都可以執行, 是vba版本問題嗎??還是系統問題

Private Sub CommandButton2_Click()
Dim strNAME, strPATHNAME As String
strPATHNAME = Sheets(2).Cells(1, 3)
strNAME = Label2.Caption & ".mp4"
With WindowsMediaPlayer2
      .Visible = True
      .URL = strPATHNAME & strNAME
      .stretchToFit = True

End With

   WindowsMediaPlayer2.Width = 285
   WindowsMediaPlayer2.Height = 258
   WindowsMediaPlayer2.Controls.Play
   Find = 0
   totalTime = 0
   hTimer = SetTimer(0, 0, 1000, AddressOf TimerProc)


End Sub

樓主熱帖

yvonne

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

2^#

發表於 2017-11-4 12:54 | 只看該作者

G大程式碼我已經貼上了,因為還有結合影片檔,,,我不知道是不是VBA版本問題

yvonne

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

3^#

發表於 2017-11-4 14:46 | 只看該作者

class 不能吃 AddressOf
要放 module

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

4^#

發表於 2017-11-4 16:28 | 只看該作者

class 不能吃 AddressOf
要放 module
jackyq 發表於 2017-11-4 14:46

你的 modile 裡面必須有一個 Public Function TimerProc

Public Function TimerProc(ByVal hwnd As Long, ByVal tMsg As Long, ByVal TimerID As Long, ByVal tickCount As Long) As Long
....................
End Function

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

5^#

發表於 2017-11-6 14:30 | 只看該作者

我的modile 有放阿~~執行撥放時就是會顯示型態不符合!!!!

Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) ode值來啟動影片格式

UserForm1.Label2.Caption = UserForm1.WindowsMediaPlayer1.Controls.currentPosition

If UserForm1.Label2.Caption > 1 And find = 0 Then

      For i = 0 To UserForm1.WindowsMediaPlayer1.currentPlaylist.Count - 1
         totalTime = totalTime + UserForm1.WindowsMediaPlayer1.currentPlaylist.Item(i).Duration
         Next

         tmpSecond = totalTime Mod 60
         tmpMinute = Int(totalTime / 60) Mod 60
         tmpHour = Int(Int(totalTime / 60) / 60)
         UserForm1.Label4.Caption = tmpHour & ":" & tmpMinute & ":" & tmpSecond
         UserForm1.CommandButton7.Left = 42 + (480 / totalTime) * UserForm1.Label2.Caption
      find = 1
End If
If find = 1 Then

      UserForm1.CommandButton7.Left = 42 + (480 / totalTime) * UserForm1.Label2.Caption '

End If

End Sub

yvonne

TOP

afu9240