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
¡
Ïà¹ØÎĵµ£º
ÒÑÖªÓÐÒ»¸ö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£©
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
×òÌìÎÒÃǽ²µ½£¬ÈçºÎͨ¹ýÌØÊâ·½·¨»ñÈ¡OBJÎļþ£¬ÄÇô½ñÌìÎÒÃǼÌÐø½²ÈçºÎ½øÐбàÒëÁ¬½Ó¡£
  ......
'ÔÚÒýÓÃÀïÌí¼Ó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
CloudMoonFormatCode.dll ÊÇÒ»¸öVB6.0µÄ²å¼þ£¬ÓÃÓÚVB¿ª·¢ÈËÔ±¸ñʽ»¯´úÂë¡£´Ë²å¼þÍêÈ«Ãâ·Ñ¡£
Ö÷Òª¹¦ÄÜ£º
ÔÚ VB6 IDE Öиñʽ»¯µ±Ç°´ò¿ª´°¿ÚµÄ´úÂ룬ʹÄãµÄ´úÂë¸ü¼ÓÕû½à¡¢ÃÀ¹Û¡£
Ìṩ¹Ø±ÕËùÓÐÉè¼Æ´°¿ÚµÄ¹¦ÄÜ
Ìṩ¹Ø±ÕËùÓдúÂë´°¿ÚµÄ¹¦ÄÜ
......
¡¡¡¡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 µÄÓ ......