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

VBÖÐShellºÍShellExecuteº¯ÊýµÄʹÓ÷½·¨ºÍÇø±ð

 Ð´ÁËÒ»¸övbµÄ³ÌÐò£¬ÓÃÀ´°ÑÔ­À´Ð´µÄ¼¸¸övbºÍvcµÄ³ÌÐòÕûºÏÆðÀ´¡£¾ÍÊÇʹÓÃShellº¯Êý¡£½á¹û·¢ÏÖ£¬vcµÄ³ÌÐò¿ÉÒԺܺõÄÏÔʾ£¬µ«vbдµÄÈ´Ò»ÔËÐоÍ×îС»¯ÁË¡£×Ðϸ²é¿´ÁËÒ»ÏÂÒÔÏÂÎÄÕ£¬²Å·¢ÏÖÔ­À´shellº¯ÊýµÄĬÈÏÏÔʾģʽÊÇwindowstyleÊǵÈÓÚvbMinimizedFocus¡£È»ºó¾ÍÊÇÖ±½Ó¼ÓÉÏÒ»¸övbNormalFocus¡£Ò»ÇÐok!  
vbµÄshellº¯ÊýÓ÷¨£º 
¹¦ÄÜ£ºÖ´ÐÐÒ»¸ö¿ÉÖ´ÐÐÎļþ£¬·µ»ØÒ»¸ö Variant (Double)£¬Èç¹û³É¹¦µÄ»°£¬´ú±íÕâ¸ö³ÌÐòµÄÈÎÎñ ID£¬Èô²»³É¹¦£¬Ôò»á·µ»Ø 0¡£ 
Óï·¨£ºShell(pathname[,windowstyle]) 
Shell º¯ÊýµÄÓï·¨º¬ÓÐÏÂÃæÕâЩÃüÃû²ÎÊý£º 
pathname ±ØÒª²ÎÊý¡£Variant (String)£¬ÒªÖ´ÐеijÌÐòÃû£¬ÒÔ¼°ÈκαØÐèµÄ²ÎÊý»òÃüÁîÐбäÁ¿£¬¿ÉÄÜ»¹°üÀ¨Ä¿Â¼»òÎļþ¼Ð£¬ÒÔ¼°Çý¶¯Æ÷¡£ 
Windowstyle ¿ÉÑ¡²ÎÊý¡£Variant (Integer)£¬±íʾÔÚ³ÌÐòÔËÐÐʱ´°¿ÚµÄÑùʽ¡£Èç¹û windowstyle Ê¡ÂÔ£¬Ôò³ÌÐòÊÇÒÔ¾ßÓн¹µãµÄ×îС»¯´°¿ÚÀ´Ö´Ðеġ£ 
shellExecuteº¯Êý£º 
     ÆäÓ÷¨½ÏΪ¸´ÔÓ£¬µ«Êǹ¦Äܸü¼ÓÇ¿´ó¡£
     HINSTANCE ShellExecute(
      HWND hwnd,           '¸¸´°¿Ú¾ä±ú
      LPCTSTR lpOperation,   '²Ù×÷»ò´ò¿ª·½Ê½ "edit","explore","open","find","print","NULL"
      LPCTSTR lpFile,         'ÎļþÃû,Ç°Ãæ¿É¼Ó·¾¶
      LPCTSTR lpParameters,   '²ÎÊý
      LPCTSTR lpDirectory,    'ĬÈÏÎļþ¼Ð
      INT nShowCmd          'ÏÔʾ·½Ê½
);
ShellExecuteµÄ¹¦ÄÜÊÇÔËÐÐÒ»¸öÍⲿ³ÌÐò 
£¨»òÕßÊÇ´ò¿ªÒ»¸öÒÑ×¢²áµÄÎļþ¡¢´ò¿ªÒ»¸öĿ¼¡¢´òÓ¡Ò»¸öÎļþµÈµÈ£©£¬ 
²¢¶ÔÍⲿ³ÌÐòÓÐÒ»¶¨µÄ¿ØÖÆ¡£shellº¯ÊýÔÚÕâ¸ö·½ÃæÏÈÏà¶Ô½ÏÈõ£¬ 
ÔÚ´ó¶àÊýÇé¿öÏÂShellExecuteÊǸü¶àµÄ±»Ê¹Óõģ¬
 
¡¡lR = ShellExecute(Me.hWnd, "Open", sFile, "", "", vbNormalFocus)
¡¡If (lR < 0) Or (lR > 32) Then
¡¡¡¡ ' ³É¹¦
¡¡Else
¡¡¡¡MsgBox "ÎÞ


Ïà¹ØÎĵµ£º

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

һС¶Î¹Ø¼ü´Ê·ÖÎö´úÂë(VB)

°ïÅóÓѸĵÄһС¶Î¹Ø¼ü´Ê·ÖÎö´úÂ룻 º¬Á½¸öµ¥´Ê¸´ºÏ¼ÆÊý
Private Function CollectWords() As Dictionary(Of String, Integer)
'Create a new dictionary
Dim table As New Dictionary(Of String, Integer)
'Prompt for the user
Console.WriteLine(
"Enter a line : ")
'Get the user's input
Dim input As St ......

vbµ÷ÓÃexcel·½·¨´óÈ«

ÔÚVBÖÐÒªÏëµ÷ÓÃExcel£¬ÐèÒª´ò¿ªVB±à³Ì»·¾³“¹¤³Ì”²Ëµ¥ÖеēÒýÓÔÏîÄ¿£¬²¢Ñ¡È¡ÏîÄ¿ÖеēMicrosoft Excel 11.0 object library”Ïî¡£ÓÉÓÚÄãµÄExcel°æ±¾²»Í¬£¬ËùÒÔÕâ¸öÑ¡ÏîµÄ°æ±¾ºÅÒ²ÊDz»Í¬µÄ¡£
    ÒòΪEXCELÊÇÒÔ²ã´Î½á¹¹×éÖ¯¶ÔÏóµÄ£¬Æä¶ÔÏóÄ£ÐÍÖк¬ÓÐÐí¶à²»Í¬µÄ¶ÔÏóÔªËØ¡£
&n ......

vbʵÏÖĿ¼ÏÂËùÓÐÎļþÃûĿ¼Ãû³ÆµÄ»ñÈ¡

 Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñȡһÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾ­ÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......

VB.NETѹËõACCESSÊý¾Ý¿â

'´´½¨Êý¾Ý¿â
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ­´æÔÚ£¬ÎÞ·¨´´½¨")
        ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ