½Ð°Ý¦p¦ó§ó§ï¼ÆȬ°¦³Ánµ!!!
- ©«¤l
- 12
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-22
- ³Ì«áµn¿ý
- 2018-11-13
|
½Ð°Ý¦p¦ó§ó§ï¼ÆȬ°¦³Ánµ!!!
¦U¦ì¤j¤j ¦n:
¤p§Ì·Q½Ð°Ý¡A¥Ø«e³oÓÀɮ׬OA2©ÎA6ªº¼Æ¦r§C©ó100®É¡A·|µo¥XÁnµ¡A
¨º½Ð°Ý¦pªG·íA2>A6ªº¼Æ¦r1.5¿®É¡A©Î¬OA2<A6ªº¼Æ¦r1.5¿®É¡A¤]·QÅý¹q¸£µo¥XÁnµ¡A
³oÀ³¸Ón¦p¦ó¼W¥[©O?
·PÁ¦U¦ì¤j¤jªº¸Ñ´b!!!
Option Explicit
'«Å§iª«¥óÅܼÆ
Dim objwmplayer As Object
'¼½©ñ©Î°±¤î¼½©ñµ¼Ö
Sub playmusic(songpath As String, Play_Or_Stop As Boolean)
If objwmplayer Is Nothing Then auto_open
'¦pªG Sheet1_Change ¨Æ¥ó¶Ç True µ¹ÅÜ¼Æ Play_Or_Stop
If Play_Or_Stop Then
'¼½©ñ songpath ÅܼƩҫü©wªºµ¼Ö
objwmplayer.Open songpath
'§_«h
Else
'¦pªG¥Ø«eµ¼Ö¥¿¦b¼·©ñ¤¤
If objwmplayer.PlayState = 2 Then
'°±¤î¼½©ñµ¼Ö
objwmplayer.stop
End If
End If
End Sub
'ÀÉ®×Ãö³¬®É
Private Sub auto_close()
'¦pªG§A¦³§ïÅܵ{¦¡½X objwmplayer ÅܼƷ|³Q«³]
'©³¤U³o¤@Ó if §PÂ_¥Øªº¦b©óÁקK©óÃö³¬Àɮ׮ɵo¥Í¿ù»~
If Not objwmplayer Is Nothing Then
'¦pªGµ¼Ö¥¿¦b¼½©ñ¤¤
If objwmplayer.PlayState = 2 Then
'°±¤î¼½©ñµ¼Ö
objwmplayer.stop
End If
End If
'ÄÀ©ñª«¥óÅÜ¼Æ objwmplayer
Set objwmplayer = Nothing
End Sub
'Àɮ׶}±Ò®É
Private Sub auto_open()
'«Ø¥ß MediaPlayer ª«¥ó
Set objwmplayer = CreateObject("MediaPlayer.MediaPlayer")
End Sub
|
|
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-8-4
- ³Ì«áµn¿ý
- 2018-10-22
|
¦^´_ 1# wengin66
³o¸Ì¨S¬Ý¨ì±ø¥óªº³]©w¡A±qµù¸Ñ¬Ý¥i¯à¬O¦bsheet1_change¸Ì¡C |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-22
- ³Ì«áµn¿ý
- 2018-11-13
|
¥»©«³Ì«á¥Ñ wengin66 ©ó 2016-9-4 19:09 ½s¿è
¦³Ánµ.zip (10.37 KB)
¦^´_ 2# zyzzyva
½Ð°Ý¤j¤j¡AÀɮ׸̱¥u¦³³o¨ÇC! |
|
|
|
|
|
|
- ©«¤l
- 109
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-8-4
- ³Ì«áµn¿ý
- 2018-10-22
|
¦^´_ 3# wengin66
¦b¼Ò²Õ¤W±¦³¤@ÓMicrosoft Excel ª«¥ó¡A¸ÌÀY¦³¤@Ósheet1¡A§AÂI¥¦´N·|¬Ý¨ì±ø¥ó³]©wªºµ{¦¡½X¡C |
|
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 62
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-22
- ³Ì«áµn¿ý
- 2018-11-13
|
¦^´_ wengin66
¦b¼Ò²Õ¤W±¦³¤@ÓMicrosoft Excel ª«¥ó¡A¸ÌÀY¦³¤@Ósheet1¡A§AÂI¥¦´N·|¬Ý¨ì±ø¥ó³]©wªºµ{¦¡ ...
zyzzyva µoªí©ó 2016-9-4 20:53
·PÁ¤j¤j«ü¾É |
|
|
|
|
|
|