×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
mciSendStringÊÇÓÃÀ´²¥·Å¶àýÌåÎļþµÄAPIÖ¸Á¿ÉÒÔ²¥·ÅMPEG,AVI,WAV,MP3,µÈµÈ£¬ÏÂÃæ½éÉÜ
ËüµÄʹÓ÷½·¨£º
¡¡¡¡¸Ãº¯ÊýÓÐËĸö²ÎÊý£º
µÚÒ»¸ö²ÎÊý£ºÒª·¢Ë͵ÄÃüÁî×Ö·û´®¡£×Ö·û´®½á¹¹ÊÇ:[ÃüÁî][É豸±ðÃû][ÃüÁî²ÎÊý].
µÚ¶þ¸ö²ÎÊý£º·µ»ØÐÅÏ¢µÄ»º³åÇø,Ϊһָ¶¨ÁË´óСµÄ×Ö·û´®±äÁ¿.
µÚÈý¸ö²ÎÊý£º»º³åÇøµÄ´óС,¾ÍÊÇ×Ö·û±äÁ¿µÄ³¤¶È.
µÚËĸö²ÎÊý£º»Øµ÷·½Ê½£¬Ò»°ãÉèΪÁã
·µ»ØÖµ£ºº¯ÊýÖ´Ðгɹ¦·µ»ØÁ㣬·ñÔò·µ»Ø´íÎó´úÂë
Ò»¡¢³£ÓÃÃüÁî
¡¡¡¡1.´ò¿ª£¨Open£©£¬¸ñʽ£ºOpen É豸Ãû [type É豸ÐÍʽ][alias ±ðÃû]
Dim mName as string
mName = "f:\\mpeg\\mpeg1.avi"
mciSendString "open mName type MPEGVideo Alias movie parent %u Style %u notify",0&, 0, 0
¡¡ÆäÖУº
open ²Ù×÷ÃüÁî
mName ȫ·¾¶ÎļþÃû
type MPEGVideo ÊÇÖ¸´ò¿ªMPEG,AVIµÈÀàÐÍ£¬Èç¹û²»¼ÓÕâÒ»¾ä£¬¾ÍÊÇ´ò¿ªWAV,MP3µÈ
Alias movie ¶¨ÒåÁ˸òÙ×÷µÄ±ðÃûΪmovie£¬ºóÐø²Ù×÷Ö»ÒªÖ¸Ã÷±ðÃû¼´¿É
parent %u Ô´
Style %u Ñùʽ
notify ֪ͨ
¡¡¡¡2.²¥·Å£¨Play£©£¬¸ñʽ£ºPlay É豸Ãû [from Æðµã][to ÖÕµã]
mciSendString "play movie", 0&, 0, 0
mciSendString "play movie fullscreen", 0&, 0, 0 'È«ÆÁ²¥·Å
¡¡¡¡3.ÔÝÍ££¨Pause£©£º
mciSendString "pause movie", 0&, 0, 0
¡¡¡¡4.¼ÌÐø£¨Resume£©£º
mciSendString "resume movie", 0&, 0, 0
¡¡¡¡5.Í£Ö¹£¨Stop£©£º
mciSendString "stop movie", 0&, 0, 0
¡¡¡¡6.¹Ø±Õ£¨Colse£©£º
mciSendString "close movie", 0&, 0, 0
¡
ÉÏһƪÖÐÎÒÒѾ˵ÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æȡͼƬ£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔÄ¿Ç°Ö»ÊÇ»áдµã´úÂ룬ȴ²»Öªµ ......
ÕâһƪÎÒÔÙ˵˵ˮ¾§±¨±íµÄÇé¿ö¡£ACCESSÖжÔӦˮ¾§±¨±í·½Ã棬´ó¼Ò¿ÉÄÜ»áÓöµ½µÄ×î¶àµÄÎÊÌâÓ¦¸Ã¾ÍÊÇ´ò¿ª±¨±íºó
»á³öÏÖÐèÒªµÇ¼µÄÎÊÌâ¡£
Õâ¸öÊÇΪʲôÄØ£¿Ã÷Ã÷ÎÒûÓÐÉèÖÃÃÜÂ룬Ôõô»áÓÐÒªÊäÈëÃÜÂëÄØ£¿Èç¹ûÄã¹»³Á×Å£¬Èç¹ûÄãµÄdebug¾Ñ鲻ȱ·¦µÄ»°£¬
Äã»á·¢ÏÖÔÚË®¾§±¨±íÌø³öÊäÈëÃÜÂëµÄµÇ¼¿òÖУ¬accessµÄ·¾¶²»ÊÇÎÒÏÖÔÚÊý¾Ý¿â· ......