Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB mcisendstring ·½·¨


×ö¸ö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
¡


Ïà¹ØÎĵµ£º

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢¡°±ê×¼¡±DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨2£©
 
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
        ×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
        ......

vb.net²Ù×÷Êý¾Ý¿âÖ®ACCESS£¨1£©

  Ò»Ö±ÏëдÏÂÊý¾Ý¿â²Ù×÷·½ÃæµÄ£¬Ö»ÊÇûʲôʱ¼ä£¨ºÃÏñÊǽè¿Ú£¬Ó¦¸ÃÊÇÀÁ»òÕßûÐÄÇé°É£¬ºÇºÇ£©¡£×î½ü·¢ÏÖCSDNÉÏ
»¹ÊÇÿÌìÓÐÈËÒªÎÊÕâЩÄÚÈÝ£¬ÎÒÓеÄʱºò¾ÍÀÁµÄ»Ø´ð£¬ºÇºÇ£¬Ö÷Òª²»¶ÏµÄÈ¥ÕÒ´úÂë¸øËûÃÇÀÛ°¡¡£ËùÒÔ»¹ÊÇÌý¸ßÈ˵ģ¬À´
¸öÒ»ÀÍÓÀÒÝ£¬×Ô¼ºÖØÐÂÎÂϰÏ£¬Ò²ºÃ¸øÆäËûÈËһЩ°ïÖú¡£
 
    Õâ¸öÊ ......

vb.net²Ù×÷Êý¾Ý¿âÖ®ACCESS£¨2£©

   ÉÏһƪÖÐÎÒÒѾ­ËµÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æÈ¡Í¼Æ¬£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
   ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔĿǰֻÊÇ»áдµã´úÂ룬ȴ²»Öªµ ......

VB½ø³Ì¼äͨѶ ʹÓÃÄäÃû¹ÜµÀÔ­´úÂë

Option Explicit

Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ......

SQLDMOÔÚVBÖеÄÓ¦ÓÃ

SQLDMOÔÚVBÖеÄÓ¦ÓÃ
http://blog.csdn.net/cncco/archive/2010/03/09/5362111.aspx
SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 20 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ