Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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.NETÖвÙ×÷xmlÎļþ£¨²åÈë½Úµã¡¢Ð޸ġ¢É¾³ý£©

ÒÑÖªÓÐÒ»¸öXMLÎļþ£¨bookstore.xml£©ÈçÏ£º
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
< ......

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

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

vb.net Á¬½ÓSQLÊý¾Ý¿â

     'ÔÚÒýÓÃÀïÌí¼ÓADODB
Public vscn As ADODB.Connection
Public SQLString As String
SQLString = "Provider=SQLOLEDB.1;Password=ÃÜÂë;Persist Security Info=True;User ID=ÓÃ" & _
"»§;Initial Catalog=Êý¾Ý¿âÃû;Data Source=·þÎñÆ÷Ãû"
         ......

ÔÆÔÂVB´úÂë¸ñʽ»¯²å¼þ 1.0

ÔÆÔÂVB´úÂë¸ñʽ»¯²å¼þ 1.0
CloudMoonFormatCode.dll ÊÇÒ»¸öVB6.0µÄ²å¼þ£¬ÓÃÓÚVB¿ª·¢ÈËÔ±¸ñʽ»¯´úÂë¡£´Ë²å¼þÍêÈ«Ãâ·Ñ¡£
Ö÷Òª¹¦ÄÜ£º
ÔÚ VB6 IDE Öиñʽ»¯µ±Ç°´ò¿ª´°¿ÚµÄ´úÂ룬ʹÄãµÄ´úÂë¸ü¼ÓÕû½à¡¢ÃÀ¹Û¡£
Ìṩ¹Ø±ÕËùÓÐÉè¼Æ´°¿ÚµÄ¹¦ÄÜ
Ìṩ¹Ø±ÕËùÓдúÂë´°¿ÚµÄ¹¦ÄÜ
......

SQLDMOÔÚVBÖеÄÓ¦ÓÃ

¡¡¡¡SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ