¼±¼±£¡ÔÚÏߵȣ¡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\²»ÈÃÎÒµÄÑÛÀáÅãÎ
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......