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

¼±¼±£¡ÔÚÏߵȣ¡vb´ò¿ªµçÓ°Îļþ£¡

ÓÃVB´ò¿ªµçÓ°¸ñʽ£¬²¥·ÅµçÓ°µÄÈí¼þÊǶ¨ËÀµÄ£¨Storm.exe£©£¬ÊÔÁËÓÃ
    ShellExecute Me.hWnd, "open", mvpath(i), "", "", SW_SHOWNORMAL£¨ÆäÖÐmvpath(i)£©ÊǵçӰ·¾¶¡£¡£
    µ«´ò¿ª²»ÁË£¬Ö»»áÔÚ¡°ÈÎÎñ¹ÜÀíÆ÷¡±À¶øÃ»ÓÐÕæÕýµØ²¥·ÅµçÓ°Îļþ
×Ô¼º¶¥Ò»Ï£¡¼Ó·Ö£¡

µçÓ°¸ñʽµÄºó׺ÊÇʲô£¿ShellExecuteÖ»ÊÇÓÃĬÈϵĴò¿ªÁ¬½Ó´ò¿ªµçÓ°£¬Èç¹ûÄãûÓа²×°Äܹ»²¥·Å¸ÃµçÓ°µÄ²¥·ÅÆ÷£¬µ±È»´ò²»¿ª£¬ºÍÄãµÄ³ÌÐòÎÞ¹Ø.
½¨Òé°²×°Ò»¸öÓ°Òô·ç±©£¬ÔÙÔËÐÐÄãµÄ³ÌÐò

°ÑýÌåµÄĬÈϲ¥·ÅÆ÷ÉèÖóÉÄãËùÐèÒªµÄ²¥·ÅÆ÷£¬ÔÙʹÓÃShellExecute´ò¿ª¡£

VB code:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim strFile As String
strFile = "E:\mp3\²»ÈÃÎÒµÄÑÛÀáÅãÎ


Ïà¹ØÎÊ´ð£º

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ