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

7^#

發表於 2017-11-7 08:44 | 只看該作者

G大請教一下原本的Code我是在office2013 win10底下寫的是可以執行,但是在office2016無法執行編輯型態不符,結果我在office2016從打了code還是無法執行....><" 您的意思要在2003版本寫

yvonne

TOP

afu9240

中學生 Rank: 2

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

6^#

發表於 2017-11-6 15:10 | 只看該作者

[attachimg]27

yvonne

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

jackyq

中學生 Rank: 2

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

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

jackyq